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

只看该作者 · 发表于 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

只看该作者 · 发表于 2021-4-14 14:21:32

还需要吗

只看该作者 · 发表于 2021-7-11 09:22:04

我也想知道这个怎么写

只看该作者 · 发表于 2022-6-9 08:44:05

要获取选中的零件

只看该作者 · 发表于 2022-6-9 08:44:42

你这个只是对当前“零件”或“组件”写入属性

只看该作者 · 发表于 2022-6-11 19:55:08

楼主写出来了嘛，我也想要

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

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