怎样设置属性块中文字的宽度比例？

zzp-2000 · 发表于 2005-1-22 16:13:00

我做了一个属性块，并且设置了文字的显示宽度，在输入文字的时候，由于文字字符数量有长有短，需要根据文字的长短随时调整文字的宽度比例，那位高手帮忙解决一下？另如果文字中含有数字，会有不同的处理方法吗？
感谢中！

tfyyf · 发表于 2005-1-23 09:26:00

TextObj.ScaleFactor =

zzp-2000 · 发表于 2005-1-23 13:26:00

如果我设定文字的显示宽度为8，字符为两个中文字符，宽度比例为0.67,但我要在8的宽度范围内显示4个字符,那宽度比例就要改变,我要知道怎样根据字符数量来确定宽度比例?并且字符和数字及中文字符怎样分别处理?

雪山飞狐_lzh · 发表于 2005-1-23 13:55:00

可以把属性文本的对齐方式改为“调整”，再更改文本插入点和对齐点的坐标值

tfyyf · 发表于 2005-1-23 18:28:00

Set AcadApp = GetObject(, "AutoCAD.Application")    ' 获得AutoCAD对象
   Set objDoc = AcadApp.ActiveDocument
   ' 初始化 TEXT 的起点
   StartPoint(0) = 10#
   StartPoint(1) = 10#
   StartPoint(2) = 0#
   ' 写一串 TEXT, 其中字高为 5
   Set Ent = objDoc.ModelSpace.AddText("textString", StartPoint, 5#)
   ' 初始化 TEXT 的调整点
   Point1(0) = 20#
   Point1(1) = 10#
   Point1(2) = 0#
   With Ent
   .Color = 1    ' 改用红色
   .ObliqueAngle = 0.174444    ' 改倾斜角度
   .VerticalAlignment = 0    ' 设垂直位置为 0
   .ScaleFactor = 1#    ' 设文字高宽比，当需要两端对齐时，必须任意给一个值
   .HorizontalAlignment = 5    ' 设文字为两端对齐
   .TextAlignmentPoint = Point1 ' 设对齐点
   End With
AcadApp.ActiveDocument.ActiveViewport = AcadApp.ActiveDocument.ActiveViewport
   Set AcadApp = Nothing

怎样设置属性块中文字的宽度比例？

发表回复

精选推荐