iCAx开思网

标题: 如何可以获取自定义属性中值 [打印本页]
作者: 板上沙丁鱼    时间: 2015-11-21 15:56
标题: 如何可以获取自定义属性中值
  1. Sub main()

  3. Set swApp = Application.SldWorks
  4. Set swmodel = swApp.ActiveDoc
  5. Set custpropmgr = swmodel.Extension.CustomPropertyManager("")
  6. bool = custpropmgr.GetAll(vpropnames, vproptypes, vpropvalues)

  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    时间: 2015-11-22 15:33
參考

[attach]1226885[/attach]

[attach]1226886[/attach] swp檔
作者: 板上沙丁鱼    时间: 2015-11-22 20:41
ryouss 发表于 2015-11-22 15:33
參考

谢谢梁叔，知道了
  1. Set swcustpropmgr = swmodel.Extension.CustomPropertyManager(swmodel.ConfigurationManager.ActiveConfiguration.Name)
复制代码



作者: 526982318    时间: 2015-11-23 17:14
关注一下。。。。
作者: foreverroc    时间: 2015-11-25 21:57
作者: vincentning    时间: 2018-9-21 15:58
多谢，真再找两个属性直接cp
作者: makejon    时间: 2018-10-3 12:42
没贡献下载了
作者: makejon    时间: 2018-10-3 12:43
没贡献下载了
作者: zhengmo    时间: 2021-1-15 22:02
学习学习，谢谢前辈




欢迎光临 iCAx开思网 (https://www.icax.org/) Powered by Discuz! X3.3