Lisp从Byl更改颜色

woodman78 · 发表于 2022-7-6 09:18:20

是否有人有lisp，当选择实体时，它将采用bylayer颜色并将该颜色直接指定给实体，而不使用bylayer？

Lee Mac · 发表于 2022-7-6 09:45:10

快速书写：

(defun c:test ( / a b c d e f )
 (while (setq a (tblnext "LAYER" (null a)))
   (setq b (cons (cons (cdr (assoc 2 a)) (abs (cdr (assoc 62 a)))) b))
 )
 (if (setq c (ssget "_:L"))
   (repeat (setq d (sslength c))
     (setq e (entget (ssname c (setq d (1- d))))
           f (cons 62 (cdr (assoc (cdr (assoc 8 e)) b)))
     )
     (entmod (if (assoc 62 e) (subst f (assoc 62 e) e) (append e (list f))))
   )
 )
 (princ)
)