Once again, thanks for your help with my LISP program
Now that I have finished it, I thought I might upload it so that if it is of any use to anyone to help speed up their work, they are free to use it or modify it to better suit their needs.
So here it is:
[code](defun c:numarray (/ pref ptxt snum enum incr txpt cnt ldir lspc) (initget "Yes No") (setq pref (getkword "\nPrefix Text? [Yes/No]: ")) (if (= pref "Yes") (setq ptxt (getstring t "\nSpecify Prefix: ")) ) ; end if (while (and (setq snum (getreal "\nSpecify Starting Number: ")) (setq enum (getreal "\nSpecify Ending Number: ")) (setq incr (getreal "\nSpecify Increment Size [> 0.01]: ")) (setq txpt (getpoint "\nSelect First Text Base Point: ")) ) ; end and (setq cnt snum) (initget 1 "Up Down Left Right") (setq ldir (getkword "\nSpecify List Direction (Up/Down/Left/Right): ")) (setq lspc (getreal (strcat "\nSpecify List Spacing [> " (rtos (getvar "TEXTSIZE") 2 2) "]: " ) ; end strcat ) ; end getreal ) ; end setq (cond ((/= pref "Yes") (while (
That make the LISP a lot more concise, whilst still achieveing the same result.
I couldn't figure out how to incorporate the prefix within the entmake function and still enable the user to decide not to use a prefix, without duplicating the entmake with use of a cond function - but just setting the prefix to "" in the alternative result of the if function accomplishes it nicely.
置顶卡
