VB.NET 提取 AutoCAD 文字中心坐标和内容

在 AutoCAD 中，可以使用 DBObject 类中的子类 DBText 来提取文字的中心坐标和内容。以下是一个示例代码：

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry

Public Sub ExtractTextInfo()
    ' 获取当前文档和数据库
    Dim doc As Document = Application.DocumentManager.MdiActiveDocument
    Dim db As Database = doc.Database
    
    ' 开启事务处理
    Using trans As Transaction = db.TransactionManager.StartTransaction()
        ' 获取当前空间
        Dim space As BlockTableRecord = trans.GetObject(db.CurrentSpaceId, OpenMode.ForRead)
        
        ' 遍历当前空间中的所有实体
        For Each objId As ObjectId In space
            Dim entity As Entity = trans.GetObject(objId, OpenMode.ForRead)
            
            ' 判断是否为文字实体
            If TypeOf entity Is DBText Then
                Dim text As DBText = DirectCast(entity, DBText)
                
                ' 获取文字的中心坐标
                Dim center As Point3d = text.Position
                
                ' 获取文字的内容
                Dim content As String = text.TextString
                
                ' 输出文字的中心坐标和内容
                doc.Editor.WriteMessage('Center: ' & center.ToString())
                doc.Editor.WriteMessage('Content: ' & content)
            End If
        Next
    End Using
End Sub

以上代码中，我们首先获取当前文档和数据库，然后通过遍历当前空间中的所有实体，判断是否为 DBText 类型的实体。如果是，则可以使用 DBText 类的 Position 属性获取文字的中心坐标，使用 TextString 属性获取文字的内容。最后，我们输出中心坐标和内容到 AutoCAD 的命令行中。

请注意，在使用 DBObject 类的相关方法和属性时，需要在事务处理范围内进行操作，并且在结束后记得释放相关资源。