Topic: Adding 2 Options within a baisc routine

[MSTG007]

I have a basic routine that currently erases an aecc object.

Code: [Select]

(defun c:BasicCommand()
(ssget "x" '((0 . "AECC_NETWORK")))
(initcommandversion 2)   
(command "erase" "p" "")
(princ))

But I was wanting to add another option that would allow for exploding the aecc object. Is there a basic way to do this without just having 2 routines. One to do the erase, and the other to do the exploding? (This is what I would have done) lol.

[Lee Mac]

By "add another option", are you looking to prompt the user for whether the object should be erased or exploded?

[MSTG007]

That's about right. Ask to either do this or that kinda thing.

[Lee Mac]

Use the initget & getkword functions.

Very simply put -

Code - Auto/Visual Lisp: [Select]

1. (initget "Erase eXplode")
2. (if (= "Erase" (getkword "\nErase or explode? [Erase/eXplode] <eXplode>: "))
3.     (progn
4.         ;;    Code for Erase
5.     )
6.     (progn
7.         ;;    Code for Explode  
8.     )
9. )

[MSTG007]

Awesome Lee! I knew it was basic, just couldn’t find how to do it. Thank you again as usual.

[CAB]

More reading materials:
----------  entsel examples  ----------
http://www.theswamp.org/index.php?topic=6992.0
http://www.theswamp.org/index.php?topic=11342.msg143630#msg143630


-----------   keyword examples  -------------
http://www.theswamp.org/index.php?topic=15173.0
http://www.theswamp.org/index.php?topic=6992.0
http://www.theswamp.org/index.php?topic=15173.0
http://www.theswamp.org/index.php?topic=6992.msg93574#msg93574
http://www.theswamp.org/index.php?topic=39042.0

[MSTG007]

Hey CAB,

Thanks for this... Great info. Dozens of ways to do this. Again Thank you.

[ScottMC]

A thought similar to my post, that, by using the shift/ctrl while a command is active, to get/enable an alternate/desired command activated in a running while loop till action completed. This is exactly what would power and speed drafting.
...do consider using acet-sys-keystate as the comments/code exist.