如何可以获取自定义属性中值

板上沙丁鱼

1. Sub main()
   
2. 
   
3. Set swApp = Application.SldWorks
   
4. Set swmodel = swApp.ActiveDoc
   
5. Set custprOPMgr = swmodel.Extension.CustomPropertyManager("")
   
6. bool = custpropmgr.GetAll(vpropnames, vproptypes, vpropvalues)
   
7. 
   
8. For j = 0 To UBound(vpropnames) - 1
   
9. If vpropnames(j) = "作者" Then
   
10. vpropvalues(j) = "dfei"
    
11. iretval = custpropmgr.Delete(vpropnames(j))
    
12. iretval = custpropmgr.Add2(vpropnames(j), swCustomInfoText, vpropvalues(j))
    
13. End If
    
14. Next
    
15. End Sub
    

复制代码

这样子得到的只能是自定义属性中的值，怎么样能得到配置特定中的值，谢谢

ryouss

板上沙丁鱼

526982318

foreverroc

vincentning

makejon

makejon

zhengmo