自定义属性复制到配置属性

失业皇帝

自定义属性复制到配置属性

洋洋_56789

没看到   有可行方案。回头研究一下

随遇而安9528

   经典图书

穿拖鞋开车 发表于 2024-7-5 10:32
厉害了，哥

能用不？？？？？？

穿拖鞋开车

随遇而安9528 发表于 2024-6-27 10:04

厉害了，哥

随遇而安9528

   经典案例图书

好好学习，天天向上！

a605396470

去安装个插件就可以了  博士钣金  类的

随遇而安9528

   经典案例图书

1. Dim swApp As SldWorks.SldWorks
   
2. Dim swModel As SldWorks.ModelDoc2
   
3. Dim swCustPrpMgr As SldWorks.CustomPropertyManager
   
4. Dim swConfCustPrpMgr As SldWorks.CustomPropertyManager
   
5. 
   
6. Sub main()
   
7. 
   
8.     Set swApp = Application.SldWorks
   
9. 
   
10.     Set swModel = swApp.ActiveDoc
    
11. 
    
12.     If Not swModel Is Nothing Then
    
13.    
    
14.         Set swCustPrpMgr = swModel.Extension.CustomPropertyManager("")
    
15.       
    
16.         Dim vNames As Variant
    
17.         Dim vTypes As Variant
    
18.         Dim vValues As Variant
    
19.         swCustPrpMgr.GetAll vNames, vTypes, vValues
    
20.    
    
21.         Dim activeConfName As String
    
22.         activeConfName = swModel.ConfigurationManager.ActiveConfiguration.Name
    
23. 
    
24.         Set swConfCustPrpMgr = swModel.Extension.CustomPropertyManager(activeConfName)
    
25. 
    
26.         Dim i As Integer
    
27.    
    
28.         For i = 0 To UBound(vNames)
    
29.         
    
30.             swConfCustPrpMgr.Add2 vNames(i), vTypes(i), vValues(i)
    
31.             
    
32.             swConfCustPrpMgr.Set vNames(i), vValues(i)
    
33.         Next
    
34. 
    
35.     Else
    
36. 
    
37.         MsgBox "请打开零件或装配体文档！"
    
38. 
    
39.     End If
    
40.    
    
41. End Sub
    

复制代码

董东咚

我有一个宏，一键完成。你得加我单独发给你。

kaogeshishen

不知道你想干啥

lijuntang

   经典图书

糖盒子工具箱完美解决

机制082

最近刚写了一个把配置属性赋值给自定义属性对应属性的宏，你可以参考。

chankwan

修改模板属性。

13634372288

首先你的建模模版要涵盖配置特性，然后再设置一个自定义属性，这样你填写的自定义属性就能与配置属性关联上了

懒懒的高贵

迈迪有个属性编辑的插件，可以做到

老白菜2007

加入QQ群
参与讨论和学习

或扫描二维码加入

感觉表述有问题，不明白楼主想要做什么！

董东咚

   经典案例图书

SolidWorks机械工程师网，顶一下。