Newbie question: How do I get a command in LISP to stay "open" or "active"?

[gfreddog]

Ok... so I have a LISP that I want to run and sets Rev Cloud to the setting I want then you can select the polyline object you want to turn into a Rev Cloud:

;RVCLD- Rev Cloud set to object

(vl-load-com)
(DEFUN C:RVCLDs()
(COMMAND "LAYER" "SET" "1G_Rev Cloud" "")
(command "_revcloud" "a" "3/16" "3/16" "s" "c" "o" txt)
)

So what this does is:

Command: RVCLDSCurrent layer: "1G_Rev Cloud"
Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Thaw/LOck/Unlock/stAte/Description/rEconcile]: SET
Enter layer name to make current or <select object>: 1G_Rev Cloud Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Thaw/LOck/Unlock/stAte/Description/rEconcile]:
Command: _revcloud
Minimum arc length: 3/16" Maximum arc length: 3/16" Style: Calligraphy
Specify start point or [Arc length/Object/Style] <Object>: a
Specify minimum length of arc <3/16">: 3/16
Specify maximum length of arc <3/16">: 3/16
Specify start point or [Arc length/Object/Style] <Object>: s
Select arc style [Normal/Calligraphy] <Calligraphy>:c Calligraphy
Specify start point or [Arc length/Object/Style] <Object>: o
Select object:
Command: nil

How do I get it to stay on "Select Object" and stop closing?

Thanks

[marko_ribar]

(DEFUN C:RVCLD nil
(COMMAND "._LAYER" "M" "1G_Rev Cloud" "")
(COMMAND "._REVCLOUD" "A" "3/16" "3/16" "S" "C" "O")
(PRINC)
)

M.R.

[gfreddog]

That was it thanks!

[BlackBox]

... Or you could use the PAUSE keyword.

[gfreddog]

... Or you could use the PAUSE keyword.

huh? how does that go? Pls forgive the newness I'm learning LISP bit by bit

[BlackBox]

huh? how does that go? Pls forgive the newness I'm learning LISP bit by bit

While not necessary in this circumstance, as Marko's suggestion is more succinct, in many instances the PAUSE keyword can be very useful. Here's an applicable example, that is functionally the same as Marko has posted above:

(COMMAND "._REVCLOUD" "A" "3/16" "3/16" "S" "C" "O" PAUSE)

[gfreddog]

While not necessary in this circumstance, as Marko's suggestion is more succinct, in many instances the PAUSE keyword can be very useful. Here's an applicable example, that is functionally the same as Marko has posted above:

(COMMAND "._REVCLOUD" "A" "3/16" "3/16" "S" "C" "O" PAUSE)

Ah now that makes sense. Thanks for the info

[JohnCAVogt]

really elegant that would make the pause usefully necessary would be:
(DEFUN C:RVCLD ( / strCurrentLayer)
(setq strCurrentLayer (getvar "clayer"))
(COMMAND "._LAYER" "M" "1G_Rev Cloud" ""
"._REVCLOUD" "A" "3/16" "3/16" "S" "C" "O"
pause
"._layer" "m" strCurrentLayer ""
)
(PRINC)
)

[BlackBox]

Ah now that makes sense. Thanks for the info

You're welcome.

FWIW -

You may, or may not already use Command Reactor(s) in your setup, but this is a great illustration of where employing one is useful... That way, you also avoid having to account for the *error* thrown when trying to modify the CLAYER System Variable while the REVLCOUD Command is still 'active'.