VB启动acad。

Public Sub StartAcad()
    On Error Resume Next
    Set AcadApp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set AcadApp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If
    Set AcadDoc = AcadApp.ActiveDocument
    Set MoSpace = AcadDoc.ModelSpace
    Set PaSpace = AcadDoc.PaperSpace
    Set AcadUtil = AcadDoc.Utility
    AcadApp.Visible = True
End Sub