Write a LISP routine to enhance the revcloud command

[melissa.j.seidel]

I am trying to write a lisp routine to enhance the revcloud routine and make the clouds a different 'global width' based on whether metric or imperial is chosen. I am also prompting for a choice between 3 pre-set sizes (arc lengths), inserting a rev triangle, and putting everything on the correct layer automatically.

It is working beautifully, except the revcloud command doesn't seem to be reacting the same way other commands do. Upon execution, the lisp routine keeps going even though the cloud is not finished. This causes errors when it gets to the 'entlast' type stuff to alter the appearance of the cloud which isn't complete.

It would seem that I need to find out what internally 'triggers' the end of the revcloud routine and causes the verbage "Revision cloud finished." to print on the screen. I'm sure it is checking for a matching start and endpoint, but I have no idea what variables it could be using. If I knew that, I think I could set up a loop checking for that condition to delay the start of the rest of the routine. Anyone know how to access that programming?

Any thoughts??
Melissa

[Mike.Perry]

Hi Melissa

Please note I have *split* this post into its own thread from thread "Nov '05 - TIPniques: How Things Stack Up (http://forums.augi.com/showthread.php?t=28398) ( found in the Hot News (http://forums.augi.com/forumdisplay.php?f=31) forum ).

+

I have *moved* this newly created thread from the Hot News (http://forums.augi.com/forumdisplay.php?f=31) forum to this one as I believe it would be better served here.

Thanks, Mike

Forum Moderator

[T.Willey]

You can use this in your lisp, without seeing it, and it should work.


(command "_.revcloud")
(while (> (getvar "cmdactive") 1)
(command pause)
)

Tim

[Opie]

Can you post what you have, so others may be able to see where you have been?

[Mike.Perry]

Okay, I need help again! I couldn't figure out how to start a new RELEVANT thread...Hi Melissa

Try the following...

Most Frequently Asked Questions (http://www.augi.com/forums/default.asp?page=545)

+

The AUGI Forums (http://www.augi.com/forums/default.asp)...


Need Help with Forum Activities?

Did you see the How to Forum article by our good friend and board member, Mike Perry in the last issue of AUGIWorld magazine? If not, be sure to download the issue and read it or get a pdf copy of it by clicking this link.. (http://www.augi.com/forums/Forums.pdf)
+

AUGI Forum Guidelines (http://forums.augi.com/faq.php?faq=vb_augi)

User Maintenance (http://forums.augi.com/faq.php?faq=vb_user_maintain)

General Forum Usage (http://forums.augi.com/faq.php?faq=vb_board_usage)

Reading and Posting Messages (http://forums.augi.com/faq.php?faq=vb_read_and_post)

Hope the above helps,

Mike

Forum Moderator

[CAB2k]

Check out pl2cloud as an alternative routine.
http://forums.augi.com/showthread.php?t=5829&highlight=pl2cloud

[melissa.j.seidel]

Thanks CiphDRMRS!
You wrote:
Try this:
(command "_.revcloud")
(while (> (getvar "cmdactive") 1)
(command pause)
)

That didn't work initially, but when I replaced the > with and =, it worked beautifully! I am now debugging the rest of the routine(in my spare time). I will post the whole routine when complete.

Thanks for your help!
Melissa

[T.Willey]

Thanks CiphDRMRS!
You wrote:
Try this:
(command "_.revcloud")
(while (> (getvar "cmdactive") 1)
(command pause)
)

That didn't work initially, but when I replaced the > with and =, it worked beautifully! I am now debugging the rest of the routine(in my spare time). I will post the whole routine when complete.

Thanks for your help!
Melissa

You're welcome. I'm glad you got past that part, and I hope that there isn't too much debugging you have to do.

Tim