Topic: setvar not working before a command call

[steve.carson]

Hi Everybody,

I am trying to set commandpreview to 0 prior to running the matchprop command.

For some reason, this isn't changing commandpreview:

Code - Auto/Visual Lisp: [Select]

1. (defun c:mp ( / OldCP)
2.  
3.     (setq OldCP (getvar "CommandPreview"))
4.     (setvar "CommandPreview" 0)
5.     (command "_matchprop")
6.     (setvar "CommandPreview" OldCP)
7.     (princ)
8. )
9.  

Any thoughts on why this might be?


Thanks,

Steve

[BIGAL]

Copy the 1 line (command "_matchprop") to command line and count the number of requests, you have not allowed for them, try using pause.

Code: [Select]

(command "_matchprop" pause pause "")

[steve.carson]

Thanks BIGAL, I’ll give it a try on Monday. I imagine I’ll have to go the “while cmdactive pause” route to allow multiple picks before it’s done. I’m just surprised it’s not doing the initial setvar since it’s supposed to happen before the command call.

[steve.carson]

That worked, BIGAL, thanks! Here's what I ended up with:

Code - Auto/Visual Lisp: [Select]

1. (defun c:mp ( / OldCP)
2.  
3.     (setq OldCP (getvar "CommandPreview"))
4.     (setvar "CommandPreview" 0)
5.     (princ "\nSelect objects: ")
6.     (command "_matchprop")
7.     (while (/= (getvar "CMDACTIVE") 0)
8.         (command pause)
9.     )
10.     (setvar "CommandPreview" OldCP)
11.     (princ)
12. )
13.  

Steve