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/)