请问VB如何控制CAD中文字的字体?且不使输入的中文字为“?”(请高手帮忙写出代码
请问VB如何控制CAD中文字的字体?且不使输入的中文字为“?”(请高手帮忙写出代码)请问VB如何控制CAD中文字的字体?且不使输入的中文字为“?”(请高手帮忙写出代码) 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("黑体")
设置为当前字体后开始写文字!
页:
[1]