iCAx开思网
标题:
宏添加材料属性在属性表达式内不能显示材料表达式
[打印本页]
作者:
gdzsh
时间:
2018-2-8 15:22
标题:
宏添加材料属性在属性表达式内不能显示材料表达式
本帖最后由 gdzsh 于 2018-2-8 15:38 编辑
blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, strmat) 这个代码在2017板中的零件属性表达式中不能显示材料,求大大修改下
运行这个宏,零件属性表达式里面填入的是:"SW-Material@12345 零件2",正常的表达式应该是:"SW-Material@12345 零件2.SLDPRT"
作者:
qxzch
时间:
2018-2-21 21:06
试试下面的代码
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
复制代码
作者:
qxzch
时间:
2018-2-21 21:08
c = swApp.ActiveDoc.GetTitle()
复制代码
作者:
a8012024
时间:
2018-2-23 06:46
感谢分享,
作者:
gdzsh
时间:
2018-2-24 15:39
添加进去运行,材料属性就有了,谢谢qxzch
作者:
gdzsh
时间:
2018-2-24 15:40
qxzch 发表于 2018-2-21 21:08
添加进去材料属性很神奇的就出现了,谢谢您了
作者:
a8012024
时间:
2018-2-27 07:01
多谢分享!!
欢迎光临 iCAx开思网 (https://www.icax.org/)
Powered by Discuz! X3.3