renowen 发表于 2005-5-28 02:03:00

关于用vb改字体的问题


请问如何用vb修改acad文件中的字体，我想修改成仿宋_GB2312??


我曾经如下修改



Set strObj = acadApp.ActiveTextStyle




Set newObj = acadApp.TextStyles.Add("FS")<BR>Set strObj = newObj<BR>Set acadApp.ActiveTextStyle = strObj<BR>        <BR>strObj.BigFontFile = "fs"<BR>strObj.fontfile = "simfang.ttf"


strObj.Width = 0.8


但不成功！！


又改成


Set newObj = acadApp.TextStyles.Add("FS")<BR>Set strObj = newObj<BR>Set acadApp.ActiveTextStyle = strObj<BR>        <BR>strObj.BigFontFile = ""<BR>strObj.fontfile = "仿宋_GB2312"


strObj.Width = 0.8



虽然显示了仿宋，但是在font name 用的是：仿宋_GB2312.shx


手工在font name 用的是：仿宋_GB2312



和用手工改的不一样！


renowen 发表于 2005-5-28 02:17:00

加一句我用的是R14(2000以上的免谈,),VB6.0！
页: [1]
查看完整版本: 关于用vb改字体的问题