need help with a lsp routine

ok, why can't it be this easy?
(defun C:otl () (command "offset" "12") (command "chprop" "l" "" "la" "fn-beam" "") (princ) )

Can someone help me edit this? I need it to offset 12" and I need the layer to be fn-beam, not current. Thanks, jojo
; From the desk of Paul Standing ; Routine will offset set objects to the current layer ; Offset_to_layer v 1.0 march 25 1995
(defun C:Off_to_lay() (setvar "cmdecho" 0) (setq c_layer (getvar "clayer") last (getvar "offsetdist")) (prompt "\nOffset distance or through" ) (setq dist (getdist)) (if (or (= dist nil)(= dist "")) (setq dist last) ) (setq obj (entsel "\nSelect object to offset:")) (setq pick_pt (car(cdr obj))) (setq ent (car obj)) (setq side_pt (getpoint "\nside to offset")) (command "offset" dist pick_pt side_pt "") (setq ent1 (entlast)) (setq ptlst (entget ent1) b (assoc 8 ptlst) c (cons 8 c_layer) d (subst c b ptlst)) (entmod d) (princ) )

Because you want it to loop. You have to set up a WHILE with a criterion that will exit when you want to.
(defun C:otl (/ n) (setvar "cmdecho" 1) (while (not n) (if(eq a nil)(exit)) (command "OFFSET" 12 pause pause "") (setq c (entlast)) (command "CHPROP" c "" "LA" "1" "") ) (princ) )

Ooops. Replace "fn-beam" for "1" in the CHPROP line. I tested it using a drawing with a layer "1".... If you allowed user input to set the offset, you might get more use out of it, jojo.

Thanks for the tweak...I'm setting this one up for the engineer, who does not want options. Click and go.
I really do appreciate your help..My boss is an "instant gratification" kinda guy, and I am no "lisp queen". ;-)
jojo

Micheal...got time to look at this? it returns an error. I changed the name, and the layer to fn-beam, and that is all.
I loaded it in appload, then typed "offbeam" but it does not work...any ideas? Thanks, jojo
(defun C:OFFBEAM (/ n) (setvar "cmdecho" 1) (while (not n) (if(eq a nil)(exit)) (command "OFFSET" 12 pause pause "") (setq c (entlast)) (command "CHPROP" c "" "LA" "fn-beam" "") ) (princ) )
Command: OFFBEAM ; error: quit / exit abort

Sorry just delete the (if(eq a nil)(exit)) line. I should have commented it out. It was a leftover from another version.
MichaelB

Thank you SO MUCH!!! It worked like a charm!
jojo

Take a penny, leave a penny ; )