0 Members and 1 Guest are viewing this topic.
(defun C:SEQ (/ pt1 currnt last) (setq pt1 (getpoint "\nPick start point: ")) (setq spc (getdist pt1 "\nEnter number spacing: ")) (setq currnt (getint "\nEnter first number: ")) (setq last (getint "\nEnter last number: ")) (setq stspc (rtos spc 2 2)) (setq stspc (strcat "@" stspc "<0")) (command "text" pt1 "" "" currnt) (repeat (- last currnt) (setq currnt (1+ currnt)) (command "text" stspc "" "" currnt) ))
Hi,'last' is a native LISP function (which returns the last item in a list).As the 'last' variable is localized, it's only redefined within the routine.Using the VLIDE should help you with the color syntax (last should display in blue).