wuhuan2080 发表于 2010-6-29 23:20:00

[求助]如何得到选择集选择的文本字体真实高度？

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;&nbsp; 图层layer 0是 HZ字体， </p>
<p>&nbsp; 选择集选的文本是romans字体，字体高度为3，但为什么用&nbsp;<font face="Verdana">&nbsp; </font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Height = objText.Height&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp; 或者Height = TextHeight(objString)&nbsp;&nbsp;</font></p>
<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 得到的Height都不是3，而是510，很奇怪？（由于CAD是2004，用不了GetTextHeight（））</p>
<p>&nbsp;</p>
<p>如下代码供参考：</p>
<p>&nbsp;</p>
<p><font face="Verdana">&nbsp; '过滤组码和过滤值</font></p>
<p><font face="Verdana">&nbsp;&nbsp; Dim FilterType(0) As Integer<br/>&nbsp;&nbsp; Dim FilterData(0) As Variant</font></p>
<p><font face="Verdana">&nbsp;&nbsp; FilterType(0) = 0<br/>&nbsp;&nbsp; FilterData(0) = "Text"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;'只选择文本对象</font></p>
<p><font face="Verdana">&nbsp; ssetObj.Select mode, point1, point2, FilterType, FilterData&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '选择矩形窗口内对象(acselectionsetwindow)<br/><br/>&nbsp; '循环每个被选择的实体<br/>&nbsp; Dim PickedObjs As AcadEntity<br/>&nbsp; For Each PickedObjs In ssetObj<br/>&nbsp; PickedObjs.Color = acRed&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;'可将所有被选择实体将变为红色</font></p>
<p><font face="Verdana">&nbsp; <br/>&nbsp; Set objText = PickedObjs&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;'将PickedObjs实体对象赋值给objText文本对象<br/>&nbsp; objString = objText.textString&nbsp;&nbsp;&nbsp; '得到每个实体对象的文本内容<br/>&nbsp; 'MsgBox objString&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '在屏幕上显示文本内容，测试时用<br/>&nbsp; 'Height = objText.GetTextHeight(objString)&nbsp;&nbsp; '返回指定行类型的文字高度。(2005新增)<br/>&nbsp; Height = objText.Height&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;'得到字体的高度<br/>&nbsp; 'Height = TextHeight(objString)&nbsp;&nbsp; '得到字体的高度<br/>&nbsp; MsgBox Height</font></p>
<p>&nbsp;</p>
<p>&nbsp;</p>
页: [1]
查看完整版本: [求助]如何得到选择集选择的文本字体真实高度？