[编程交流] Entmod更改文本对象c

(defun c:levbound ()
;ask for lower and upper bounds
(setq lower (getreal "\nLower bound...?"))
(setq upper (getreal "\nUpper bound...?"))
;select text objects to be evaluated
(setq ss (ssget '((0 . "TEXT"))))
(setq l (sslength ss))
(setq c 0)
;evaluate each text object
(while (/= c l)
 (setq ent (ssname ss c))
 (setq elist (entget ent))
 (setq txt (cdr (assoc 1 elist)))
 (setq val (atof txt))
 ;if value lower than the lower bound
 (if (< lower val)
  ;***then change text object colour to red***
  (print "red")
  ;else, is it higher than the upper bound?
   (if (> upper val)
   ;***then change text object colour to green***
   (print "green")
   )
 )
(setq c (+ 1 c)) 
)
)

(if (< lower val)
;***then change text object colour to red***
(progn
 (print "red")
 (entmod (if (assoc 62 elist)
          (subst '(62 . 1) (assoc 62 elist) elist)
          (cons  '(62 . 1) elist)))
)
...

(defun c:levbnd ()
;ask for lower and upper bounds
(setq lower (getreal "\nLower bound...?"))
(setq upper (getreal "\nUpper bound...?"))
;select text objects to be evaluated
(setq ss (ssget '((0 . "TEXT"))))
(setq l (sslength ss))
(setq c 0)
;evaluate each text object
(while (/= c l)
 (setq ent (ssname ss c))
 (setq elist (entget ent))
 (setq txt (cdr (assoc 1 elist)))
 (setq val (atof txt))
 ;if value lower than the lower bound
 (if (< val lower )
  ;then change text object colour to red
   (entmod (if (assoc 62 elist)
   (subst '(62 . 1) (assoc 62 elist) elist)
   (cons  '(62 . 1) elist)))
  ;else, is it higher than the upper bound?
   (if (> val upper )
  ;then change text object colour to red
    (entmod (if (assoc 62 elist)
    (subst '(62 . 1) (assoc 62 elist) elist)
    (cons  '(62 . 1) elist)))
   )
 )
(setq c (+ 1 c)) 
)
)