solidworks宏里自定义的属性，重量如何在赋予材料后自动带出来？

悠悠-飘叶 · 发表于 2015-7-9 18:19:00

经典图书

最近在网上得到一个宏，修改了一下，符合我们公司的使用习惯，其实就是用来分离零件名称和图号的，用“_"分开，前面部分填入物料编码属性，后面部分填入名称属性。再修改了一下，增加了材料属性，重量属性等，现在材料可以自动从零件赋予材质后，属性自动带出，但重量需要手动，不知道在宏里怎样得到重量。以下是宏的内容：
Sub main()
'link solidworks
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
'设定变量
c = swApp.ActiveDoc.GetTitle() '零件名
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "物料编码")
blnretval = Part.DeleteCustomInfo2("", "名称")
blnretval = Part.DeleteCustomInfo2("", "图号")
blnretval = Part.DeleteCustomInfo2("", "机型")
blnretval = Part.DeleteCustomInfo2("", "数量")
blnretval = Part.DeleteCustomInfo2("", "设计")
a = InStr(c, "_") - 1 '重点：分隔标识符，这里是一个空格
If a > 0 Then
k = Left(c, a)
t = Left(LTrim(e), 3)
If t = "GBT" Then
e = "GB/T" + Mid(k, 4)
Else
e = k
End If
b = Mid(c, a + 2)
t = Right(c, 7)
If t = ".SLDPRT" Or t = ".SLDASM" Then
j = Len(b) - 7
Else
j = Len(b)
End If
m = Left(b, j)
End If
blnretval = Part.AddCustomInfo3("", "物料编码", swCustomInfoText, e) '代号
blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m) '名称
blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, " ")
blnretval = Part.AddCustomInfo3("", "机型", swCustomInfoText, " ")
blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, strmat)
blnretval = Part.AddCustomInfo3("", "重量", swCustomInfoText, " ")
blnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, " ")
blnretval = Part.AddCustomInfo3("", "设计", swCustomInfoText, " ")
End Sub 根据梁大提供的修改方案，已经修改好，下面放出最终版的宏，希望对大家有帮助。自定义属性可以自行修改，分隔符"_"可以根据自己的习惯修改为空格或这个其它符号。再次感谢梁大！

图号分离(最终版).rar (8.66 KB, 下载次数: 208)

UG-8.5 · 发表于 2015-7-9 18:26:25

不要动不动一副教训人的架子，多一个功能有什么不好吗，你有本事解决了，我也是佩服你的，解决不了，你看着就行

ooHHoo · 发表于 2015-7-9 18:19:05

经典图书

此宏的主要目的不是用来添加自定义属性的，是用来从文件名提取物料编码和名称的，顺便增加了可以添加其他属性的功能。其实还是有作用的，有时用了空白的模板，没有添加自定义属性，这时，就比较方便添加了

sky-yang · 发表于 2015-7-9 18:22:46

设置好零件模板后。。属性都可以自动出来。。。。做一个宏有点小题大做了

php2015 · 发表于 2015-7-9 18:23:09

经典案例图书

我觉得图号和名称用这个宏自动分离确实不错，至于别的属性，完全可以用属性填写卡来完成，更快捷。当然也不是说楼主的做法有什么不好，毕竟有探索才有进步。

proe得寸进尺 · 发表于 2015-7-9 18:24:10

“有时用了空白的模板”，楼主，您日常的工作是有多漫不经心？
从文件名提取名称和编码，这个用宏是没错的。
添加其他属性用模板可以完全解决，没有必要与宏扯上关系。

646268 · 发表于 2015-7-9 18:27:06

经典案例图书

新增重量,1#原檔修改如圖示
strmass = Chr(34) + Trim("SW-Mass" + "@") + c + Chr(34) '定義重量變數(複製用的)

yfxby · 发表于 2015-7-9 18:27:46

非常感谢royouss,论坛高手总是能真正解决问题的，万分感谢！

likay · 发表于 2015-7-9 18:27:51

现在对我来说，很完美了。这个宏可以从文件名称中提取物料编码和名称分别填入自定义的属性里，并且增加其他相关属性。如图，1是运行宏之前，2是运行宏之后。
运行宏前

运行宏之后

wangshiliang · 发表于 2015-7-9 18:29:10

经典图书

问题解决了就OK！！！！！

lijiazi · 发表于 2015-7-9 18:31:49

高人，你能把这些属性添加到“配置特定”选项卡里么？

huww224 · 发表于 2015-7-9 18:33:14

改成了分离编码和名称了，图号空出来了

1197806538 · 发表于 2015-7-9 18:33:31

回11#之需求 属性添加到“配置特定”
條件是依原樓主之格式
把對應的屬性欄名 " 英文名稱 " 自行修改為 " 簡體字 "

test0711 - configure specific.rar (12.67 KB, 下载次数: 266) SWP檔在2012版測試

liushanwei2015 · 发表于 2015-7-9 18:41:10

谢谢梁大。正好我用的也是SW2012，我试下。

dhtiaw · 发表于 2015-7-9 18:43:33

加入QQ群
参与讨论和学习

或扫描二维码加入

梁大，我这里测试，属性是添加到了配置特定栏，但是读不出零件材质和重量。我的宏文件写入的代码是"SW-Material@19870105_测试用零件"，没有自动添加文件后缀名。我把strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)这一行代码改成strmat = Chr(34) + Trim("SW-Material" + "@") + c + ".sldprt" + Chr(34)后就可以读取到零件材质了，不知道为何您在执行代码时不用添加 ".sldprt" 这一小段内容就能在填入属性时识别零件名后缀我的却不行？恳请指点。谢谢