- Public WithEvents AutoCAD As AcadApplication
- Private bApp As Boolean
- Sub App_StartMacro()
- Set AutoCAD = ThisDrawing.Application
- End Sub
- Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
- If CommandName = "COMMANDLINE" Then
- Set AutoCAD = ThisDrawing.Application
- If Not bApp Then
- bApp = True
- AppStuff
- End If
- End If
- End Sub
- Private Sub AutoCAD_EndOpen(ByVal FileName As String)
- AppStuff
- End Sub
- Private sub Appstuff
- msgbox "appstuff"
- End Sub
|