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

如何确定单行文字的长度

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

雪山飞狐_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函数不听使唤

请斑竹看一下怎么回事！！！<BR>GetBoundingBox函数不听使唤！<BR>代码如下：<BR>Dim txtobj As AcadText<BR>                       Dim pnt0(0 To 2) As Double<BR>                       pnt0(0) = 0: pnt0(1) = 0: pnt0(2) = 0<BR>                       Set txtobj = ThisDrawing.ModelSpace.AddText("aaaaaaaaaa", pnt0, 3)<BR>               <BR>                       Dim pnt3, pnt4 As ACAD_POINT<BR>                       txtobj.GetBoundingBox pnt3, pnt4<BR>                       Dim lineobj As AcadLine<BR>                       <BR>                       Set lineobj = ThisDrawing.ModelSpace.AddLine(pnt3, pnt4)<BR>本来我想从文本对象边框的最大和最小点画一条，结果成了图片的样子？如何解决？？！！谢谢





雪山飞狐_lzh 发表于 2004-4-18 19:39:00

我运行的挺好的


你把ACAD_POINT换成Variant试试

rscenter 发表于 2004-4-18 20:11:00

难道和我设置的文字样式中的宽度比例由关系吗？？？<BR>一开始我的cad模板默认的文字样式中的宽度比例为0.66，出现上述症状，把宽度比例调成1，没有问题！


请问如何根据不同的宽度比例调整？？？？？

雪山飞狐_lzh 发表于 2004-4-18 20:50:00

和宽度比例应该没有关系，我以前宽度比例为0.75，也没有出现过

莫名 发表于 2004-4-18 21:38:00

GetBoundingBox 和文字宽度比例没有关系
页: [1]
查看完整版本: 如何确定单行文字的长度