[VBA]多行文字的宽度比例无法设置吧?

sharksun

单行文字有个scalefactor，多行文字有对应的属性么？

y1982_0

顶顶，我也想知道，正愁呢

sharksun

用 \w 吧。

y1982_0

多行文本没有scalefactor，只能用下面的方法，找个放缩的基点，然后把比例写上

    Set MTextObj = ThisDrawing.ModelSpace.AddMText(insertionPoint, width, textString)

    MTextObj.height = 1.5
   
    MTextObj.ScaleEntity insertionPoint, 0.8

单行可以这样:

 

'在模型空间创建文本对象
Set TextObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)

TextObj.ScaleFactor = 0.8