;Autonumber  Allows you to place numbers either randomly or
;patterened in a drawing.
;
;Prompt for starting and ending numbers can be positive or
;negetive direction
;Numbers may also be negetive numbers.
;
;Type R for random allowing user to select random locations for
;numbers.
;
;Type L for linear arrangement and follow prompts for distance
;and angle.

(defun c:number ()  (setvar "Cmdecho" 0)
(setq g (getvar "Blipmode")) (setvar "blipmode" 0)
(setq a (getint "\nStarting Number: "))
(setq b (getint "\nEnding Number: "))
(if (> a b) (setq e -1) (setq e 1))
(setq d (getdist "\nText Height: "))
(setq i (getreal "\nRotation Angle: "))
(initget "R L") (setq h (getkword "\nRandom/<Linear>: "))
(cond ((or (= nil h) (= "L" h)) (gip)
(setq c (getdist p1 "\nDistance Between Numbers: "))
(setq a1 (getangle p1 "\nAngle to Run Numbers: "))
(repeat (1+ (abs (- a b))) (setq f (itoa a))
(if (/=  (type p1t) 'list) (command "test" p1t p1 d i f)
(command "text" p1 d i f)) (setq a (+ a e))
(setq p1 (polar p1 a1 c)))) ((= "R" h) (gip) (repeat
(1+ (abs (- a b))) (setq f (itoa a)) (if (/= (type p1t) 'list)
(command "text" p1t p1 d i f) ( command "text" p1 d i f))
(setq a (+ a e)) (if (/= f (itoa b)) (cond ((= p1t "c")
(setq p1 (getpoint "\nCenter Point: "))) ((= p1t "m")
(setq p1 (getpoint "\nMiddle Point: "))) ((= p1t "R")
(setq p1 (getpoint "\nEndpoint: "))) ((= (type p1t) 'list)
(setq p1 (getpoint "\nStart Point: "))))))))
(setvar "blipmode" g) (princ))

(defun gip () (initget 1 "c m r") (setq p1t (setq p1 (getpoint
"\nStart Point or Center/Middle/Right: ")))
(cond ((= p1t "c") (setq p1 (Getpoint "\nCenter Point: ")))
((= p1t "m") (setq p1 (Getpoint "\nMiddle Point: ")))
((= p1t "r") (setq p1 (Getpoint "\nEndpoint: ")))))