72 lines
2.0 KiB
Common Lisp
72 lines
2.0 KiB
Common Lisp
(defun C:LFC (/ i imax il ss currElem color colorNum allColors newLayer currLayer newElem)
|
|
(graphscr)
|
|
|
|
;variables:
|
|
(setq i 0);counter to zero
|
|
(setq imax 1);while variable
|
|
|
|
(prompt "\nselect entities to change layer (all): ")
|
|
(setq ss (ssget));asks for selection
|
|
(setq il (sslength ss));length of selection
|
|
(setq allColors nil)
|
|
(while imax
|
|
(print i)
|
|
(setq currElem (entget (ssname ss i) ))
|
|
(setq color (assoc 62 currElem))
|
|
(setq colorNum (cdr color))
|
|
(print colorNum)
|
|
|
|
(if (and (not (= colorNum 0)) colorNum)
|
|
(progn
|
|
(if (not (type allColors))( setq allColors (list colorNum)))
|
|
(if (not (member colorNum allColors)) (setq allColors (append allColors (list colorNum))))
|
|
)
|
|
)
|
|
|
|
;while specific:
|
|
(setq i (1+ i));increments i
|
|
(if (= i il) (setq imax nil));finish function if i equals il
|
|
)
|
|
|
|
|
|
(setq i 0);counter to zero
|
|
(setq imax 1);while variable
|
|
|
|
(while imax
|
|
(print i)
|
|
(setq color (nth i allColors))
|
|
(command "._layer" "_M" color "")
|
|
;while specific:
|
|
(setq i (1+ i));increments i
|
|
(if (= i (length allColors)) (setq imax nil));finish function if i equals il
|
|
)
|
|
|
|
(setq i 0);counter to zero
|
|
(setq imax 1);while variable
|
|
|
|
(while imax
|
|
(print i)
|
|
(setq currElem (entget (ssname ss i) ))
|
|
(setq color (assoc 62 currElem))
|
|
(setq colorNum (cdr color))
|
|
|
|
(if (and (not (= colorNum 0)) colorNum)
|
|
(progn
|
|
|
|
|
|
(setq currLayer (assoc 8 currElem))
|
|
(setq newLayer (cons 8 (itoa colorNum)))
|
|
(print newLayer)
|
|
(setq newElem(subst newLayer currLayer currElem))
|
|
(entmod newElem)
|
|
)
|
|
)
|
|
;while specific:
|
|
(setq i (1+ i));increments i
|
|
(if (= i il) (setq imax nil));finish function if i equals il
|
|
)
|
|
|
|
(terpri)
|
|
(setq ss nil)
|
|
)
|