iCAx开思网

标题: 求一个装配体添加某个零件属性的宏 [打印本页]

作者: 刘茂机械 时间: 2021-3-20 17:04
标题: 求一个装配体添加某个零件属性的宏
这个宏的思路是在装配图选中某一个零件，点击运行宏直接清除属性栏原有的属性添加新的属性，就向零件添加属性一样附零件中添加属性代码

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

作者: suhuasheng1233 时间: 2021-4-14 14:21
还需要吗

作者: wsbty 时间: 2021-7-11 09:22
我也想知道这个怎么写

作者: qianfang4622366 时间: 2022-6-9 08:44
要获取选中的零件

作者: qianfang4622366 时间: 2022-6-9 08:44
你这个只是对当前“零件”或“组件”写入属性

作者: z460515477 时间: 2022-6-11 19:55
楼主写出来了嘛，我也想要

欢迎光临 iCAx开思网 (https://www.icax.org/)