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

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

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

发表回复

精选推荐