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

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
    

复制代码

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

參考



swp檔

ryouss 发表于 2015-11-22 15:33
參考

谢谢梁叔，知道了

1. Set swcustpropmgr = swmodel.Extension.CustomPropertyManager(swmodel.ConfigurationManager.ActiveConfiguration.Name)

复制代码

关注一下。。。。

多谢，真再找两个属性直接cp

没贡献下载了

没贡献下载了

学习学习，谢谢前辈