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

whyer 发表于 2003-11-24 19:33:00

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

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

yfy2003 发表于 2003-11-24 19:46:00

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("黑体")
设置为当前字体后开始写文字！

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