PDM系统模型和工程图重命名的问题

yanwei1945

在PDM系统下 有没有改模型时 工程图也一起改的方法 之前有个宏 可以在本地电脑文件夹下改模型名，同时同步工程图文件名，但是在PDM系统下这个宏出现问题 ：工程图是出来了但是原来的工程图也在，同时打开新工程图还需要再关联下 并且要手动删除原工程图。

下面是重命名宏


重命名.zip (21.07 KB, 下载次数: 194)

2021-6-25 15:02 上传

点击文件名下载附件
下载积分: 金币 -1

xuguixiang

顶一下，坐等高手！

hnsddm

很不错，顶一下！

KEMIRWU

想问下你的PDM是哪个版本的?

KEMIRWU

   经典案例图书

1. Public swApp As SldWorks.SldWorks
   
2. Public swModel As SldWorks.ModelDoc2
   
3. Public swModelDocExt As SldWorks.ModelDocExtension
   
4. Public swAssy As Object
   
5. Public swAssyEvents As Class1
   
6. Public errors As Long
   
7. Public warnings As Long
   
8. Public status As Boolean
   
9. Public swComp As SldWorks.Component2
   
10. Public swAsm As Object
    
11. Public swSelMgr As SldWorks.SelectionMgr
    
12. Public NewName As String
    
13. Public FilePath As String
    
14. Public OldName As String
    
15. Public DrwFlag As Boolean
    
16. Public SelectPart As String
    
17. Dim nRetval As Long
    
18. Public NameFlag As Boolean
    
19. Public Componets() As Object
    
20. Public SelectID As String
    
21. Sub Main()
    
22. Set swApp = Application.SldWorks
    
23. Set swAssy = swApp.ActiveDoc
    
24. If swAssy.GetType <> 2 Then '不是装配=退出
    
25.     MsgBox "请在装配体中运行", , "错误"
    
26.     Exit Sub
    
27. End If
    
28. Set swAssyEvents = New Class1
    
29. Set swAssyEvents.swAssy = swApp.ActiveDoc
    
30. Set swModel = swAssy
    
31. Set swModelDocExt = swModel.Extension
    
32. Set swSelMgr = swModel.SelectionManager
    
33. Form.Show 0
    
34. End Sub
    
35. Function ChangeName()
    
36. status = swModelDocExt.SelectByID2(SelectPart, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) '选中对象
    
37. errors = swModelDocExt.RenameDocument(NewName) '重命名
    
38. swModelDocExt.Rebuild swRebuildOptions_e.swRebuildAll
    
39. status = swModel.Save3(swSaveAsOptions_e.swSaveAsOptions_Silent + swSaveAsOptions_e.swSaveAsOptions_SaveReferenced, errors, warnings)
    
40. nRetval = swComp.SetSuppression2(1) '将轻化还原
    
41. nRetval = swComp.SetSuppression2(2) '将轻化还原
    
42. Form.Label1 = "请选中一个零部件"
    
43. Form.Label2 = ""
    
44. Form.Newtext = ""
    
45. Form.Oldtext = ""
    
46. MsgBox1.Show
    
47. End Function
    
48. 
    
49. 
    

复制代码

KEMIRWU

https://www.swbbsc.com/forum.php?mod=viewthread&tid=289534

yanwei1945

   经典案例图书

KEMIRWU 发表于 2021-9-24 14:11
想问下你的PDM是哪个版本的?

2019的哈