vba 读取cad图元坐标

在 VBA 中读取 CAD 图元的坐标，可以使用 AutoCAD 提供的 COM 接口。下面是一个简单的示例代码，可以读取选择的第一个图元的坐标：

Sub ReadCoordinates()
    Dim acadApp As Object
    Set acadApp = GetObject(, "AutoCAD.Application")
    
    If Not acadApp Is Nothing Then
        ' 获取当前文档和模型空间
        Dim doc As Object
        Set doc = acadApp.ActiveDocument
        Dim ms As Object
        Set ms = doc.ModelSpace
        
        ' 选择第一个图元
        acadApp.ActiveDocument.SendCommand "_select" & vbCr & "first" & vbCr
        
        ' 获取选择集
        Dim ss As Object
        Set ss = doc.SelectionSets.Item("SS1")
        
        ' 获取第一个图元的坐标
        If ss.Count > 0 Then
            Dim ent As Object
            Set ent = ss.Item(0)
            If TypeOf ent Is acadApp.AcDbEntity Then
                Dim entCoord As Variant
                entCoord = ent.Coordinates
                
                ' 显示坐标
                MsgBox "X: " & entCoord(0) & vbNewLine & _
                       "Y: " & entCoord(1) & vbNewLine & _
                       "Z: " & entCoord(2)
            End If
        End If
        
        ' 清除选择集
        ss.Delete
    End If
End Sub

需要注意的是，上述代码中的 `GetObject` 方法会获取正在运行的 AutoCAD 应用程序实例。如果没有运行 AutoCAD，则会返回 `Nothing`。同时，上述代码中的选择集名称为 "SS1"，需要确保其在当前文档中存在。可以通过在 AutoCAD 中执行 `SELSET` 命令来创建选择集。