如何将文字或尺寸的样式改为当前的样式？

〓桠枫〓/db

请各位大侠帮忙编个LISP，将文字或尺寸的样式改为当前的样式。

wowan1314

试试！

2. (defun c:t11 (/ ss a en ty 7h 3h)
   
3.     (setq ss (ssget ":l") a -1 7h (getvar 'textstyle) 3h (getvar 'dimstyle))
   
4.     (if ss
   
5.         (while (setq en (ssname ss (setq a (1+ a))
   
6.                 )
   
7.             )
   
8.             (setq ty (cdr(assoc 0 (entget en))
   
9.                 )
   
10.             )
    
11.             (cond
    
12.                 ((= ty "TEXT")(entmod(subst (cons 7 7h) (assoc 7 (entget en))(entget en))
    
13.                     )
    
14.                 )
    
15.                 ((= ty "DIMENSION")(entmod(subst (cons 3 3h) (assoc 3 (entget en))(entget en))
    
16.                     )
    
17.                 )
    
18.             )
    
19.         )
    
20.     )
    
21.     (princ)
    
22. )

(defun c:t11 (/ ss a en ty 7h 3h) <br />     (setq ss (ssget ":l") a -1 7h (getvar 'textstyle) 3h (getvar 'dimstyle))<br />     (if ss<br />         (while (setq en (ssname ss (setq a (1+ a))<br />                 )<br />             )<br />             (setq ty (cdr(assoc 0 (entget en))<br />                 )<br />             )<br />             (cond<br />                 ((= ty "TEXT")(entmod(subst (cons 7 7h) (assoc 7 (entget en))(entget en))<br />                     )<br />                 )<br />                 ((= ty "DIMENSION")(entmod(subst (cons 3 3h) (assoc 3 (entget en))(entget en))<br />                     )<br />                 )<br />             )<br />         )<br />     )<br />     (princ)<br /> )