连接autocad的vb实例.txt

来自「《AutoCAD VBA开发技术》一书的源代码。对从事AutoCAD二次开发的朋」· 文本 代码 · 共 25 行

\'先引用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