[编程交流] 设置实体颜色

(defun C:RT ( / ent data )
(if (setq ent (car (entsel "\nSelect object to change its color")))
        (progn        
                (if (not (assoc 62 (setq data (entget ent))))
                        (setq data (append (list (cons 62 1)) data))
                        (setq data (subst (cons 62 1) (assoc 62 data) data))
                )
                (entupd (cdr (assoc -1 (entmod data))))
        )
)
(princ)
)

(defun c:test ( / a b i)
 (if (setq a (ssget '((0 . "*line,circle,ellipse,point"))))
   (repeat (setq i (sslength a))
     (setq b (vlax-ename->vla-object (ssname a (setq i (1- i)))))
     (vla-put-color b 1)
   )
 )
 (princ)
)

(defun c:rt ( / e )
   (if (setq e (car (entsel)))
       (entmod (append (entget e) '((62 . 1))))
   )
   (princ)
)

(defun C:RT ( / EOBJ )
(setq EOBJ (entsel "\nSelect object to change its color"))
(if EOBJ (vl-catch-all-apply 'vla-put-Color (list (vlax-ename->vla-object (car EOBJ)) 1)))
(princ)
)

(setq data (append (list (cons 62 1)) data))

(setq data (append data (list (cons 62 1))))