|
|
发表于 2010-1-5 21:16:29
|
显示全部楼层
来自： 中国广东汕头
我得经历不知道是不是和你一样，我以前就这样改的。
. J* S) M) D! x3 P9 y. D;给你一个字体替换程序，运行一下就行了，所有字体就替换了
( m' B/ F; ~6 K! M# _. Q;更换所有文字字体
& {; n/ P( L1 S. ?& ~: V. d2 [2 L9 r, u
(defun C:zas ()
7 s) E q7 f4 e% g& x% Q5 D) ^ (graphscr)1 y3 u3 d3 F- e5 ?2 }
(initget 7)
; |6 F% x9 `' s ;(setq c1 (getstring "\nInput new color for all layers: ")) ;输入新颜色: M9 S+ P1 o# q$ }/ c
(setq a1 (tblnext "style" t)) ;将指针移到第一个字体: I9 y* L! d0 k& W0 G
; (princ a1)1 e6 R4 {. V" H/ \0 Y0 w: t
;(setq a2 (cdr (assoc 2 a1))) ;取出图层名称' j6 V' }, g3 S2 G7 Y8 {" `4 d
; (setq a3 (entget (tblobjname "style" a2))) ;取出图层的数据串行
& V, R5 e% ]- ]7 x: f ; (princ " a3= ")(princ a3)
1 j2 u/ |. }; i. h% u3 B. t(while a1- \ u' H" w$ w: R
(setq a2 (cdr (assoc 2 a1))) ;取出字体名称
7 H. ]+ Q) \8 \; I% i (setq a3 (entget (tblobjname "style" a2))) ;取出字体的数据串行2 f+ Q: i/ X7 c( y, G
;(princ a3)(princ " \n ")
+ ]6 I. B: t& t4 V4 f; }% W* N2 H (setq a3 (subst (cons 3 "TxtT.shx") (assoc 3 a3) a3)) ;将字体字型改成新字型# [+ b. ^; l7 d% n+ `- R- o/ |
(entmod a3)
) v+ z+ M2 R3 h# T' M; n ;更新字体
# x- K# n2 k- c9 H9 n (setq a3 (subst (cons 4 "hzfs.shx") (assoc 4 a3) a3)) ;将字体字型改成新字型/ M- ?% W' b/ ^+ Z' ]
(entmod a3) ; d- q @4 H! S& @4 S/ [( D
(setq a1 (tblnext "style")) ;找出下一个字体
2 i0 i' v4 f5 p6 H )
% Z( p% Z2 c' g. E(command"REGEN" "")
$ H x$ K. S4 l' q( d0 o(princ"字型变更为TxtT.shx！" )/ k) {: x; n/ X4 ]
(princ) |
评分
-
查看全部评分
|
楼主