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

失业皇帝

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

董东咚

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

老白菜2007

   经典图书

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

懒懒的高贵

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

13634372288

   经典案例图书

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

chankwan

修改模板属性。

机制082

   经典案例图书

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

lijuntang

糖盒子工具箱完美解决

kaogeshishen

不知道你想干啥

董东咚

   经典图书

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

随遇而安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
    

复制代码

a605396470

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

随遇而安9528

好好学习，天天向上！

穿拖鞋开车

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

厉害了，哥

随遇而安9528

加入QQ群
参与讨论和学习

或扫描二维码加入

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

能用不？？？？？？

洋洋_56789

   经典案例图书

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