设置实体颜色的函数

Lisphk

1. (defun PutIndexColor ( e col / enx )
   
2. (and
   
3.    (eq 'ENAME (type e)) (eq 'INT (type col)) (<= 0 col 256)
   
4.    (setq enx (vl-remove-if (function (lambda (x) (= 420 (car x)))) (entget e))) ; remove the true color if present
   
5.    (or
   
6.      (and (assoc 62 enx) (entmod (subst (cons 62 col) (assoc 62 enx) enx)))
   
7.      (entmod (append enx (list (cons 62 col))))
   
8.    )
   
9. )
   
10. )
    

(defun PutIndexColor ( e col / enx )<br /> (and <br />    (eq 'ENAME (type e)) (eq 'INT (type col)) (<= 0 col 256)<br />    (setq enx (vl-remove-if (function (lambda (x) (= 420 (car x)))) (entget e))) ; remove the true color if present<br />    (or<br />      (and (assoc 62 enx) (entmod (subst (cons 62 col) (assoc 62 enx) enx)))<br />      (entmod (append enx (list (cons 62 col))))<br />    ) <br /> )<br /> )<br />

测试命令：

1. (defun c:tt (/ CNT DXDT DXFDNEW DXFNEW DXFOLD ENT SSET )
   
2. (command "_.Layer" "_Make" "L-ANNO_TEXT" "_Color" "7" "" "_LType" "Continuous" "" "")
   
3. (setq sset (ssget "_:L"))
   
4. (setq cnt 0)
   
5. (repeat (sslength sset)
   
6.    (setq ent (ssname sset cnt))
   
7.    (setq dxdt (entget ent))
   
8.    (setq dxfold (assoc 8 dxdt))
   
9.    (setq dxfnew '(8 . "L-ANNO_TEXT"))
   
10.    (setq dxfdnew (subst dxfnew dxfold dxdt))
    
11.    (entmod dxfdnew)
    
12.    (setq cnt (1+ cnt))
    
13.    (PutIndexColor ent 256)
    
14. )
    
15. (princ)
    
16. )
    

(defun c:tt (/ CNT DXDT DXFDNEW DXFNEW DXFOLD ENT SSET )<br /> (command "_.Layer" "_Make" "L-ANNO_TEXT" "_Color" "7" "" "_LType" "Continuous" "" "")<br /> (setq sset (ssget "_:L"))<br /> (setq cnt 0)<br /> (repeat (sslength sset)<br />    (setq ent (ssname sset cnt))<br />    (setq dxdt (entget ent))<br />    (setq dxfold (assoc 8 dxdt))<br />    (setq dxfnew '(8 . "L-ANNO_TEXT"))<br />    (setq dxfdnew (subst dxfnew dxfold dxdt))<br />    (entmod dxfdnew)<br />    (setq cnt (1+ cnt))<br />    (PutIndexColor ent 256)<br /> )<br /> (princ)<br /> )<br />