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.