A simple LISP wich sets the selected objects

[stefan_ohrn]

TO CURRENT LAYER and FREEZES all layer's except the selected layer and layer 0.

Is there anyone out there who has a solution?

/Stefan SWEDEN

[rkmcswain]

Try this:


(defun c:foo ( / sset)
(setq sset (ssget))
(command "._change" sset "" "_P" "_LA" (getvar "clayer") "")
(command "_layer" "_F" "*" "_TH" "0" "")
(princ)
)