请问VB如何控制CAD中文字的字体？且不使输入的中文字为“？”（请高手帮忙写出代码

whyer

请问VB如何控制CAD中文字的字体？且不使输入的中文字为“？”（请高手帮忙写出代码）[br]请问VB如何控制CAD中文字的字体？且不使输入的中文字为“？”（请高手帮忙写出代码）

yfy2003

Dim Styleobj As AcadTextStyle             '汉字字体集合
        Set AcadDoc = acadApp.ActiveDocument
        Set MoSpace = AcadDoc.ModelSpace
        Set paSpace = AcadDoc.PaperSpace
        acadApp.Visible = acTrue
        Set Styleobj = AcadDoc.TextStyles.Add("黑体")
        Styleobj.fontFile = "c:\windows\fonts\simhei.ttf"
        Set Styleobj = AcadDoc.TextStyles.Add("仿宋")
        Styleobj.fontFile = "c:\windows\fonts\simfang.ttf"
        Set Styleobj = AcadDoc.TextStyles.Add("楷体")
        Styleobj.fontFile = "c:\windows\fonts\simkai.ttf"
。。。。。。。

AcadDoc.ActiveTextStyle = AcadDoc.TextStyles.Add("黑体")
设置为当前字体后开始写文字！