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

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/threadcon-289534.html