宏添加材料属性在属性表达式内不能显示材料表达式

只看该作者 · 发表于 2018-2-8 15:22:15

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 gdzsh 于 2018-2-8 15:38 编辑

blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, strmat) 这个代码在2017板中的零件属性表达式中不能显示材料，求大大修改下
运行这个宏，零件属性表达式里面填入的是："SW-Material@12345 零件2"，正常的表达式应该是："SW-Material@12345 零件2.SLDPRT"

只看该作者 · 发表于 2018-2-21 21:06:35

试试下面的代码

Dim prt As String
Dim asm As String
......
If Part.GetType <> 2 Then
prt = ".SLDPRT"
blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, Chr(34) & "SW-Material@" & c & prt & Chr(34))
Else
asm = ".SLDASM"
blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, Chr(34) & "SW-Material@" & c & asm & Chr(34))
End If

复制代码

只看该作者 · 发表于 2018-2-21 21:08:36

c = swApp.ActiveDoc.GetTitle()

复制代码

只看该作者 · 发表于 2018-2-23 06:46:26

感谢分享，

只看该作者 · 发表于 2018-2-24 15:39:08

添加进去运行，材料属性就有了，谢谢qxzch

只看该作者 · 发表于 2018-2-24 15:40:08

qxzch 发表于 2018-2-21 21:08

添加进去材料属性很神奇的就出现了，谢谢您了

只看该作者 · 发表于 2018-2-27 07:01:59

多谢分享!!

[求助] 宏添加材料属性在属性表达式内不能显示材料表达式

马上注册，结交更多同行朋友，交流，分享，学习。