[VBA程序]：向高手求助2!

xs212549

如何获取text或者mtext的插入点坐标以及文字内容?

tsuihan

获取Text或MText对象后，直接取得其各种属性值，包含你所说的插入点、文字串等。
<pre>
Sub START()
    On Error Resume Next
    Dim ent As AcadEntity
   
SELECT_TEXT:
    ThisDrawing.Utility.GetEntity ent, pciPnt, " >>Select Text or Mtext:"
   
    If Err Then
        Err.Clear
        End
    End If
   
    Dim textObj As AcadText
    Dim MTextObj As AcadMText
    Dim resStr As String, pnt As Variant
    If ent.ObjectName = "AcDbText" Then
        Set textObj = ent
        resStr = textObj.TextString
        pnt = textObj.InsertionPoint
    Else
        If ent.ObjectName = "AcDbMText" Then
            Set MTextObj = ent
            resStr = MTextObj.TextString
            pnt = MTextObj.InsertionPoint
        Else
            GoTo SELECT_TEXT
        End If
    End If
   
    Dim info As String
    info = resStr & vbCr
    info = info & "Insert point:(" & pnt(0) & "," & pnt(1) & ")"
    MsgBox info, vbInformation, "Tsuihan@163.com"
End Sub

</pre>

xs212549

非常感谢,tsuihan