MACRO LIBRARY

Lesson 7.4 code - start

Free public access. No account or subscription required.

Files

Lesson 7.4 - Change selected face color - start

Code

Dim swApp As SldWorks.SldWorks
Public swModel As SldWorks.ModelDoc2
    
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    'Make sure a part or assy is open
    If swModel Is Nothing Then
        MsgBox "Run in part or assembly."
        End
    End If
    If swModel.GetType = swDocDRAWING Then
        MsgBox "Run in part or assembly."
        End
    End If
    
End Sub