简单的批量修改文字图层和转换文字属性

qcw911

从明经学到了很多东西，并应用到了自己的工作当中
简单的批量修改文字图层和转换文字属性
发给大家
希望新人能有所帮助

2. (defun c:xx()
   
3. ;;; (setq ss (ssget "x" '((0 . "MTEXT"))));all
   
4. (setq ss (ssget '((0 . "MTEXT"))))；select
   
5.   (setq n 0)
   
6.   (setq m 0)
   
7.   (repeat (sslength ss);number
   
8.      (setq en (ssname ss n))
   
9.      (setq en_date (entget en))
   
10.      (setq en_type (cdr(assoc 8 en_date)))
    
11.      (if (= en_type "moji")
    
12.     (progn
    
13.        (setq n (+ 1 n))
    
14.     )
    
15.     (progn
    
16.        (command "EXPLODE" en "" )
    
17.        (setq en_l(entlast))
    
18.        (vl-cmdf   "change" en_l "" "p" "la" "moji" "c" "bylayer" "" "")
    
19.        (vl-cmdf   "txt2mtxt" en_l  "")
    
20.        (setq n (+ 1 n))
    
21.        (setq m (+ 1 m))
    
22.     )
    
23.      )
    
24.    )
    
25. (princ (strcat m ))
    
26. )

(defun c:xx()<br /> ;;; (setq ss (ssget "x" '((0 . "MTEXT"))));all<br /> (setq ss (ssget '((0 . "MTEXT"))))；select<br />   (setq n 0)<br />   (setq m 0)<br />   (repeat (sslength ss);number<br />      (setq en (ssname ss n))<br />      (setq en_date (entget en))<br />      (setq en_type (cdr(assoc 8 en_date)))<br />      (if (= en_type "moji")<br />     (progn<br />        (setq n (+ 1 n))<br />     )<br />     (progn<br />        (command "EXPLODE" en "" )<br />        (setq en_l(entlast))<br />        (vl-cmdf   "change" en_l "" "p" "la" "moji" "c" "bylayer" "" "")<br />        (vl-cmdf   "txt2mtxt" en_l  "")<br />        (setq n (+ 1 n))<br />        (setq m (+ 1 m))<br />     )<br />      )<br />    )<br /> (princ (strcat m ))<br /> )

asd19400

学习下，谢谢

云中孤鹰

多谢分享，辛苦