连接autocad的vb实例.txt

《AutoCAD VBA开发技术》一书的源代码。对从事AutoCAD二次开发的朋友参考价值极高。

\'先引用CAD2004类型库

Dim acadDoc As AcadDocument
Dim acadApp As AcadApplication
Dim acadmspace As AcadModelSpace

On Error Resume Next
    Dim newLayer As Object
\' Connect to the AutoCAD application

    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
    AppActivate acadApp.Caption
    acadApp.Visible = True
    acadApp.WindowState = 1
    Set acadDoc = acadApp.ActiveDocument
    Set acadmspace = acadDoc.ModelSpace