请看 TextStyle.width 的说明：
TextStyle: Sets the character spacing. Entering a value of
less than 1.0 condenses the text. Entering a value of greater than 1.0 expands
it. The maximum value is 100.
Dim myTextSt As AcadTextStyle
Set myTextSt = ThisDrawing.TextStyles.Add("Hztxt")
With myTextSt
.Width = 0.8
.fontFile = "D:\Program Files\AutoCAD 2004\Fonts\tssdeng.shx"
.BigFontFile = "D:\Program Files\AutoCAD 2004\Fonts\hztxt.shx"
End With
置顶卡
