Simple Polyline Lisp Help !!

[WCCSAM]

Below is the code i have so far. I am trying to draw a polyline on layer "buttlap" at 3" width and then return to my previous width settings and layer. It works but it doesn't return to my previous settings. Can anyone help or give me advice thanks !!

 

;This is the command for DRAWING BUTT LAP LINES

;Created by SAM A MILHOAN 11/19/08

(defun c:BUTT ()

(setq LW (getvar "PLINEWID"))

(setvar "PLINEWID" 3)

(setq CL (getvar "clayer"))

(command ".clayer" "BUTTLAP")

(COMMAND "PLINE")

(setvar "PLINEWID" LW)

(command "clayer" CL)

(princ)

)

[lpseifert]

Try it now

;This is the command for DRAWING BUTT LAP LINES
;Created by SAM A MILHOAN 11/19/08
(defun c:BUTT ()
(setq LW (getvar "PLINEWID"))
(setvar "PLINEWID" 3)
(setq CL (getvar "clayer"))
(setvar "clayer" "BUTTLAP")
(COMMAND "PLINE")
(while (> (getvar 'CmdActive) 0) (command pause))
(setvar "PLINEWID" LW)
(command "clayer" CL)
(princ)
)

[WCCSAM]

THIS WORKS GREAT THANKS A MILLION!!!! THIS FORUM IS AWESOME. I'm trying to learn some lisp and this is really helping.