index

代码说明

该示例显示当前在SOLIDWORKS中活动文档的类型的消息框。无论文档是否已保存，都可以使用IModelDoc2::GetType SOLIDWORKS API方法返回类型枚举，该枚举将标识文档为SOLIDWORKS零件、装配或绘图。

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2

Sub main()

    Set swApp = Application.SldWorks
    
    Set swModel = swApp.ActiveDoc
    
    If Not swModel Is Nothing Then
        
        Select Case swModel.GetType
            
            Case swDocPART:
                MsgBox "活动文档是零件"
            
            Case swDocASSEMBLY:
                MsgBox "活动文档是装配"
                
            Case swDocDRAWING:
                MsgBox "活动文档是绘图"
        End Select
        
    Else
        
        MsgBox "未打开文档"
        
    End If
    
End Sub

代码说明

• 首先，我们声明了一个swApp变量和一个swModel变量，分别用于存储SOLIDWORKS应用程序和活动文档的引用。
• 在main子过程中，我们将swApp设置为Application.SldWorks，以获取SOLIDWORKS应用程序的引用。
• 然后，我们将swModel设置为swApp.ActiveDoc，以获取活动文档的引用。
• 如果swModel不为空，则使用Select Case语句根据文档的类型进行判断。
• 如果文档类型是swDocPART，则显示消息框"活动文档是零件"。
• 如果文档类型是swDocASSEMBLY，则显示消息框"活动文档是装配"。
• 如果文档类型是swDocDRAWING，则显示消息框"活动文档是绘图"。
• 如果swModel为空，则显示消息框"未打开文档"。

示例

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2

Sub main()

    Set swApp = Application.SldWorks
    
    Set swModel = swApp.ActiveDoc
    
    If Not swModel Is Nothing Then
        
        Select Case swModel.GetType
            
            Case swDocPART:
                MsgBox "活动文档是零件"
            
            Case swDocASSEMBLY:
                MsgBox "活动文档是装配"
                
            Case swDocDRAWING:
                MsgBox "活动文档是绘图"
        End Select
        
    Else
        
        MsgBox "未打开文档"
        
    End If
    
End Sub

[!INCLUDE code-snippet]