13022164437 发表于 2008-10-22 11:16:00

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

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

mccad 发表于 2008-10-22 12:29:00

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

兰州人 发表于 2008-11-1 18:30:00

<p>dim objText as AcadText </p><p>解决方法 </p><p>通过获得实体</p><p>ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"<br/>或</p><p>for each returnObj in thisdrawing</p><p>set objText = returnObj</p><p></p><p>''''</p><p>" &amp; ThisDrawing.ActiveDimStyle.Name<br/>&nbsp; ‘如何获取当前标注样式的字高？下面代码不对<br/>&nbsp;&nbsp; MsgBox "dimsty样式字高：" &amp; dimsty.TextHeight<br/>关注这个点.</p><p>&nbsp; Debug.Print objText.Height获取字体的高.</p><p>楼主的</p><p></p>
页: [1]
查看完整版本: 求救，如何获取当前样式的字高？