Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
On Error Resume Next
Set CadApp = GetObject(, "AutoCAD.Application")
If Err.Number <> 0 Then 'Not Running
Set CadApp = CreateObject("AutoCAD.Application")
Err.Clear
'AutoCAD may open a new drawing upon opening - close it
CadApp.ActiveDocument.Close False
If Err.Number <> 0 Then
Err.Clear 'No Drawings are Open
End If
End If
On Error GoTo 0