QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
3天前
查看: 6097|回复: 4
收起左侧

[已解决] CAD中如何批量置换多个文件中的字体?

[复制链接]
发表于 2008-1-8 11:17:19 | 显示全部楼层 |阅读模式 来自: 中国黑龙江哈尔滨

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
我用AutoCAD2006版本绘制CAD机械文件有很多个,大约是12000个零件图纸。这些零件为.DWG扩展文件名。在这些文件中关于字体是这样定义的:
/ L: w7 E) h% W) i' C8 \1. Standard                        【txt.shx】  使用大字体【gbcbig.shx】
6 u6 L: n6 z6 G$ N2. 工程字                            【txt.shx】  使用大字体【hztxt.shx】
: ~: o' D3 b8 r0 a: A+ n* W8 T( _3.单位名称                          【txt.shx】  使用大字体【khz.shx】5 H% i& \( y, M* e

; Y: ?8 z( z7 o6 N7 a- `问题是现在要把这12000个零件图纸中的字体都作如下置换2 e+ _- C. u0 Y% p/ Y+ f
1. Standard                        【gbtxt.shx】  使用大字体【hztxt.shx】
+ k, j7 p9 O" [" W2. 工程字                            【gbtxt.shx】  使用大字体【hztxt.shx】
1 a! P: J0 o, j- W0 j0 y& s3.单位名称                          【gbtxt.shx】  使用大字体【hztxt.shx】
# F' ?* z) |$ B1 O2 c3 b( N  T& G; Q- ]
我现在是一个一个文件用"style"命令进行修改,速度太慢,请问各位是否有快捷的办法呢?
& S2 K6 D; }) H% g0 f( Q3 @急急急急!!!! n2 X9 G* a  p' x( C6 _; n, C
$ O( _- N. U* \
[ 本帖最后由 wsj249201 于 2008-6-11 21:52 编辑 ]
发表于 2008-1-8 13:08:36 | 显示全部楼层 来自: 中国浙江宁波
修改字体比较简单,只是图纸量比较大,改起来比较繁琐,可以考虑使用lisp解决,定义个在启动时加载的文件,打开文件是在底层完成字体修改,然后保存即可,这样只需要打开所有图纸即可实现;
' S" z! H% c0 }/ @4 r! [  S  ]# J# ^( _: u  D" ~
[ 本帖最后由 sealive_leafage 于 2008-1-9 08:47 编辑 ]
发表于 2008-1-8 17:48:22 | 显示全部楼层 来自: 中国北京
修改style之后字体不就跟着自动改过来了
 楼主| 发表于 2008-1-9 14:23:18 | 显示全部楼层 来自: 中国黑龙江哈尔滨
请二楼的同志讲详细些!
发表于 2008-1-10 08:40:01 | 显示全部楼层 来自: 中国浙江宁波
原帖由 zhaokq 于 2008-1-9 14:23 发表 http://www.3dportal.cn/discuz/images/common/back.gif9 J4 n+ _3 O7 L
请二楼的同志讲详细些!

- u$ w0 s8 B8 T
& G: I% m9 X; f( n; _! [6 wlisp代码:! a" z* R4 ~- b
(setq var (getvar "cmdecho"))
" g4 ~( S' n9 m. P1 T! f- [2 ^2 X  (setvar "cmdecho" 0)
5 f: A) [  L/ K; _  (command "-style" "standard" "gbtxt.shx,hztxt.shx" "" "" "" "" "" "")
! j/ o' E5 |) D0 a' Z; ^3 B  (command "-style" "单位名称" "gbtxt.shx,hztxt.shx" "" "" "" "" "" "")
" {/ Z, C- j" q' {; u7 G3 O1 g  (command "-style" "工程字" "gbtxt.shx,hztxt.shx" "" "" "" "" "" "")
" O4 U+ b9 b. i# P% N: _  ;;(command "-style" "standard" "txt.shx,bigfont.shx" "" "" "" "" "" "")2 P  e  i( v8 z/ O
  ;;(command "-style" "单位名称" "txt.shx,bigfont.shx" "" "" "" "" "" "")# V6 e% e4 ^5 W. {; T$ D
  ;;(command "-style" "工程字" "txt.shx,bigfont.shx" "" "" "" "" "" "")
" K4 T7 I. q; n) ?7 `1 y% S  (setvar "cmdecho" var)% y" J4 `" y6 J- U# c
  (command "_qsave")$ H/ Y+ v" C; T  g) y- X9 O
  (command "close")8 u" Q0 l; R4 t6 |+ |

* r/ P. _( v- ~- D2 R代码放在acad.lsp文件中,将此文件放在CAD的support文件夹中,在“选项”中设置每个文件都加载acad.lsp;使用时只需打开要修改的文件即可;自己电脑上2008版调试通过;建议楼主先备份一个要修改的文件然后做试验,修改后删除acad.lsp再次打开修改后的文件,如果成功无问题后在做批量修改;
1 Q9 A8 _9 D; O本程序只作方法指导用,建议楼主使用前仔细调试,因各人电脑及软件差异,制作者不承担由此带来的一切后果!

acad.rar

252 Bytes, 下载次数: 38

评分

参与人数 1三维币 +5 收起 理由
★新手★ + 5 技术讨论

查看全部评分

发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表