xk2005 发表于 2020-6-13 17:13:19

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

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

pmq 发表于 2020-6-19 11:01:19

    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 发表于 2020-10-31 21:54:42

可以用GetBoundingBox函数

numberdyb 发表于 2020-10-31 21:56:55

GetBoundingBox   函数是获取文本框的大小，不是文字高度哈。不知道你是不是想要这个，可以用它画文本边框或文本对齐
页: [1]
查看完整版本: 求助大神，VBA如何获得选定的单行文字的高度