帮忙看看这个改字高的程序怎么回事？

yjr111

如题：程序如果一步一步在CAD命令行调试，可以改字高，整体运行的话也没有错误，可是就是没有任何效果（不改动字高），请大大们帮忙瞧瞧哪个地方的BUG？

2. (defun c:gzg(/ h s1 ss1 n e1 e2 )
   
3.   (setq h(getdist"\n 输入文本新的字高："))
   
4.   (setq ss1 (ssget))
   
5.   (setq sl (sslength ss1))
   
6.   (setq n 0)
   
7.   (repeat sl
   
8.     (setq e1 (ssname ss1 n))
   
9.     (setq e2 (entget e1))
   
10.     (if (or(= "text" (cdr (assoc 0 e2)))(= "mtext" (cdr (assoc 0 e2))))
    
11.      (progn
    
12.        (setq e2(subst(cons 40 h)(assoc 40 e2)e2))
    
13.        (entmod e2)
    
14.      )
    
15.     )
    
16.   (setq n ( 1+ n))
    
17.   )
    
18.   (princ)
    
19. )
    
20.       

(defun c:gzg(/ h s1 ss1 n e1 e2 )<br />   (setq h(getdist"\n 输入文本新的字高："))<br />   (setq ss1 (ssget))<br />   (setq sl (sslength ss1))<br />   (setq n 0)<br />   (repeat sl<br />     (setq e1 (ssname ss1 n))<br />     (setq e2 (entget e1))<br />     (if (or(= "text" (cdr (assoc 0 e2)))(= "mtext" (cdr (assoc 0 e2))))<br />      (progn<br />        (setq e2(subst(cons 40 h)(assoc 40 e2)e2))<br />        (entmod e2)<br />      )<br />     )<br />   (setq n ( 1+ n))<br />   )<br />   (princ)<br /> )<br />       

ljpnb

“text"和"mtext"改成大写,缩减了一下

2. 
   
3. (defun c:gzg (/ h ss n ent)
   
4.   (setq h (getdist "\n 输入文本新的字高："))
   
5.   (setq ss (ssget '((0 . "TEXT,MTEXT"))))
   
6.   (setq n 0)
   
7.   (repeat (sslength ss)
   
8.     (setq ent (entget (ssname ss n)))
   
9.     (setq ent (subst (cons 40 h) (assoc 40 ent) ent))
   
10.     (entmod ent)
    
11.     (setq n (1+ n))
    
12.   )
    
13.   (princ)
    
14. )
    

<br /> (defun c:gzg (/ h ss n ent)<br />   (setq h (getdist "\n 输入文本新的字高："))<br />   (setq ss (ssget '((0 . "TEXT,MTEXT"))))<br />   (setq n 0)<br />   (repeat (sslength ss)<br />     (setq ent (entget (ssname ss n)))<br />     (setq ent (subst (cons 40 h) (assoc 40 ent) ent))<br />     (entmod ent)<br />     (setq n (1+ n))<br />   )<br />   (princ)<br /> )<br />

sky__tion

我也在写一个。。。针对一个文件中的所有单行文字

yjr111

哇！真是高人！非常感谢ljpnb ！

1993063

可以改,但是有时25变52呀.怎么回事?

cabinsummer

1. (defun c:gzg(/ h sl ss n ename edata )
   
2.   (setq h (getdist "\n 输入文本新的字高："))
   
3.   (setq ss (ssget "x" '((-4 . "<OR")(0 . "TEXT")(0 . "MTEXT")(-4 . "OR>"))));;;框选过滤所有TEXT和MTEXT实体
   
4.   (setq sl (sslength ss));;;求选择集中元素个数
   
5.   (setq n 0)
   
6.   (repeat sl
   
7.     (setq ename (ssname ss n));;;选择集中第n个元素的实体名
   
8.     (setq edata (entget ename));;;选择集中第n个实体的数据
   
9.     (setq edata (subst (cons 40 h)(assoc 40 edata) edata));;;替换新字高
   
10.     (entmod edata);;;更新图形数据
    
11.     (entupd ename);;;立即更新显示，很多人都不加这一条。其实这个很有用，能马上看见效果，否则要用命令regen更新
    
12.     (setq n (1+ n))
    
13.   )
    
14.   (princ)
    
15. )
    

(defun c:gzg(/ h sl ss n ename edata )<br />   (setq h (getdist "\n 输入文本新的字高："))<br />   (setq ss (ssget "x" '((-4 . "<OR")(0 . "TEXT")(0 . "MTEXT")(-4 . "OR>"))));;;框选过滤所有TEXT和MTEXT实体<br />   (setq sl (sslength ss));;;求选择集中元素个数<br />   (setq n 0)<br />   (repeat sl<br />     (setq ename (ssname ss n));;;选择集中第n个元素的实体名<br />     (setq edata (entget ename));;;选择集中第n个实体的数据<br />     (setq edata (subst (cons 40 h)(assoc 40 edata) edata));;;替换新字高<br />     (entmod edata);;;更新图形数据<br />     (entupd ename);;;立即更新显示，很多人都不加这一条。其实这个很有用，能马上看见效果，否则要用命令regen更新<br />     (setq n (1+ n))<br />   )<br />   (princ)<br /> )<br />

my258

这要是能改字高与颜色就更好