如何将AutoCAD默认文档赋值给变量？基于Excel VBA调用场景

嘿，我帮你梳理下怎么搞定这个把AutoCAD默认文档赋值给变量的问题！你现有的代码已经迈出了获取AutoCAD实例的第一步，缺的就是文档赋值的关键逻辑，下面给你补全并解释清楚：

修正后的完整代码 #

Sub Open_AutoCad(ByRef NewFile As AcadDocument, ByRef ACAD As AcadApplication)
    On Error Resume Next
    ' 尝试抓取已在运行的AutoCAD实例
    Set ACAD = GetObject(, "AutoCAD.Application")
    
    If Err.Number <> 0 Then
        Err.Clear
        ' 没找到实例，新建AutoCAD应用程序
        Set ACAD = CreateObject("AutoCAD.Application")
        ' 新建AutoCAD时会自动生成一个空白文档，直接取这个默认文档
        Set NewFile = ACAD.ActiveDocument
    Else
        ' 实例已存在，检查当前有没有打开的文档
        If ACAD.Documents.Count = 0 Then
            ' 没有文档的话，新建一个空白图纸
            Set NewFile = ACAD.Documents.Add
        Else
            ' 已有活跃文档，直接赋值给变量
            Set NewFile = ACAD.ActiveDocument
        End If
    End If
    
    ' 可选：让AutoCAD界面显示出来（后台运行的话可以注释掉）
    ACAD.Visible = True
    
    On Error GoTo 0 ' 恢复正常错误处理，避免后续代码忽略错误
End Sub

' 调用示例，测试用
Sub TestAutoCADDrawing()
    Dim acadApp As AcadApplication
    Dim acadDoc As AcadDocument
    
    Call Open_AutoCad(acadDoc, acadApp)
    
    ' 举个绘图例子：在模型空间画一条从(0,0,0)到(100,100,0)的直线
    Dim testLine As AcadLine
    Set testLine = acadDoc.ModelSpace.AddLine( _
        CreateObject("AutoCAD.Point").SetCoordinates(0, 0, 0), _
        CreateObject("AutoCAD.Point").SetCoordinates(100, 100, 0) _
    )
    acadDoc.Regen True ' 刷新视图显示图形
End Sub

关键逻辑说明 #

• 参数传递用ByRef：这样在Open_AutoCad过程里对NewFile和ACAD的赋值，能直接传递回调用的代码里，不用额外返回值。
• 默认文档的两种情况：
  • 当你新建AutoCAD实例时，AutoCAD会自动创建一个名为Drawing1.dwg的空白文档，直接通过ACAD.ActiveDocument就能拿到它。
  • 如果AutoCAD已经在运行但没打开任何图纸，就调用ACAD.Documents.Add新建一个空白文档。
• 错误处理优化：用On Error Resume Next只处理实例获取的错误，之后恢复On Error GoTo 0，避免后续代码的错误被莫名忽略，这是个好习惯。
• 界面可见性：加上ACAD.Visible = True能让AutoCAD窗口显示出来，方便你查看绘图结果；如果需要后台静默运行，把这行注释掉就行。

内容的提问来源于stack exchange，提问作者Forward Ed