Trying to use revcloud in a lisp...

I am trying to:

always run revcloud in paperspace.
create or set the current layer to "cloud"
Run the revcloud command
then insert a block with an attribute in it.

My routine draws the cloud but then skips through the rest of the program, I
know this is something simple but I cannot remember what it is.


(Defun C:CLOUD (/ )

(if (= 1 tilemd)
(setvar "tilemode" 1)
)
(command "layer" "m" "cloud" "")
(command "revcloud" pause)
(setq rpnt (getpoint "\nPick point for revision block.. "))
(terpri)
(setvar "attdia" 1)
(command "insert" "//g12/support/blocks/plan/revision" rpnt "" "" "")
(Princ)
) ;end cloud.lsp


Thanks,
Rick

 

Nicely written Chip. I wish I wrote things as neat as you do.
But I want to stop the routine while the revcloud command is still running
so I have full functionality of revcloud...
I just dont know how to do it.

Rick

 

Something like this.....?

(command "revcloud" )
(while (> (getvar "cmdactive") 0) (command pause))

 

Exactly... I knew it had to be a while statement & cmdactive but I didn't
remember how to put them together.

Thanks a bunch
Rick

 

Your Welcome.

 

Thanks... I'll have a look.

But I have mine working perfect now.