[求助]怎么对acadMtext中的字符的宽度进行设置

dyheng

对acadMtext中的字符可以通过object.height进行高度设置，有没有办法对acadMtext中字符的宽度进行设置啊，或通过其它方法间接地使其中的字符宽度变宽一点或变窄一点，应该怎么设置？

ljpnb

可以新建一种文字样式，改变宽度比例，再重新赋予mtextobj.StyleName

雪山飞狐_lzh

Sub tt()
Dim obj As AcadMText
ThisDrawing.Utility.GetEntity obj, pnt
obj.TextString = "{\W0.5;" & obj.TextString & "}"
End Sub

ljpnb

还是版主厉害，学了一招！