如何在数字中选出大于某个数字的值，并改为另一种颜色呢？

弘毅

诸位大神，如何在数字中选出大于某个数字的值，并改为另一种颜色呢？

牢固

1. (if (and (setq num (getreal "\n输入数字:"))
   
2.       (setq ss (ssget '((0 . "text"))))
   
3.       )
   
4.   (repeat (setq n (sslength ss))
   
5.     (if  (and
   
6.     (setq e (entget (ssname ss (setq n (1- n)))))
   
7.     (> (atof (cdr (assoc 1 e))) num)
   
8.     )
   
9.       (if (assoc 62 e)
   
10.   (entmod (subst (cons 62  1) (assoc 62 e) e)) ;_ 改成红色
    
11.   (entmod (append e (list (cons 62  1))))
    
12.   )
    
13.       )
    
14.     )
    
15.   )

(if (and (setq num (getreal "\n输入数字:"))<br />       (setq ss (ssget '((0 . "text"))))<br />       )<br />   (repeat (setq n (sslength ss))<br />     (if  (and<br />     (setq e (entget (ssname ss (setq n (1- n)))))<br />     (> (atof (cdr (assoc 1 e))) num)<br />     )<br />       (if (assoc 62 e)<br />   (entmod (subst (cons 62  1) (assoc 62 e) e)) ;_ 改成红色<br />   (entmod (append e (list (cons 62  1))))<br />   )<br />       )<br />     )<br />   )

弘毅

牢固 发表于 2014-8-22 11:40

大神，我只能说你太厉害了！

csharp

dxf有个特点、不用subst直接append，后面的自动替换前面