Simple multiple value entry in a dcl.
This is a library routine that allows you to ask for multiple input of values in one dcl rather than one after another on the command line. It can be 1 entry or as many as required subject to screen limits.
It only requires 2 lines of code to be used, it uses a list of the variable description, box size and default value. Can be used in any code. If used again can save previous values entered.
(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setq newvals (AH:getvalsm (list "Enter Values" "Length " 5 4 "100" "Width" 5 4 "50" "Depth" 5 4 "25" "Gap" 5 4 "25")))
0