;; APNAUTO
;;
;; Inserts APN bubbles.
;; User specifies starting number,
;; routine adds 1 to each successive insert.
;;
;; Routine assumes that LTSCALE is preset according
;; to the intended map scale. For example,
;; if map scale is 1"=100' then LTSCALE=100.
;;
;; Routine also assumes a block exists with the
;; name APN1, and contains one attribute to hold
;; the number that will appear in the bubble.
;;
;; The bubble is inserted on a specified layer to
;; enforce standards, or the 3 code lines
;; referring to CLAYER can be removed to insert
;; the symbol on the current layer.



(DEFUN c:apnauto (/ apn ip clyr)
  (SETQ clyr (GETVAR "CLAYER"))
  (SETQ apn (GETINT "\nEnter Starting Number: "))
  (SETQ ip apn)

  (WHILE ip
    (SETQ ip (GETPOINT "\nPick Insertion Point: "))
    (IF	ip
      (PROGN
	(SETVAR "CLAYER" "050-PARCEL-NUMBER-A")
	(COMMAND "INSERT" "APN1" ip (GETVAR "LTSCALE") "" "E" apn)
	(SETVAR "CLAYER" clyr)
	(SETQ apn (+ apn 1))
      ) ;progn
    ) ;if
  ) ;while

) ;END