vba 编程 第五课

Public acadAPP As AcadApplication
Public acadDoc As AcadDocument
Public ucsOBJ As AcadUCS





Public Sub 连接CAD()
On Error Resume Next
    Set acadAPP = GetObject(, "AutoCAD.Application")
    'acadAPP.Documents.Add
    If Err Then
            Err.Clear
            Set acadAPP = CreateObject("AutoCAD.Application")
            If Err Then
                MsgBox Err.Description
                Exit Sub
            End If
        End If
        acadAPP.Visible = True
        acadAPP.WindowState = acMax
        
       AppActivate acadAPP.Caption
End Sub