|
|
发表于 2010-1-5 21:16:29
|
显示全部楼层
来自： 中国广东汕头
我得经历不知道是不是和你一样，我以前就这样改的。
1 ^" v) I j1 @; ~; P! E;给你一个字体替换程序，运行一下就行了，所有字体就替换了
8 t! R: p2 c5 b/ @% r;更换所有文字字体* G7 r% o6 e$ s0 r* \1 t
* _9 F& s0 Y' l9 v2 ~. J; ?
(defun C:zas ()
& R! x% C) B. I3 d (graphscr)$ _+ R2 D# ]$ @) Q0 L; Y# D7 J
(initget 7)+ k/ m' v* s( b- |
;(setq c1 (getstring "\nInput new color for all layers: ")) ;输入新颜色
& m; w w2 s; X+ j (setq a1 (tblnext "style" t)) ;将指针移到第一个字体1 p; q, W2 _7 U4 {# ]; U
; (princ a1)7 T: G4 ~ b( A, k, O
;(setq a2 (cdr (assoc 2 a1))) ;取出图层名称5 R4 q' U" P; o5 h- v
; (setq a3 (entget (tblobjname "style" a2))) ;取出图层的数据串行$ O- j) z5 [& ~2 s, Q
; (princ " a3= ")(princ a3)
$ b" n. m% _! v* z6 G- {6 o1 j' K(while a1
" p% H% w: A+ }' K (setq a2 (cdr (assoc 2 a1))) ;取出字体名称( c$ w, k1 X* s% O2 i2 z
(setq a3 (entget (tblobjname "style" a2))) ;取出字体的数据串行0 o$ b( ~, L8 X7 G& [( A
;(princ a3)(princ " \n ")
! g+ }7 n; y+ ^: @* @* O g (setq a3 (subst (cons 3 "TxtT.shx") (assoc 3 a3) a3)) ;将字体字型改成新字型
* o0 \6 j5 o8 T1 S (entmod a3)
; a2 _0 o$ |- `/ g. }+ W ;更新字体
" _( R' C& k k+ [- Z4 D4 u (setq a3 (subst (cons 4 "hzfs.shx") (assoc 4 a3) a3)) ;将字体字型改成新字型8 S2 s$ {: V n& x% s5 R. f9 k
(entmod a3) 0 ?, l: O$ w9 g/ H
(setq a1 (tblnext "style")) ;找出下一个字体0 R- U! U+ F& Y9 ~) X* ]( @ a
)
) [6 u% _' `3 E9 u. c i(command"REGEN" "")5 M" @: B9 A( ]- I
(princ"字型变更为TxtT.shx！" )4 H5 X+ z* b* w/ ~
(princ) |
评分
-
查看全部评分
|
楼主