SW2014 宏程序修改零件名

chinayyyy

RT：我已经设置好了零件的属性：名称和代号，如何将零件名重新命名为：代号+空格+名称。有没有大神有这个宏程序啊！小弟在此谢过啦！

chinayyyy

顶一下，坐等高手！

qqwwee009

这个恐怕不行，因为零件名称是跟文件名对应的

zhangcan0515

有的+企鹅871605065 给你

ryouss

   经典案例图书

參考

1. ' ************************************************************************************
   
2. ' 依據配置屬性"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
   
3. ' ************************************************************************************
   
4. 
   
5.     Dim swApp               As SldWorks.SldWorks
   
6. 
   
7.     Dim swModel             As SldWorks.ModelDoc2
   
8. 
   
9.     Dim swConfigMgr         As SldWorks.ConfigurationManager
   
10. 
    
11.     Dim swConfig            As SldWorks.Configuration
    
12. 
    
13.     Dim swCustPropMgr       As SldWorks.CustomPropertyManager
    
14. 
    
15.     Dim nNbrProps           As Long
    
16. 
    
17.     Dim Part                As Object
    
18. 
    
19.     Dim Code_Name(2)        As String
    
20. 
    
21.     Dim valOut              As String
    
22. 
    
23.     Dim resolvedValOut      As String
    
24.    
    
25.     Dim longstatus          As Long
    
26. 
    
27. 
    
28. Sub main()
    
29. 
    
30.     Set swApp = Application.SldWorks
    
31. 
    
32.     Set swModel = swApp.ActiveDoc
    
33. 
    
34.     Set swConfigMgr = swModel.ConfigurationManager
    
35. 
    
36.     Set swConfig = swConfigMgr.ActiveConfiguration
    
37.    
    
38.     Set swCustPropMgr = swConfig.CustomPropertyManager
    
39. 
    
40.     ' Get the number of custom properties for this configuration
    
41. 
    
42.     nNbrProps = swCustPropMgr.Count
    
43.     vPropNames = swCustPropMgr.GetNames
    
44.     For j = 0 To nNbrProps - 1
    
45.         swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut
    
46.         If vPropNames(j) = "代號" Then Code_Name(0) = valOut
    
47.         If vPropNames(j) = "名稱" Then Code_Name(1) = valOut
    
48.     Next j
    
49.     'Debug.Print "    Name, type, and resolved value of custom property:  " & "代號: " & Code_Name(0) & " ----- " & "名稱:" & Code_Name(1)
    
50.    
    
51.     Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴展名",不管擴展名是否隱藏
    
52.     Path_ = Left(Path_Name, InStrRev(Path_Name, "\")) '提出路徑
    
53.     Set Part = swApp.ActiveDoc
    
54.     longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據配置屬性"件號"及"名稱"存檔
    
55. End Sub

复制代码

hdgd501

ryouss 发表于 2018-10-30 17:14
參考

ryouss很专业，写得很好！感谢分享!

451929224

   经典案例图书

solidworks论坛，顶一下。

hdgd501

好东西，努力学习学习！

ningxin4567

学习学习。。。。。。。。。。。。。