求宏编写--在装配体中获取下属零部件以及零件们的自定义属性

zocps1029

   经典图书

如题！！大神们帮忙啊！

unigraphics4

Sub main()
Set swApp = Application.SldWorks
Set swmodel = swApp.ActiveDoc
Set custprOPMgr = swmodel.Extension.CustomPropertyManager("")
bool = custpropmgr.GetAll(vpropnames, vproptypes, vpropvalues)
For j = 0 To UBound(vpropnames) - 1
If vpropnames(j) = "作者" Then
vpropvalues(j) = "dfei"
iretval = custpropmgr.Delete(vpropnames(j))
iretval = custpropmgr.Add2(vpropnames(j), swCustomInfoText, vpropvalues(j))
End If
Next
End Sub

三国神杀手2

   经典图书

感谢楼主分享，很不错！

小豆芽疯回路转

好东西，努力学习学习！

yf475039349

   经典案例图书

顶一下，坐等高手！