hot to use the previous input i entered?

[Lee Mac]

IMO it makes more sense to revise Lee's 'vl-every' suggestion to:

(defun _and ( lst / rtn )
 (if (vl-every '(lambda ( x ) (if (setq x (catcheval x)) (setq rtn (cons x rtn)))) lst)
   (reverse rtn)
 )
)

 

Thanks Roy, I agree - I have now revised the functions in my earlier post.

[ktbjx]

ok im sorry... now i dont understand any of the posts...

i wast just asking for some help on how will i use the last value i input so that i will not keep on entering it when i use the command

im kinda lost with all those codes posted

[Lee Mac]

ok im sorry... now i dont understand any of the posts...

i wast just asking for some help on how will i use the last value i input so that i will not keep on entering it when i use the command

im kinda lost with all those codes posted

 

To get back on track, consider the following:

(defun c:xlucky ( / sel tmp )
   (if (setq sel (ssget "_:L"))
       (progn
           (if (null xlucky:hcol)
               (setq xlucky:hcol 1)
           )
           (if (setq tmp (getint (strcat "\nEnter number <" (itoa xlucky:hcol) ">: ")))
               (setq xlucky:hcol tmp)
           )
           (command "_.chprop" sel "" "_C" xlucky:hcol "")
       )
   )
   (princ)
)

[Grrr]

And the alternative result after our interesting discussion:

[b][color=BLACK]([/color][/b]defun c:xlucky [b][color=FUCHSIA]([/color][/b] / Lst tmp [b][color=FUCHSIA])[/color][/b]

[b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]not *hcol*[b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]setq *hcol* 1[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setq Lst 
	'[b][color=NAVY]([/color][/b] 
		[b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"_:L"[/color][b][color=MAROON])[/color][/b] 
		[b][color=MAROON]([/color][/b]_or '[b][color=GREEN]([/color][/b] [b][color=BLUE]([/color][/b]setq tmp [b][color=RED]([/color][/b]getint [b][color=PURPLE]([/color][/b]strcat [color=#2f4f4f]"\nEnter number <"[/color] [b][color=TEAL]([/color][/b]itoa *hcol*[b][color=TEAL])[/color][/b] [color=#2f4f4f]">: "[/color][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]setq tmp *hcol*[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] 
		[b][color=MAROON]([/color][/b]setq *hcol* tmp[b][color=MAROON])[/color][/b]
	[b][color=NAVY])[/color][/b] 
[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]length Lst[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]length [b][color=GREEN]([/color][/b]setq Lst [b][color=BLUE]([/color][/b]_and Lst[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=NAVY])[/color][/b] 
	[b][color=NAVY]([/color][/b]command [color=#2f4f4f]"_.chprop"[/color] [b][color=MAROON]([/color][/b]car Lst[b][color=MAROON])[/color][/b] [color=#2f4f4f]""[/color] [color=#2f4f4f]"_C"[/color] [b][color=MAROON]([/color][/b]caddr Lst[b][color=MAROON])[/color][/b] [color=#2f4f4f]""[/color][b][color=NAVY])[/color][/b]
[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b][color=#8b4513];| defun |; [b][color=BLACK]([/color][/b]vl-load-com[b][color=BLACK])[/color][/b] [b][color=BLACK]([/color][/b]princ[b][color=BLACK])[/color][/b][/color]

[b][color=BLACK]([/color][/b]defun catcheval [b][color=FUCHSIA]([/color][/b] x / r [b][color=FUCHSIA])[/color][/b] [color=#8b4513]; LM[/color]
[b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]not [b][color=MAROON]([/color][/b]vl-catch-all-error-p [b][color=GREEN]([/color][/b]setq r [b][color=BLUE]([/color][/b]vl-catch-all-apply 'eval [b][color=RED]([/color][/b]list x[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] r[b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b]

[b][color=BLACK]([/color][/b]defun _or [b][color=FUCHSIA]([/color][/b] lst [b][color=FUCHSIA])[/color][/b] [color=#8b4513]; LM[/color]
[b][color=FUCHSIA]([/color][/b]vl-some '[b][color=NAVY]([/color][/b]lambda [b][color=MAROON]([/color][/b] x / r [b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]not [b][color=BLUE]([/color][/b]vl-catch-all-error-p [b][color=RED]([/color][/b]setq r [b][color=PURPLE]([/color][/b]vl-catch-all-apply 'eval [b][color=TEAL]([/color][/b]list x[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] r[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] lst[b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b]

[b][color=BLACK]([/color][/b]defun _and [b][color=FUCHSIA]([/color][/b] lst / rtn [b][color=FUCHSIA])[/color][/b] [color=#8b4513]; LM[/color]
[b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]vl-every '[b][color=MAROON]([/color][/b]lambda [b][color=GREEN]([/color][/b] x [b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]setq x [b][color=RED]([/color][/b]catcheval x[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]setq rtn [b][color=RED]([/color][/b]cons x rtn[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] lst[b][color=NAVY])[/color][/b]
	[b][color=NAVY]([/color][/b]reverse rtn[b][color=NAVY])[/color][/b]
[b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b]

[rkent]

Try setting INPUTHISTORYMODE to 6. See Help on that system variable.

[BIGAL]

Ktbjx updated my post it was for set once now can change every time or keep current value.

[halam]

Try setting INPUTHISTORYMODE to 6. See Help on that system variable.

.

Ok thx!!

[rkent]

Look at the SYSVARMONITOR command. You can edit list, add that variable as well as any others you want to always be set the way your currently have them. This will let you know if things change.

 

A simple lisp file is what I use to reset all the various settings I want, fairly easy to start and maintain. If you need further help with lisp files let us know.