关于用vb改字体的问题

renowen

[QUOTE] 请问如何用vb修改acad文件中的字体，我想修改成仿宋_GB2312?? 我曾经如下修改 Set strObj = acadApp.ActiveTextStyle Set newObj = acadApp.TextStyles.Add("FS")
Set strObj = newObj
Set acadApp.ActiveTextStyle = strObj

strObj.BigFontFile = "fs"
strObj.fontfile = "simfang.ttf" strObj.Width = 0.8 但不成功！！ 又改成 Set newObj = acadApp.TextStyles.Add("FS")
Set strObj = newObj
Set acadApp.ActiveTextStyle = strObj

strObj.BigFontFile = ""
strObj.fontfile = "仿宋_GB2312" strObj.Width = 0.8 虽然显示了仿宋，但是在font name 用的是：仿宋_GB2312.shx 手工在font name 用的是：仿宋_GB2312 和用手工改的不一样！

renowen

加一句我用的是R14(2000以上的免谈,),VB6.0！