|
楼主 能否帮忙改个宏呢 我想改一个可以在装配体添加零件属性的宏 就是说在装配体中选择零件执行宏命令直接添加零件属性 附源代码
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
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim CustPropMgr As SldWorks.CustomPropertyManager
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name)
CustPropMgr.Delete ("工艺路线") '删除配置特定里原有的属性
CustPropMgr.Add2 "工艺路线", swCustomInfoText, "下料—折弯—电焊" '在配置特定增加属性
End Sub
一个是配置属性 一个是自定义属性的 谢谢当然能做成您这个样式的最好 只不过把材料改为工艺路线
|
|