如何确定单行文字的长度

rscenter · 发表于 2004-4-17 20:38:00

用vba的addtext在当前模型空间中写一段单行文字，请问如何确定文字的长度！
谢谢!

雪山飞狐_lzh · 发表于 2004-4-17 20:41:00

GetBoundingBox

efan2000 · 发表于 2004-4-17 22:28:00

如果文字有角度，GetBoundingBox不能正确返回文字的宽度，应该要先旋转到水平的位置，再用它求出包围它的矩形对象点坐标，然后旋转回原来的位置，

雪山飞狐_lzh · 发表于 2004-4-17 22:35:00

高手就是高手
考虑问题都全面些

rscenter · 发表于 2004-4-18 19:28:00

请斑竹看一下怎么回事！！！
GetBoundingBox函数不听使唤！
代码如下：
Dim txtobj As AcadText
   Dim pnt0(0 To 2) As Double
   pnt0(0) = 0: pnt0(1) = 0: pnt0(2) = 0
   Set txtobj = ThisDrawing.ModelSpace.AddText("aaaaaaaaaa", pnt0, 3)

   Dim pnt3, pnt4 As ACAD_POINT
   txtobj.GetBoundingBox pnt3, pnt4
   Dim lineobj As AcadLine

   Set lineobj = ThisDrawing.ModelSpace.AddLine(pnt3, pnt4)
本来我想从文本对象边框的最大和最小点画一条，结果成了图片的样子？如何解决？？！！谢谢

jh5h5pevc0e.bmp