求一个装配体添加某个零件属性的宏

刘茂机械 · 发表于 2021-3-20 17:04:15

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

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

x

这个宏的思路是在装配图选中某一个零件，点击运行宏直接清除属性栏原有的属性添加新的属性，就向零件添加属性一样附零件中添加属性代码

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
blnretval = swModel.DeleteCustomInfo2("", "工艺路线") '清除属性栏原有的属性
blnretval = swModel.AddCustomInfo3("", "工艺路线", swCustomInfoText, "下料—折弯—电焊") '添加属性到属性栏
End Sub