CAD中如何批量置换多个文件中的字体？

zhaokq

我用AutoCAD2006版本绘制CAD机械文件有很多个，大约是12000个零件图纸。这些零件为.DWG扩展文件名。在这些文件中关于字体是这样定义的：
1. Standard                        【txt.shx】  使用大字体【gbcbig.shx】
6 Y' s4 N4 o( {' l6 U3 l. V2. 工程字                            【txt.shx】  使用大字体【hztxt.shx】
; U- S0 k+ X3 i' ~  ]3.单位名称                          【txt.shx】  使用大字体【khz.shx】
; A  M, L! e$ B/ g; E! a9 z2 p3 o
问题是现在要把这12000个零件图纸中的字体都作如下置换
1. Standard                        【gbtxt.shx】  使用大字体【hztxt.shx】
+ [; o+ T/ B0 ~8 f0 m4 G2. 工程字                            【gbtxt.shx】  使用大字体【hztxt.shx】
3.单位名称                          【gbtxt.shx】  使用大字体【hztxt.shx】

# @2 n2 d8 L/ Z) Z# Q, ?6 j, A我现在是一个一个文件用"style"命令进行修改，速度太慢，请问各位是否有快捷的办法呢？
1 b6 X! t# h4 e5 K急急急急！！！
" r$ o& {+ \; m; ?  F7 Z
/ ?3 l5 N/ q$ y% g[ 本帖最后由 wsj249201 于 2008-6-11 21:52 编辑 ]

sealive_leafage

修改字体比较简单，只是图纸量比较大，改起来比较繁琐，可以考虑使用lisp解决，定义个在启动时加载的文件，打开文件是在底层完成字体修改，然后保存即可，这样只需要打开所有图纸即可实现；
) ^- P0 R! i! h! C
4 F- T% ^( Q+ {9 D) ~& ^$ b[ 本帖最后由 sealive_leafage 于 2008-1-9 08:47 编辑 ]

foremast

修改style之后字体不就跟着自动改过来了

zhaokq

请二楼的同志讲详细些！

sealive_leafage

原帖由 zhaokq 于 2008-1-9 14:23 发表 http://www.3dportal.cn/discuz/images/common/back.gif
1 m4 v1 e7 C2 O* X( F请二楼的同志讲详细些！

$ ~, ~  w* g5 I+ t
' s& W+ |# j, e1 e) |% Blisp代码：
(setq var (getvar "cmdecho"))
  (setvar "cmdecho" 0)
# H) [1 M( m3 A3 `2 r' x0 J  (command "-style" "standard" "gbtxt.shx,hztxt.shx" "" "" "" "" "" "")
  (command "-style" "单位名称" "gbtxt.shx,hztxt.shx" "" "" "" "" "" "")
  (command "-style" "工程字" "gbtxt.shx,hztxt.shx" "" "" "" "" "" "")
  ;;(command "-style" "standard" "txt.shx,bigfont.shx" "" "" "" "" "" "")
- b) m& p$ {" v' l  ;;(command "-style" "单位名称" "txt.shx,bigfont.shx" "" "" "" "" "" "")
9 `1 o  K/ [" I& k5 f  ;;(command "-style" "工程字" "txt.shx,bigfont.shx" "" "" "" "" "" "")
  (setvar "cmdecho" var)
  (command "_qsave")
  (command "close")
/ ]( o0 z1 K1 k" _! \
: W. z. c3 ~2 ?代码放在acad.lsp文件中，将此文件放在CAD的support文件夹中，在“选项”中设置每个文件都加载acad.lsp；使用时只需打开要修改的文件即可；自己电脑上2008版调试通过；建议楼主先备份一个要修改的文件然后做试验，修改后删除acad.lsp再次打开修改后的文件，如果成功无问题后在做批量修改；
; B* ^) I4 s8 N1 s1 ?0 L6 e本程序只作方法指导用，建议楼主使用前仔细调试，因各人电脑及软件差异，制作者不承担由此带来的一切后果！