|
|
发表于 2010-1-5 21:16:29
|
显示全部楼层
来自： 中国广东汕头
我得经历不知道是不是和你一样，我以前就这样改的。0 Y( p, m: ^" i
;给你一个字体替换程序，运行一下就行了，所有字体就替换了
1 h% }7 h B3 X% v1 S;更换所有文字字体' z8 L$ ]4 {2 g9 Z& _7 k* p' e
3 Y8 m4 `0 e" r4 Z
(defun C:zas ()4 M: q) o- n; S/ R K' a
(graphscr)
- o% r3 z& u v/ E6 ^/ l) k (initget 7)
C4 g* d; [, I+ \ ;(setq c1 (getstring "\nInput new color for all layers: ")) ;输入新颜色8 W: A8 K. d" C/ ], n
(setq a1 (tblnext "style" t)) ;将指针移到第一个字体
' K! \- W" G6 R; b. q; D7 x ; (princ a1)
, P4 H7 b! N3 Z7 l;(setq a2 (cdr (assoc 2 a1))) ;取出图层名称
4 u1 H' L [' X& s# v0 R ; (setq a3 (entget (tblobjname "style" a2))) ;取出图层的数据串行
2 D% u3 M( C- Z |+ v5 }* K ; (princ " a3= ")(princ a3)5 |8 M, v* W0 o% h
(while a1
) {$ V2 O& m f: l/ ?* i- M% g (setq a2 (cdr (assoc 2 a1))) ;取出字体名称
6 }/ `' \5 z; X: V" B1 y. y (setq a3 (entget (tblobjname "style" a2))) ;取出字体的数据串行
3 Q2 A6 @# K# [0 [2 [$ Q ;(princ a3)(princ " \n ")
8 e# V4 z% p G0 T9 \ J& w7 V (setq a3 (subst (cons 3 "TxtT.shx") (assoc 3 a3) a3)) ;将字体字型改成新字型
' C' O4 \7 n. p8 ]% G, s (entmod a3)/ A1 ?4 T, j' O4 R. d
;更新字体
' h4 @4 Y4 E2 D (setq a3 (subst (cons 4 "hzfs.shx") (assoc 4 a3) a3)) ;将字体字型改成新字型
" G# w* p9 P: b1 J, p (entmod a3) 7 Y% U4 E% }) ?9 T
(setq a1 (tblnext "style")) ;找出下一个字体$ c* j+ C# }; M2 y
)
( S9 B5 Y- d# y/ I5 C6 |/ h; f(command"REGEN" "")
# j& X: O0 H7 e3 X3 H$ {' M(princ"字型变更为TxtT.shx！" )
: @& Z# B# b) S2 b: S2 i (princ) |
评分
-
查看全部评分
|
楼主