CAD使用vba获取字体的位置

在 AutoCAD 中，你可以使用 VBA 代码获取字体的位置。下面是一个简单的示例，可以帮助你实现这个功能：

Public Sub GetTextPosition()
    Dim ent As AcadEntity
    Dim text As AcadText
    Dim pos As Variant
    
    ' 选择要获取位置的文本对象
    Set ent = ThisDrawing.Utility.GetEntity
    
    ' 确认选择的是文本对象
    If TypeOf ent Is AcadText Then
        Set text = ent
        
        ' 获取文本的插入点坐标
        pos = text.InsertionPoint
        
        ' 在命令行输出坐标信息
        ThisDrawing.Utility.Prompt "Text position: " & pos(0) & ", " & pos(1) & vbCrLf
    Else
        ThisDrawing.Utility.Prompt "Please select a text object." & vbCrLf
    End If
End Sub

这个示例代码中，我们首先使用 `GetEntity` 方法让用户选择要获取位置的文本对象。然后，我们检查用户选择的实体是否为文本对象，如果是，就获取文本的插入点坐标，并在命令行输出这个坐标信息。

你可以将这个示例代码保存为 VBA 宏，然后在 AutoCAD 中执行它来测试。