VBA 添加 AUTOCAD 引用

要在VBA中添加AutoCAD引用，您需要按照以下步骤操作：

1. 打开AutoCAD，并打开Visual Basic编辑器。在AutoCAD命令行中输入“VBAIDE”即可打开编辑器。

2. 在Visual Basic编辑器中，选择“工具”菜单，然后选择“引用”。

3. 在“引用”对话框中，滚动查找“AutoCAD xx.x Type Library”（其中“xx.x”为您安装的AutoCAD版本号），选中该选项，然后单击“确定”。

4. 现在，您可以在VBA代码中使用AutoCAD对象了。例如，以下代码将在AutoCAD中创建一个新的直线：

Sub DrawLine()
    Dim acadApp As Object
    Dim acadDoc As Object
    Dim startPoint As Variant
    Dim endPoint As Variant
    
    '获取AutoCAD应用程序和文档对象
    Set acadApp = GetObject(, "AutoCAD.Application")
    Set acadDoc = acadApp.ActiveDocument
    
    '设置直线的起点和终点
    startPoint = Array(0, 0, 0)
    endPoint = Array(10, 10, 0)
    
    '在AutoCAD中创建直线
    acadDoc.ModelSpace.AddLine startPoint, endPoint
End Sub

希望这可以帮助您添加AutoCAD引用并在VBA中使用AutoCAD对象。