Help with change layer to 0

[Guest]

Hi i am using a code to draw polyline in specific layer name. I want when i  do right click or write c for close to end the code  the current layer be the 0.

 

I add this lines at the end to the code but is not working  !!!!

 

;change to layer 0
(mapcar 'setvar '(clayer cecolor celtype celweight) (list "0" "BYLAYER" "BYLAYER" -1)) 
(princ)
)

 

 

(defun c:test()
(command "_layer" "_m" "myPline" "_c" "10" "" "")
(setq a (entlast))
  (vl-cmdf "_.pline")
  (while (> (getvar 'cmdactive) 0) (command "\\"))
  (if (not (equal a (entlast)))
    (entmod (append (entget (entlast)) (list (cons 8 l) (cons 43 w) (cons 62 c))))
  )
;change to layer 0
(mapcar 'setvar '(clayer cecolor celtype celweight) (list "0" "BYLAYER" "BYLAYER" -1)) 
(princ)
)

 

 

Any ideas?  Thanks

[David Bethel]

You might try :

Edited September 29, 2021 by David Bethel

[David Bethel]

("clayer" "cecolor" "celtype" " celweight")

[Guest]

Thanks David Bethel