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
试试下面的代码
  1. Dim prt      As String
  2. Dim asm      As String
  3. ......
  4. If Part.GetType <> 2 Then
  5.     prt = ".SLDPRT"
  6.     blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, Chr(34) & "SW-Material@" & c & prt & Chr(34))
  7. Else
  8.     asm = ".SLDASM"
  9.     blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, Chr(34) & "SW-Material@" & c & asm & Chr(34))
  10. End If
复制代码

作者: qxzch    时间: 2018-2-21 21:08
  1. 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