字体样式中宽度比例的设置？？？

smxzt

在cad二次开发中怎么把字体样式中宽度比例设置成自己想要的宽度比例？？？？

用 SetFont(typeFace,Bold,Italic,charSet,PitchandFamily); 来实现

不知PitchandFamily怎么设置

各位大虾，帮帮忙给解决一下，最好有例子，

先谢谢了

smxzt

怎么没人回答呢？

alfalfa

请看 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

smxzt

谢谢了