xline lisp multiple function on a layer

[jim78b]

hello i want a lisp that create a xline on a layer (example XL colour 1) : AND LET ME TO SELECT :horizontal , vertical etc etc

then return on layer 0 even if i press esc to exit command.

 

Another thing, is possible to make a short cut in lisp SHIFT + F to make offset xline always on xl layer and then return on layer 0?

 

thanks in advance

 

however i have this lisp but not work if i select ...a choice ...not return on layer 0

 

(defun c:xlS (/ p1 p2)
(setq cl (getvar "clayer"))
(command "-layer" "m" "XL" "_Color" "1" "" "")

(command "xline" \ "")
(setvar "clayer" "0")
);defun

 

[Lee Mac]

You could use my custom XLine program from here.

[jim78b]

THANKS VERY MUCH

[jim78b]

SORRY But in your lisp there is not xline offset

[Lee Mac]

12 hours ago, jim78b said:

SORRY But in your lisp there is not xline offset

 

Just use the standard OFFSET command?

[jim78b]

Sorry but i need offset in the same command