如何判断当前打开文件是零件，装配体还是工程图

song35151

   经典图书

如题求VBA代码，有大神愿意帮忙吗

随遇而安9528

1. 
   
2.  
   
3. Dim swApp As Object
   
4. Dim document As Object
   
5. 
   
6. Set swApp = CreateObject("SldWorks.Application")
   
7. swApp.Visible = True
   
8. 
   
9. ' 打开零件文件
   
10. Set document = swApp.OpenDoc("零件.sldprt", 0, "", "", "")
    
11. 
    
12. If document.GetType = 1 Then
    
13.     MsgBox "当前打开的文件是零件。"
    
14. ElseIf document.GetType = 2 Then
    
15.     MsgBox "当前打开的文件是装配体。"
    
16. ElseIf document.GetType = 3 Then
    
17.     MsgBox "当前打开的文件是工程图。"
    
18. Else
    
19.     MsgBox "文件打开失败！"
    
20. End If
    
21. 
    
22. swApp.Quit
    

复制代码

yaloman

   经典图书

Sub 测试文档类型()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
MsgBox (Part.GetType)
'1 2 3
End Sub

沉默的人

顶一下，坐等高手！

随遇而安9528

   经典案例图书

  Dim swApp As Object Dim document As Object  Set swApp = CreateObject("SldWorks.Application") swApp.Visible = True  ' 打开零件文件 Set document = swApp.OpenDoc("零件.sldprt", 0, "", "", "")  If document.GetType = 1 Then     MsgBox "当前打开的文件是零件。" ElseIf document.GetType = 2 Then     MsgBox "当前打开的文件是装配体。" ElseIf document.GetType = 3 Then     MsgBox "当前打开的文件是工程图。" Else     MsgBox "文件打开失败！" End If  swApp.Quit

随遇而安9528

  Dim swApp As Object Dim document As Object  Set swApp = CreateObject("SldWorks.Application") swApp.Visible = True  ' 打开零件文件 Set document = swApp.OpenDoc("零件.sldprt", 0, "", "", "")  If document.GetType = 1 Then     MsgBox "当前打开的文件是零件。" ElseIf document.GetType = 2 Then     MsgBox "当前打开的文件是装配体。" ElseIf document.GetType = 3 Then     MsgBox "当前打开的文件是工程图。" Else     MsgBox "文件打开失败！" End If  swApp.Quit

song35151

   经典案例图书

yaloman 发表于 2024-1-3 16:13
Sub 测试文档类型()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

谢谢大神，此代码完美解决

springman

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