求图号名称分离的宏，属性可应用到配置特定下面

wen999999999 · 发表于 2015-11-23 16:44:47

梁大又对代码进行了改进了，学习啦。

LIYONGTIAN · 发表于 2015-11-23 16:44:58

參考如上

指尖的記憶 · 发表于 2015-11-23 16:46:04

梁大，链接打不开

yn3246688 · 发表于 2015-11-23 16:46:30

梁大，这个宏代码，分离代号和名称都顺利，但是，因为我是习惯隐藏文件扩展名的，所以，提取材料时，最后的结果就变成了 "SW-Material@BFHX-LZ-ZT-JX.01-1_零件试验" 这样的了，没有.sldprt或者.SLDASM文件名后缀了，导致不能自动提取材料属性。不知道在我这种隐藏了后缀名的情况下，如何修改这个代码以自动提取材料属性？谢谢

流转星河 · 发表于 2015-11-23 16:46:33

经典案例图书

像這樣嗎?

Configuration code_name_1.rar (8.86 KB, 下载次数: 109) swp

wyqfjfz · 发表于 2015-11-23 16:47:32

是的。
新宏我下载了试下。谢谢梁大。
有问题再向梁大请教。

nanfeng800 · 发表于 2015-11-23 16:48:09

经典案例图书

梁大，经过测试，问题依旧呀，还是显示成您这个材料栏里的这样，不知道问题在哪里了？难道必须把文件夹选设置成显示文件名后缀才行吗？

那些年___我们太 · 发表于 2015-11-23 16:49:24

楼主是做非标的吧

panier · 发表于 2015-11-23 16:49:30

在什麼條件下要達到什麼結果?
材料栏里到底是要顯示怎樣,請上個圖!

火焰chu · 发表于 2015-11-23 16:50:07

參考如下,是針對文件在隱藏擴展名之處理.
另在IF條件下判定的文件名稱稍可簡化，因不影響結果就不處理了.

Configuration Code_Name.rar (9.21 KB, 下载次数: 51) swp

hehualonga · 发表于 2015-11-23 16:50:24

材料栏里就是您发后面的那个宏时带的那张图里的样子，就是显示“sw-material@零件1"。少了后面的后缀，不是显示成“sw-material@零件1.sldprt"，链接不到零件的材料属性。其它的都没问题。

Michael529 · 发表于 2015-11-23 16:50:41

是的，这样可以显示出链接属性的，我之前这样改动试过了是可行的。但是您之前发的那个文件是可以无论是装配体还是零件都可以自动添加好这个材料链接属性，而这样改动以后，就是相当于只对零件有效了，因为装配体后缀名和零件后缀名不一致，装配体的属性就没法链接了。我是半个强迫症患者，就是不喜欢显示已知文件的后缀名，否则用您第一个宏文件可以圆满完成提取文件名、代号和添加材料属性的要求，只能向您请教隐藏这后缀名后有没有无论是零件还是装配体都能添加好有效的这个材料属性链接的办法，请多多指点。
另外，因为做这些试验都是在公司的电脑上，公司电脑禁止连外网，只能在公用上网机上下载文件再转到内网，内网的文件没法拷出来，所以没办法上传相关的图片，请梁大谅解。谢谢。

13510881561 · 发表于 2015-11-23 16:51:35

若是強迫要隱藏擴展名,是認為本來能簡單地處裡就行,就硬生生搞成複雜事,
程度所限,尚沒法在無擴展名之條件下區分出哪個是組件哪個是零件,
可能要找出隱藏下的擴展名需動到DLL(Dynamic Link Library动态链接库文件)處理,這方面就一直沒研究過,
依我的程度,只好作成兩個"宏"一個處裡零件另個處裡組件,而且尚要用人工判定哪個文件是組件或是零件,是有過麻煩了.
也或許其他大大有較好的方案解決就期待著了!

BUNNY244 · 发表于 2015-11-23 16:52:59

能不能先显示再隐藏？

lester168lee · 发表于 2015-11-23 16:53:16

加入QQ群
参与讨论和学习

或扫描二维码加入

首先谢谢梁大提供了那么好的东西～
再来，SW API 里面提供了两个函数可以满足您的使用要求。
1. iModelDoc2.GetType 可以得到文件的类型
2. iModelDoc2.GetPathName 可以得到文件的全路径
针对梁大提供的宏，可以追加如下函数，
Private Function getModelDocExtAsString(ByVal prModelDoc As SldWorks.ModelDoc2) As String
Dim sFileName As String

Const swDocPART = 1
Const swDocASSEMBLY = 2
Const swDocDRAWING = 3
If prModelDoc Is Nothing Then Exit Function
Select Case prModelDoc.GetType

      Case swDocPART
         getModelDocExtAsString = ".SLDPRT"

      Case swDocASSEMBLY
         getModelDocExtAsString = ".SLDASM"

      Case swDocDRAWING
         getModelDocExtAsString = ".SLDDRW"

      Case Else
         sFileName = prModelDoc.GetPathName
         If InStr(1, sFileName, ".") > 0 Then
         getModelDocExtAsString = Right(sFileName, Len(sFileName) - InStrRev(sFileName, ".") + 1)
         Else: getModelDocExtAsString = ""
         End If

End Select

End Function
并对原来的宏的一行作如下修改：
'Na = c + ".SLDPRT"
Na = c + getModelDocExtAsString(swApp.ActiveDoc)
即可。

reree333 · 发表于 2015-11-23 16:53:42

经典案例图书

想想重點如下:
1. 應該是用 swApp.ActiveDoc.GetPathName 不管是否隱藏擴展名都可以抓到擴展名 .SLDPAT OR .SLDASM
2. 而用 swApp.ActiveDoc.GetTitle() 僅抓出所要的名稱,但在隱藏擴展名時就抓不到 .SLDPAT OR .SLDASM
3. 但用第1項雖是找到名稱帶擴展名,但同時也抓出路徑非所要的,所以就需多做處理過濾掉.
總而言之,N大問題是可解!
參考如下,藍色是所要的.
Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴展名"(不管擴展名是否隱藏)
S1 = InStrRev(Path_Name, "") '符號在路徑之最後位置數
Code_Name_C = Right(Path_Name, Len(Path_Name) - S1) '取得"件號_名稱.擴展名"
S2 = InStr(Code_Name_C, "_") '_符號在"件號_名稱.擴展名"之位置數
Code_ = Left(Code_Name_C, S2 - 1) '取得"件號"
Name_ = Mid(Code_Name_C, S2 + 1, Len(Code_Name_C) - S2 - 7) '取得"名稱"

fairy13 · 发表于 2015-11-23 16:56:02

加入QQ群
参与讨论和学习

或扫描二维码加入

高人，能否烦请您帮我修改一下梁大的宏后发一个完整的宏文件给我？我不知道您这些宏代码应该加在哪里，我没学过VC VB哈，都只能瞎鼓捣的，只会对已经有了的宏做很小很小的改动，要做稍微大点的改动我就变成睁眼瞎了。另外，请教一下，因为填属性时，一般都是往零件和装配体里填写，工程图属性一般都是保持空白的，不知道如果是批量处理的话如何过滤掉工程图不往工程图里填属性？谢谢您啦。

paopa9o · 发表于 2015-11-23 16:56:08

经典案例图书

梁大，能否烦请您赐个完整的宏文件或者完整的宏代码？我水平太差，没学过VB VC，这一段一段的代码我不知道应该放哪里去才能达到想要的效果。谢谢梁大帮忙。另外，请教一下，因为填属性时，一般都是往零件和装配体里填写，工程图属性一般都是保持空白的，不知道如何在用批量处理宏添加属性时如何过滤掉工程图不往工程图里填属性？谢谢。

1344137882 · 发表于 2015-11-23 16:56:25

服務到家啦
是依據本主題格式

Configuration -1.rar (10.3 KB, 下载次数: 101) swp

36087094 · 发表于 2015-11-23 16:57:02

用批量处理宏添加属性时如何过滤掉工程图不往工程图里填属性？
應該可以,抓到工程圖之擴展名就不處理的邏輯概念

		自动登录	找回密码
密码			立即注册