|
|
发表于 2010-1-5 21:16:29
|
显示全部楼层
来自： 中国广东汕头
我得经历不知道是不是和你一样，我以前就这样改的。
' |8 D* K8 J, b8 e- ?;给你一个字体替换程序，运行一下就行了，所有字体就替换了# z! E" _& J B
;更换所有文字字体: U7 g/ m1 i! t5 f' K
. D4 s2 l4 H9 n" C(defun C:zas ()4 ]' h2 V$ Z" l9 j( O5 @* g( b2 A& q
(graphscr)
# m+ m: a% S' L! A$ u8 y: S1 l0 c (initget 7)
2 y5 G& Z3 a$ V M4 K- r2 K; f* z ;(setq c1 (getstring "\nInput new color for all layers: ")) ;输入新颜色% M3 e+ M- _$ W2 E9 J
(setq a1 (tblnext "style" t)) ;将指针移到第一个字体
g% n% Y" w3 Z3 r! p ; (princ a1)
# k8 j0 T6 p& `5 ^;(setq a2 (cdr (assoc 2 a1))) ;取出图层名称
. V; M' f, i$ |3 m" ? ; (setq a3 (entget (tblobjname "style" a2))) ;取出图层的数据串行
; }! f! E* r: c% A! N* e! b/ D ; (princ " a3= ")(princ a3)
" ^ _% h/ O, O(while a1
2 D. ^/ R$ u6 j8 q" u2 @ (setq a2 (cdr (assoc 2 a1))) ;取出字体名称
' a- h2 p; m! T+ B9 K3 V (setq a3 (entget (tblobjname "style" a2))) ;取出字体的数据串行: r% K" x7 o' s0 i) \ l" t. `
;(princ a3)(princ " \n ")% U i+ g. b& b
(setq a3 (subst (cons 3 "TxtT.shx") (assoc 3 a3) a3)) ;将字体字型改成新字型
! {/ I6 _! D0 ]0 ^% \3 K (entmod a3)4 P* R/ h& H& t% x. R- r) e' N1 V7 @3 z6 \
;更新字体
4 G- g! L1 `4 h6 Y7 C: V (setq a3 (subst (cons 4 "hzfs.shx") (assoc 4 a3) a3)) ;将字体字型改成新字型
# \3 l' k0 F+ {+ w. L% W5 b; A (entmod a3)
8 k% }# R: }# U& `) V1 ?2 X (setq a1 (tblnext "style")) ;找出下一个字体1 ~/ @; i& C- h$ s) T
)! N, I* G5 U ]1 X! H
(command"REGEN" "")
: x/ s9 T. S- n6 h0 W(princ"字型变更为TxtT.shx！" )
$ s! w4 Z; {. _( C6 H+ `. D; M! y (princ) |
评分
-
查看全部评分
|
楼主