Array numbers, lisp?

Aug 10, 2005 3 Replies

Hello,



I need line of numbers starting from 1 to 50: is there a way to do this with array so that the numbers grow automatically and I don´t have to edit each one separately?



thanks, P


There are a bunch of these around. This one seems to work:

------------------------------------ ; NUMBERS.LSP

; Increments numbers while the user randomly places them around the screen.

(defun C:NUMBERS (/ A B C D E)

(setvar "CMDECHO" 0) (setq A (getint "\nEnter first number of series: ")) (setq B (getint "\nEnter last number of series: ")) (setq C (getreal "\nEnter text height: ")) (setq D (getreal "\nText rotation : "))

(if (= D nil) (setq D 0) )

(while ( Hello,

Join the Discussion

Have something to add? Share your thoughts — no account required.

Didn't find your answer?

Ask the community — no account required