Autolisp function menu

[asos2000]

I want to share a code I found in theswamp.org

 

Request: Hi is it possible to get in lisp the menu like in pedit command? see atach.

 

Reply: yep the [ ... ] does the trick

 

(initget "Left Right Up Down Sideways Insideout Forwatd Backwards")
 (setq direction
        (getkword
          "\nElbow direction [Left/Right/Up/Down/Sideways/Insideout/Forward/Backwards ] <Right>: "
        )
 )

 

to have the prompt display

you will need the

DYNMODE variable set to 1, 2, or 3

and

DYNPROMPT variable set to 1

[Kerry Brown]

ohhh, that looks familiar.