求救，如何获取当前样式的字高？

13022164437

  Dim height As Double
  Dim dimsty As AcadDimStyle
  Set dimsty = ThisDrawing.ActiveDimStyle
  MsgBox "样式名：" & ThisDrawing.ActiveDimStyle.Name
  ‘如何获取当前标注样式的字高？下面代码不对
   MsgBox "dimsty样式字高：" & dimsty.TextHeight
 

mccad

标注样式的对象模型并没有提供详细的样式各设置内容，如果需要，折中的方法是在图面上添加一个标注后，取得它的字高。

兰州人

dim objText as AcadText

解决方法

通过获得实体

ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
或

for each returnObj in thisdrawing

set objText = returnObj

''''

" & ThisDrawing.ActiveDimStyle.Name
  ‘如何获取当前标注样式的字高？下面代码不对
   MsgBox "dimsty样式字高：" & dimsty.TextHeight
关注这个点.

  Debug.Print objText.Height获取字体的高.

楼主的