自动填写表面处理成功,感谢楼主!注意:前提为系统设置材质在自定义属性中“材质”已经存在这一项
程序的功能:当材料为“45”时表面处理为“镀黑锌”,当材料为“AL6061”时表面处理为"本色喷砂阳极"
作用:使表面处理这个属性不用人工去一个个填
下面为程序,以一个当前文件做例子来表现的,用简单的内容来表达一个功能的写法。
Dim swApp As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
value = Part.GetCustomInfoValue("", "材料")
If value = "45" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "镀黑锌")
End If
If value = "AL6061" Then
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, "本色喷砂阳极")
End If
'MsgBox value
End Sub