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
页: [1]
查看完整版本: 怎样设置属性块中文字的宽度比例？