[编程交流] 基于颜色生成层

((lambda (i / ss e c)
 (setq ss (ssget))
 (while (setq e (ssname ss (setq i (1+ i))))
   (cond 
     ((= 1 (setq c (cdr (assoc 62 (entget e)))))
       ;; <- Code for red objects
       )
     ((= 2 c)
       ;; <- Code for yellow objects
       )
     ((= 3 c)
       ;; <- Code for green objects
       )
     ((= 4 c)
       ;; <- Code for cyan objects
       )
     ;; <- Additional colors here
   ))
 (princ))
-1)

(defun c:test (/ ss)
(if (setq ss (ssget "_:L" ))
(
 (lambda (i / ss1 e col)
  (while
    (setq ss1 (ssname ss (setq i (1+ i))))
      (setq e (entget ss1))
        (setq col (cdr (assoc 62 e)))
        (cond ((eq 1 col)
           (entupd (cdr (assoc -1 (entmod (subst (cons 8 "Layer1")(assoc 8 e) e))))))
          ((eq 2 col)
               (entupd (cdr (assoc -1 (entmod (subst (cons 8 "Layer2")(assoc 8 e) e))))))
          ((eq 3 col)
                  (entupd (cdr (assoc -1 (entmod (subst (cons 8 "Layer3")(assoc 8 e) e))))))
           )
         )
       )
    -1
   )
  (princ)
   )
 (princ)
 )

(defun c:colay(/ aSet lCol cLay)
 
 (vl-load-com)
 
 (if(setq aSet(ssget "_X"))
   (progn
     (setq lCol(vla-get-Layers
          (vla-get-ActiveDocument
            (vlax-get-acad-object))))
   (foreach e(vl-remove-if 'listp(mapcar 'cadr(ssnamex aSet)))
     (if(setq cCol(cdr(assoc 62(entget e))))
   (setq cLay(strcat "Color " (itoa cCol))
         cFlg T)
   (setq cFlg nil)
); end if
    (if cFlg
      (progn
       (if(vl-catch-all-error-p
    (vl-catch-all-apply
     'vla-Item (list lCol cLay)))
  (vla-Add lCol cLay)
); and if
(vl-catch-all-error-p
    (vl-catch-all-apply
     'vla-put-Layer (list e cLay)))
      ); end progn
      ); end if
     ); end foreach
    ); end progn
   ); end if
 (princ)
 ); end of c:colay

[b][color=BLACK]([/color][/b]defun c:enc [b][color=FUCHSIA]([/color][/b]/ ss en ed clr[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]setq clr [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 62 ed[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                 [b][color=GREEN]([/color][/b]entmod [b][color=BLUE]([/color][/b]subst [b][color=RED]([/color][/b]cons 8 [b][color=PURPLE]([/color][/b]strcat [color=#2f4f4f]"C"[/color] [b][color=TEAL]([/color][/b]itoa clr[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                                [b][color=RED]([/color][/b]assoc 8 ed[b][color=RED])[/color][/b] ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]ssdel en ss[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]