[求助]定义字体问题

yj821005

    Const DEFAULT_CHARSET As Long = 1
    Const FIXED_PITCH As Long = 1
    Const FF_ROMAN As Long = 16
    Dim TextColl As AcadTextStyles
    Set TextColl = ThisDrawing.TextStyles
    Dim textStyle As AcadTextStyle
    Set textStyle = TextColl.Add("Yujun")
    Dim TypeFace As String
    Dim Bold As Boolean
    Dim Italic As Boolean
    Dim CharSet As Long
    Dim PitchAndFamily As Long
    TypeFace = 仿宋_GB2312"

    Bold = False
    Italic = False
    CharSet = DEFAULT_CHARSET
    PitchAndFamily = FIXED_PITCH Or FF_ROMAN
    textStyle.SetFont TypeFace, Bold, Italic, CharSet, PitchAndFamily
    textStyle.height = 3
    textStyle.Width = 0.7

以上代码是我定义的一种字体，但是用的是仿宋_GB2312，也就是Windows自带的字体，但是我想改成CAD特有的.shx字体，如simplex9.shx如何修改，将TypeFace = 仿宋_GB2312"直接改成TypeFace = simplex9.shx"好像不对，

请问各位如何解决，谢谢！

wyj7485

直接这样定义:

Dim MyTxtType As AcadTextStyle
Set MyTxtType = ThisDrawing.TextStyles.Add("Yujun")
MyTxtType.SetFont "simplex9.shx", False, False, 0, 0

sharksun

wyj7485发表于2005-7-27 10:49:00 直接这样定义: Dim MyTxtType As AcadTextStyleSet MyTxtType = ThisDrawing.TextStyles.Add(\"Yujun\")MyTxtType.SetFont \"simplex9....

    应该是setfont "simplex", 没有.shx,  只有设置大字体时，才需要后缀的。

另外，楼主，simplex9是什么字体？fonts文件里没有的话，当然会出错的。

yj821005

郁闷，好像两位说的都不行啊，字体文件里面肯定有的。刚才试了试好像只有“txt”是能通过的，其他都不能通过，而且运行完了好像并没有设置为“txt”字体

wyj7485

wyj7485发表于2005-7-27 10:49:00 直接这样定义: Dim MyTxtType As AcadTextStyleSet MyTxtType = ThisDrawing.TextStyles.Add(\"Yujun\")MyTxtType.SetFont \"simplex9....

以上这种设置对汉字体有用

采用以下语句就可以了:

Dim MyTxtType As AcadTextStyle
Set MyTxtType = ThisDrawing.TextStyles.Add("Yujun")
MyTxtType.fontFile = "simplex9.shx"

yj821005

谢谢楼上的，送鲜花一朵！呵呵