求助大神，VBA如何获得选定的单行文字的高度

xk2005

求助大神，VBA如何获得选定的单行文字的高度？求代码

pmq

    Dim Sel As AcadSelectionSet    'Ñ¡Ôñ¼ˉ
    On Error Resume Next
   
    '′íÎó′|àí
    Set Sel = ThisDrawing.SelectionSets(ssName)
    If Err Then Set Sel = ThisDrawing.SelectionSets.Add(ssName)
   
    '3õê¼×′ì¬ÏÂÇå¿ÕÑ¡Ôñ¼ˉ
    Sel.Clear
    Me.Hide
    Sel.SelectOnScreen
    For Each ent In Sel
        Select Case ent.ObjectName
        Case "AcDbText"
            MsgBox ent.Height
        Case Else
        End Select
    Next

numberdyb

可以用  GetBoundingBox  函数

numberdyb

GetBoundingBox   函数是获取文本框的大小，不是文字高度哈。不知道你是不是想要这个，可以用它画文本边框或文本对齐