szuki 发表于 2010-7-30 08:40:00

我的做法是 复制gbcbig，在新复制的前面加个0，这样跳出的窗口里0gbcbig永远是第一个的，直接点确定即可。

chris5257 发表于 2010-7-31 08:48:00

<p>谢谢！其实这个问题的解决方法是有很多的，但现在有人非要让我把选择列表里的其它选项都删除，只保留想要的，一直都想不出怎么搞。</p>

wwswwswws 发表于 2010-8-23 12:05:00

szuki的方法不错，其它我也没招，这个问题不好处理。来帮顶一下。

mocohett 发表于 2011-5-14 16:09:19

记事本打开不需要的字体样式，删除不需要字体样式里面的内容，CAD下次打开图形时自动不加载空选项

gulong2001 发表于 2011-5-15 12:22:11

另外，我可以在beginopen事件中通过设置Preferences对象的altfontfile属性来直接用gbcbig.shx替换掉所有未知字体，这样指定字体对话框就不出现了
楼主真能这样么？修改altfontfile能使字体对话框不出现么？好像只对“不是大字体”的起效果。现在基本都用大字体。
还有altfontfile直接在CAD工具-选项中修改就可以或者直接改一次就可以了，难道要放在beginopen事件每次都修改么？？
我之前研究过一段时间字体替换的，一直没有实现不出现那个替换字体框，希望能和楼主交流交流，盼复

dougyu@126.com 发表于 2011-11-21 23:06:41

你是怎么做到的？我也是用ALTFONTfile命令，不行呢？可否发我一份dougyu@126.com

d421338549 发表于 2011-12-13 23:16:21

你说的那样根本无法实现，    Set preferences1 = ThisDrawing.Application.preferences

currAltFontFile = preferences.Files.AltFontFile
    MsgBox "The current value for AltFontFile is " & currAltFontFile, vbInformation, "AltFontFile 示例"
   

    Dim newAltFontFile As String
    newAltFontFile = "d:/Program Files/AutoCAD 2010/Fonts/txt.shx"
   
    preferences1.Files.AltFontFile = newAltFontFile


有事儿切磋，d421338549@126.com
我能实现你下面的效果

d421338549 发表于 2011-12-13 23:24:51

QQ 421338549 详聊

【KAIXIN】 发表于 2012-4-15 10:04:49

这里有你要的答案；
http://bbs.mjtd.com/thread-93031-1-1.html
页: 1 [2]
查看完整版本: 向各位高手请教个字体替换的问题