;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 05-25-2001
;;;
(defun c:attincr ()
  (setq old_attdia (getvar "attdia"))	
  (setq old_attreq (getvar "attreq"))
  (setvar "attdia" 0);;;supresses the dialog screen
  (setvar "attreq" 1);;;asks for attribute values
  (setq dimsc (getvar "dimscale"))
  (setq base_no (getint "\nBase number"))
  (setq incr_no (getint "\nNumber Increment"))
  (setq block_name (getstring "\nBlock name"))
  (while
    (setq ins_pt (getpoint "\nInsertion point"))
    (command "_.insert" block_name ins_pt dimsc dimsc 0 "\\" "\\")
  )
  (setvar "attdia" old_attdia)
  (setvar "attreq" old_attreq)
  (princ)
)