;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-23-93
;;;>		   EDITED: 08-18-1999
;;;
(defun c:cntag (/ ipnt)
  (setq old_attreq (getvar "attreq"))
  (setq old_attdia (getvar "attdia"))
  (if dimscl nil (load"dimscl"))
  (dimscl)
  (setvar "attreq" 1)
  (setvar "attdia" 0)
  (while (setq ipnt (upoint 0 "" "Tag insertion point" nil nil))
    (setq
      tag_val (ustr 1
		    "Tag value"
		    (if	tag_val
		      tag_val
		      ""
		    ) ;_ end of if
		    T
	      ) ;_ end of ustr
    ) ;_ end of setq
    (command ".insert"
	     "b_tag"
	     ipnt
	     dimsc
	     dimsc
	     (*
	       180
	       (/ (- 0 (getvar "viewtwist")) pi)
	     ) ;_ end of *
	     tag_val
    ) ;_ end of command
  ) ;_ end of while
) ;_ end of defun

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 0 0 0 T T nil T)
 ***Don't add text below the comment!***|;