;;;Place a construction note bubble with a leader in the drawing.
;;;The leader may be single or multiple lines at any angle.
;;;The bubble will be placed with the center along the line and the
;;;edge of the bubble coincident with the end of the leader.
;;;The bubble number may be optionally incremented or held the same
;;;for subsequent placements.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-23-93
;;;>		   EDITED: 12-11-2006
;;;
(DEFUN C:CNL (/	      pt1     mp1     mp2     numb    dimsc   mpb
	      mpn     bldsc   clayr   txht    rcall   skipbt  do_tag
	      do_cnls did_incr
	     )
  (IF browser_help
    NIL
    (LOAD "browser_help" "\nFile BROWSER_HELP not loaded!")
  ) ;_ end of IF
  (SETQ cnl_dlg# (LOAD_DIALOG "cnl"))
  (SETQ	newdlg_cnl
	 (NEW_DIALOG
	   "cnl"
	   cnl_dlg#
	   (IF defact_cnl
	     defact_cnl
	     ""
	   ) ;_ end of IF
	   (IF cnl_loc
	     cnl_loc
	     '(-1 -1)
	   ) ;_ end of IF
	 ) ;_ end of NEW_DIALOG
  ) ;_ end of SETQ
  (IF tag_opt
    (SET_TILE "tag_opt" tag_opt)
    (PROGN
      (SETQ tag_opt "incr_tag")
      (SET_TILE "tag_opt" tag_opt)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (COND ((EQ tag_symb "b_tag")
	 (SET_TILE "tag_symb" tag_symb)
	 (SETQ blk_siz 0.14428571))
	((EQ tag_symb "d_tag")
	 (SET_TILE "tag_symb" tag_symb)
	 (SETQ blk_siz 0.20405081))
	((EQ tag_symb "h_tag")
	 (SET_TILE "tag_symb" tag_symb)
	 (SETQ blk_siz 0.20405081))
	(T
         (SETQ tag_symb "b_tag"
	       blk_siz 0.14428571
	 )
	 (SET_TILE "tag_symb" tag_symb))
  )
  (set_image)
  (IF (AND ref_no (EQ (TYPE ref_no) 'INT))
    (SET_TILE "tagval" (ITOA ref_no))
    (IF	tagval
      (SET_TILE "tagval" tagval)
      (PROGN
	(SETQ tagval "1"
	      ref_no 1)
	(SET_TILE "tagval" tagval)
      ) ;_ end of PROGN
    ) ;_ end of IF
  ) ;_ end of IF
  (setldr)
  (setarray)
  (ACTION_TILE
    "tag_opt"
    "(setq tag_opt (get_tile \"tag_opt\"))"
  ) ;_ end of ACTION_TILE
  (ACTION_TILE
    "leader_opt"
    "(setq leader_opt (get_tile \"leader_opt\"))(setldr)"
  ) ;_ end of ACTION_TILE
  (ACTION_TILE
    "arrow_opt"
    "(setq arrow_opt (get_tile \"arrow_opt\"))"
  ) ;_ end of ACTION_TILE
  (ACTION_TILE "tag_symb" "(setq tag_symb (get_tile \"tag_symb\"))")
  (ACTION_TILE "tagval" "(setq tagval (get_tile \"tagval\"))(if(eq(type(read tagval))'INT)(setq ref_no (read tagval)))")
  (ACTION_TILE
    "array_opt"
    "(setq array_opt (get_tile \"array_opt\"))(setarray)"
  ) ;_ end of ACTION_TILE
  (ACTION_TILE "axval" "(setq axval (get_tile \"axval\"))")
  (ACTION_TILE "ayval" "(setq ayval (get_tile \"ayval\"))")
  (ACTION_TILE
    "accept"
    "(setq do_cnls T)(setq cnl_loc(done_dialog 1))"
  ) ;_ end of ACTION_TILE
  (ACTION_TILE
    "cancel"
    "(setq do_cnls NIL)(setq cnl_loc(done_dialog 0))"
  ) ;_ end of ACTION_TILE
  (ACTION_TILE "help" "(browser_help \"cnl\")")
  (START_DIALOG)
  (UNLOAD_DIALOG cnl_dlg#)
  (IF do_cnls
    (PROGN
;;;      (SETQ old_ref_no tagval)
      (SETQ oldosmode (GETVAR "osmode"))
      (SETQ cmde (GETVAR "cmdecho"))
      (SETVAR "cmdecho" 0)
      (SETQ old_attreq (GETVAR "attreq"))
      (SETVAR "attreq" 1)
      (SETVAR "cecolor" "bylayer")
      (IF txtsize
	NIL
	(LOAD "txtsize" "\nFile TXTSIZE.LSP not loaded! ")
      ) ;_ end of IF
      (TXTSIZE "110")
      (IF gvpno
	nil
	(LOAD "gvpno")
      ) ;_ end of if
      (gvpno)
      (IF dimscl
	nil
	(LOAD "dimscl")
      ) ;_ end of if
      (dimscl)
      (IF c:mklayr
	nil
	(LOAD "mklayr")
      ) ;_ end of if
      (c:svlayr)
      (SETQ ntz	 (* 1001 dimsc)
	    numb 0
	    mjrg (IF mjrg
		   mjrg
		   "C"
		 ) ;_ end of if
	    llt	 "-"
	    colr "1"
	    modf "NOTE"
      ) ;_ end of setq
      (IF mjrg
	nil
	(SETQ mjrg "C")
      ) ;_ end of if
      (SETQ mpb	      (LIST "A" "A")
	    did_tag   T
	    ref_no    (IF (AND ref_no (EQ (TYPE ref_no) 'INT))
			ref_no
			(IF (AND tagval
				 (EQ (TYPE (READ tagval)) 'INT)
				 (> (READ tagval) 0)
			    ) ;_ end of AND
			  (READ tagval)
			  1
			) ;_ end of IF
		      ) ;_ end of IF
	    go_around NIL
      ) ;_ end of SETQ
      (IF (EQ leader_opt "1")
	(SETQ use_ldrq "Yes")
	(SETQ use_ldrq "No")
      ) ;_ end of IF
;;;      (SETQ use_ldrq
;;;	     (ukword 1 "Yes No" "\nUse leader <Yes No>? " use_ldrq)
;;;      ) ;_ end of SETQ
      (IF (EQ arrow_opt "1")
	(SETQ arohed "Yes")
	(SETQ arohed "No")
      ) ;_ end of IF
;;;      (IF (EQ use_ldrq "Yes")
;;;	(SETQ arohed (ukword 1
;;;			     "Yes No"
;;;			     "With arrowhead?"
;;;			     (IF arohed
;;;			       arohed
;;;			       "Yes"
;;;			     ) ;_ end of if
;;;		     ) ;_ end of ukword
;;;	) ;_ end of SETQ
;;;      ) ;_ end of IF
      (IF (EQ tag_opt "incr_tag")
	(SETQ incorhold "Increment")
	(SETQ incorhold "Hold")
      ) ;_ end of IF
;;;      (SETQ incorhold
;;;	     (ukword
;;;	       1
;;;	       "Increment Hold"
;;;	       "<I>ncrement or <H>old reference number for multiple labels?"
;;;	       (IF incorhold
;;;		 incorhold
;;;		 "I"
;;;	       ) ;_ end of IF
;;;	     ) ;_ end of ukword
;;;      ) ;_ end of setq
      (WHILE (AND (NOT (EQ pt1 "Quit")) (NOT (EQ mpb "Quit")))
	(IF (AND (EQ arohed "Yes") (EQ use_ldrq "Yes"))
	  (IF (NOT (TBLSEARCH "BLOCK" "DIMARO"))
	    (PROGN
	      (ENTMAKE
		'((0 . "BLOCK")
		  (2 . "DIMARO")
		  (70 . 64)
		  (10 0.0 0.0 0.0)
		 )
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 0.0 0.0 0.0)
			 (11 -0.947368 0.157895 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -0.947368 0.118421 0.0)
			 (11 -0.236842 0.0 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -0.473684 0.0 0.0)
			 (11 -0.947368 0.0789474 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -0.947368 0.0394737 0.0)
			 (11 -0.710526 0.0 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -0.710526 0.0 0.0)
			 (11 -0.947368 -0.0394737 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -0.947368 -0.0789474 0.0)
			 (11 -0.473684 0.0 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -0.236842 0.0 0.0)
			 (11 -0.947368 -0.118421 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -0.947368 -0.157895 0.0)
			 (11 0.0 0.0 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -0.947368 -0.118421 0.0)
			 (11 -0.947368 -0.0789474 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -0.947368 -0.0394737 0.0)
			 (11 -0.947368 0.0 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -0.947368 0.0789474 0.0)
			 (11 -0.947368 0.0394737 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -0.947368 0.118421 0.0)
			 (11 -0.947368 0.157895 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "LINE")
			 (8 . "0")
			 (62 . 0)
			 (10 -1.0 0.0 0.0)
			 (11 -0.947368 0.0 0.0)
			 (210 0.0 0.0 1.0)
			)
	      ) ;_ end of entmake
	      (ENTMAKE '((0 . "ENDBLK")))
	    ) ;_ end of progn
	  ) ;_ end of if
	) ;_ end of IF
	(WHILE
	  (IF (EQ use_ldrq "Yes")
	    (AND
	      (SETQ
		pt1
		 (upoint 1
			 "Quit"
			 (STRCAT "\nStart point of "
				 (IF do_exist
				   "Existing"
				   "New"
				 ) ;_ end of IF
				 (IF
				   (AND (EQ colr_over "1") do_tnote)
				    " custom color"
				    ""
				 ) ;_ end of IF
				 " leader or [Quit]"
			 ) ;_ end of STRCAT
			 nil
			 nil
		 ) ;_ end of GETPOINT
	      ) ;_ end of SETQ
	      (NOT (EQ pt1 "Quit"))
	    ) ;_ end of AND
	    (AND
	      (SETQ mpb	(upoint
			  1			 "Quit"
			  "\nTag insertion point or [Quit]"
			  nil			 nil
			 ) ;_ end of upoint
 ;_ end of upoint
 ;_ end of upoint
 ;_ end of upoint
	      ) ;_ end of SETQ
	      (NOT (EQ mpb "Quit"))
	    ) ;_ end of AND
	  ) ;_ end of IF
	   (IF (EQ use_ldrq "Yes")
	     (PROGN
	       (SETQ ldrpt_lst (LIST pt1))
	       (SETQ mp1 pt1)
	       (SETQ leader_ss (SSADD))
	       (SETVAR "osmode" 0)
	       (WHILE
		 (SETQ
		   mp2 (upoint
			 0
			 "Existing New"
			 (STRCAT
			   "Next "
			   (IF do_exist
			     "Existing"
			     "New"
			   ) ;_ end of IF
			   (IF
			     (AND (EQ colr_over "1") do_tnote)
			      " custom color"
			      ""
			   ) ;_ end of IF
			   " leader point or toggle <E>xisting/<N>ew"
			 ) ;_ end of STRCAT
			 nil
			 mp1
		       ) ;_ end of upoint
		 ) ;_ end of SETQ
		  (IF (OR (EQ mp2 "Existing") (EQ mp2 "New"))
		    (COND
		      ((EQ mp2 "Existing")
		       (SETQ do_exist T)
		       (IF do_cmud
			 (PROGN
			   (cmud_colr)
			   (SETQ colr txcolr)
			 ) ;_ end of PROGN
			 (SETQ colr "1")
		       ) ;_ end of IF
		       (c:mklayr)
		      )
		      ((EQ mp2 "New")
		       (SETQ do_exist NIL)
		       (IF do_cmud
			 (PROGN
			   (cmud_colr)
			   (SETQ colr txcolr)
			 ) ;_ end of PROGN
			 (SETQ colr "2")
		       ) ;_ end of IF
		      )
		    ) ;_ end of COND
		    (PROGN
		      (IF do_cmud
			(cmud_colr)
		      ) ;_ end of IF
		      (COND
			((AND do_tnote (EQ colr_over "1"))
			 (SETQ colr tnote_ldrc)
			)
		      ) ;_ end of COND
		      (SETQ topl nil
			    botl nil
		      ) ;_ end of SETQ
		      (COMMAND ".line" mp1 mp2 "")
		      (SETQ leader_ss (SSADD (ENTLAST) leader_ss))
		      (SETQ ldrpt_lst (APPEND ldrpt_lst (LIST mp2)))
		      (SETQ mpn	mp1
			    mp1	mp2
		      ) ;_ end of SETQ
		      (IF (= numb 0)
			(PROGN
			  (SETQ	mpl mp2
				numb 1
			  ) ;_ end of SETQ
			) ;_ end of PROGN
		      ) ;_ end of IF
		    ) ;_ end of PROGN
		  ) ;_ end of IF
	       ) ;_ end of WHILE
	       (SETQ inss1 dimsc)
	       (IF mjrg
		 nil
		 (SETQ mjrg "G")
	       ) ;_ end of if
	       (IF prod
		 nil
		 (SETQ prod "DETL")
	       ) ;_ end of if
	       (SETQ assoc10_lst nil)
	       (FOREACH	n ldrpt_lst
		 (IF assoc10_lst
		   (SETQ assoc10_lst
			  (APPEND assoc10_lst (LIST (CONS 10 n)))
		   ) ;_ end of SETQ
		   (SETQ assoc10_lst (LIST (CONS 10 n)))
		 ) ;_ end of if
	       ) ;_ end of foreach
	       (IF (AND	(<= (DISTANCE (CDR (LAST assoc10_lst))
				      (CDADR (REVERSE assoc10_lst))
			    ) ;_ end of DISTANCE
			    (* dimsc 0.1)
			) ;_ end of <=
		   ) ;_ end of AND
		 (SETQ assoc10_lst (REVERSE (CDR (REVERSE assoc10_lst))))
	       ) ;_ end of IF
	       (IF (AND do_tnote (EQ colr_over "1"))
		 (SETQ colr tnote_ldrc)
		 (PROGN
		   (set_txt_colr thts)
		   (SETQ colr lncolr)
		 ) ;_ end of PROGN
	       ) ;_ end of IF
	       (c:mklayr)
	       (IF (TBLSEARCH "DIMSTYLE" "ARCHLEADER")
		 NIL
		 (PROGN
		   (IF c:archldrs
		     NIL
		     (LOAD "archldrs")
		   ) ;_ end of IF
		   (IF c:archldrs
		     (C:ARCHLDRS)
		   ) ;_ end of IF
		 ) ;_ end of PROGN
	       ) ;_ end of IF
	       (IF (TBLSEARCH "DIMSTYLE" "ARCHLEADER")
		 (SETQ ldrent_lst1
			(LIST
			  (CONS 0 "LEADER")
			  (CONS 3 "ARCHLEADER")
			  (CONS 100 "AcDbEntity")
			  (IF
			    (OR	(EQ (GETVAR "tilemode") 1)
				(> (GETVAR "cvport") 1)
			    ) ;_ end of OR
			     (CONS 67 0)
			     (CONS 67 1)
			  ) ;_ end of if
			  (CONS 8 new_ln)
			  (CONS 100 "AcDbLeader")
			  (IF (EQ arohed "Yes")
			    (CONS 71 1)
			    (CONS 71 0)
			  ) ;_ end of if
			  (CONS 72 0)
			  (CONS 73 3)
			  (CONS 75 0)
			  (CONS 76 (LENGTH ldrpt_lst))
			) ;_ end of list
		 ) ;_ end of setq
		 (SETQ ldrent_lst1
			(LIST
			  (CONS 0 "LEADER")
			  (CONS 100 "AcDbEntity")
			  (IF
			    (OR	(EQ (GETVAR "tilemode") 1)
				(> (GETVAR "cvport") 1)
			    ) ;_ end of OR
			     (CONS 67 0)
			     (CONS 67 1)
			  ) ;_ end of if
			  (CONS 8 new_ln)
			  (CONS 100 "AcDbLeader")
			  (CONS 3 "STANDARD")
			  (IF (EQ arohed "Yes")
			    (CONS 71 1)
			    (CONS 71 0)
			  ) ;_ end of if
			  (CONS 72 0)
			  (CONS 73 3)
			  (CONS 75 0)
			  (CONS 76 (LENGTH ldrpt_lst))
			) ;_ end of list
		 ) ;_ end of setq
	       ) ;_ end of IF
	       (SETQ ldrent_lst2
		      (LIST
			(CONS 77 (ATOI lncolr))
		      ) ;_ end of list
	       ) ;_ end of setq
	       (SETQ ldrent_lst
		      (APPEND ldrent_lst1 assoc10_lst ldrent_lst2)
	       ) ;_ end of SETQ
	     ) ;_ end of PROGN
	   ) ;_ end of IF
	   (IF (EQ use_ldrq "Yes")
	     (IF (> (LENGTH assoc10_lst) 1)
	       (SETQ mpb
		      (POLAR
			(CDR (LAST assoc10_lst))
			(ANGLE (CDADR (REVERSE assoc10_lst))
			       (CDR (LAST assoc10_lst))
			) ;_ end of ANGLE
			(* dimsc 0)
		      ) ;_ end of POLAR
	       ) ;_ end of SETQ
	       (SETQ mpb NIL)
	     ) ;_ end of IF
	   ) ;_ end of IF
	   (IF (AND (/= mpb "Quit") mpb)
	     (PROGN
	       (SETQ dscsz (* dimsc 0.125))
	       (SETQ colr "6")
	       (c:mklayr)
;;;	       (IF (AND ref_no (EQ(TYPE ref_no)'INT)(/= ref_no "Quit"))
;;;		 (SETQ old_ref_no ref_no)
;;;		 (SETQ old_ref_no (READ tagval))
;;;	       ) ;_ end of IF
	       (IF (AND ref_no (EQ (TYPE ref_no) 'INT))
		 (SETQ old_ref_no
			ref_no
		 ) ;_ end of SETQ
		 (SETQ old_ref_no
			(READ tagval)
		 ) ;_ end of SETQ
	       ) ;_ end of IF
	       (IF (AND	(EQ array_opt "1")
			axval
			ayval
			(EQ (TYPE (READ axval)) 'INT)
			(EQ (TYPE (READ ayval)) 'INT)
		   ) ;_ end of AND
;;;		 (SETQ ref_no (STRCAT axval "X" ayval))
		 (IF (AND tagval
			  (EQ (TYPE (READ tagval)) 'INT)
			  (NOT ref_no)
		     ) ;_ end of AND
		   (SETQ ref_no (READ tagval))
		   (IF (AND ref_no (EQ (TYPE ref_no) 'INT))
;;;		     (IF (EQ incorhold "Hold")
		       NIL
;;;		       (SETQ ref_no (1+ ref_no))
;;;		     ) ;_ end of if
		     (IF (AND old_ref_no (EQ (TYPE old_ref_no) 'INT))
		       (SETQ ref_no old_ref_no)
		       (SETQ ref_no 1)
		     ) ;_ end of IF
		   ) ;_ end of if
		 ) ;_ end of IF
	       ) ;_ end of IF
;;;	       (SETQ ref_no
;;;		      (uint
;;;			1
;;;			"1X2 1X3 1X4 1X5 1X6 1X7 1X8 2X1 2X2 2X3 2X4 2X5 2X6 2X7 2X8 3X1 3X2 3X3 3X4 3X5 3X6 3X7 3X8 4X1 4X2 4X3 4X4 4X5 4X6 4X7 4X8 5X1 5X2 5X3 5X4 5X5 5X6 5X7 5X8 6X1 6X2 6X3 6X4 6X5 6X6 6X7 6X8 7X1 7X2 7X3 7X4 7X5 7X6 7X7 7X8 8X1 8X2 8X3 8X4 8X5 8X6 8X7 8X8"
;;;			"Reference Number or array size [#X#]"
;;;			(IF (AND ref_no (EQ (TYPE ref_no) 'INT))
;;;			  (IF (EQ incorhold "Hold")
;;;			    ref_no
;;;			    (1+ ref_no)
;;;			  ) ;_ end of if
;;;			  1
;;;			) ;_ end of if
;;;		      ) ;_ end of uint
;;;	       ) ;_ end of setq
	       (IF (/= ref_no "Quit")
		 (PROGN
		   (IF (AND (NOT (EQ (TYPE ref_no) 'INT))
			    (WCMATCH ref_no "#X#")
		       ) ;_ end of AND
		     (PROGN
		       (SETQ tag_cols  (ATOI (SUBSTR ref_no 1 1))
			     tag_rows  (ATOI (SUBSTR ref_no 3 1))
			     tno_tags  (* tag_cols tag_rows)
			     tagno_cnt 1
;;;			     mref_no   (uint 1
;;;					     ""
;;;					     "Starting Reference Number"
;;;					     (IF mref_no
;;;					       mref_no
;;;					       1
;;;					     ) ;_ end of IF
;;;				       ) ;_ end of uint
		       ) ;_ end of setq
		       (SETVAR "osmode" 0)
		       (WHILE (<= tagno_cnt tno_tags)
			 (COMMAND
			   ".insert"
			   tag_symb
			   mpb
			   dimsc
			   dimsc
			   (* (/ (- 0 (GETVAR "viewtwist")) PI) 180)
			   mref_no
			 ) ;_ end of command
			 (IF (OR (EQ (/	(ATOF (ITOA tagno_cnt))
					(ATOF (ITOA tag_cols))
				     ) ;_ end of /
				     1.0
				 ) ;_ end of EQ
				 (EQ (/	(ATOF (ITOA tagno_cnt))
					(ATOF (ITOA tag_cols))
				     ) ;_ end of /
				     2.0
				 ) ;_ end of EQ
				 (EQ (/	(ATOF (ITOA tagno_cnt))
					(ATOF (ITOA tag_cols))
				     ) ;_ end of /
				     3.0
				 ) ;_ end of EQ
				 (EQ (/	(ATOF (ITOA tagno_cnt))
					(ATOF (ITOA tag_cols))
				     ) ;_ end of /
				     4.0
				 ) ;_ end of EQ
				 (EQ (/	(ATOF (ITOA tagno_cnt))
					(ATOF (ITOA tag_cols))
				     ) ;_ end of /
				     5.0
				 ) ;_ end of EQ
				 (EQ (/	(ATOF (ITOA tagno_cnt))
					(ATOF (ITOA tag_cols))
				     ) ;_ end of /
				     6.0
				 ) ;_ end of EQ
				 (EQ (/	(ATOF (ITOA tagno_cnt))
					(ATOF (ITOA tag_cols))
				     ) ;_ end of /
				     7.0
				 ) ;_ end of EQ
				 (EQ (/	(ATOF (ITOA tagno_cnt))
					(ATOF (ITOA tag_cols))
				     ) ;_ end of /
				     8.0
				 ) ;_ end of EQ
			     ) ;_ end of OR
			   (SETQ mpb
				  (POLAR
				    (POLAR
				      mpb
				      (+ (* 1.5 PI) (- 0 (GETVAR "viewtwist")))
				      (* dimsc 2.0 blk_siz)
				    ) ;_ end of polar
				    (+ PI (- 0 (GETVAR "viewtwist")))
				    (* dimsc 2.0 (1- tag_cols) blk_siz)
				  ) ;_ end of polar
			   ) ;_ end of setq
			   (SETQ mpb (POLAR mpb
					    (- 0 (GETVAR "viewtwist"))
					    (* dimsc 2.0 blk_siz)
				     ) ;_ end of POLAR
			   ) ;_ end of SETQ
			 ) ;_ end of IF
			 (SETQ tagno_cnt (1+ tagno_cnt)
			       mref_no	 (1+ mref_no)
			 ) ;_ end of setq
		       ) ;_ end of WHILE
		       (SETVAR "osmode" oldosmode)
		     ) ;_ end of PROGN
		     (PROGN
	               (SETVAR "osmode" 0)
			(IF (AND (EQ (LENGTH assoc10_lst) 1)
				 (NOT mpb)
				 (EQ use_ldrq "Yes")
			    ) ;_ end of AND
			  (PRINC "\nProvide at least two points when using leaders!")
			  (IF (AND ldrent_lst (EQ use_ldrq "Yes"))
			    (PROGN
			      (COMMAND ".ERASE" leader_ss "")
			      (ENTMAKE ldrent_lst)
			      (SETQ ldrent_lst NIL)
			    ) ;_ end of PROGN
			  ) ;_ end of IF
			) ;_ end of IF
		       (COMMAND ".insert"
			        tag_symb
			        mpb
			        dimsc
			        dimsc
			        (* (/ (- 0 (GETVAR "viewtwist")) PI) 180)
			        ref_no
		       ) ;_ end of command
		       (SETVAR "osmode" oldosmode)
		     )
		   ) ;_ end of IF
		   (SETQ did_tag T)
		 ) ;_ end of PROGN
	       ) ;_ end of IF
	       (SETQ numb 0
		     do_tag nil
	       ) ;_ end of SETQ
	     ) ;_ end of PROGN
	   ) ;_ end of IF
	   (IF (EQ incorhold "Hold")
	     NIL
	     (SETQ ref_no (1+ ref_no)
		   did_incr T)
	   ) ;_ end of if
	   (SETVAR "osmode" oldosmode)
	) ;_ end of WHILE
	(IF (EQ incorhold "Hold")
	  NIL
	  (IF did_incr
	    (SETQ ref_no (1- ref_no)
	          did_incr NIL
	    )
	  )
	) ;_ end of if
	(IF (AND ref_no (EQ (TYPE ref_no) 'INT))
	  (SETQ ref_no (1+ ref_no))
	  (IF (AND old_ref_no (EQ (TYPE old_ref_no) 'INT))
	    (SETQ ref_no old_ref_no)
	    (SETQ ref_no 1)
	  ) ;_ end of IF
	) ;_ end of if
      ) ;_ end of WHILE
      (c:rslayr)
      (SETVAR "cmdecho" cmde)
      (SETVAR "attreq" old_attreq)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (PRINC)
) ;_ end of DEFUN
(DEFUN setldr ()
  (COND
    ((NOT leader_opt)
     (SETQ leader_opt "1")
     (SET_TILE "leader_opt" leader_opt)
     (MODE_TILE "arrow_opt" 0)
     (IF arrow_opt
       (SET_TILE "arrow_opt" arrow_opt)
       (PROGN
	 (SETQ arrow_opt "1")
	 (SET_TILE "arrow_opt" arrow_opt)
       ) ;_ end of PROGN
     ) ;_ end of IF
    )
    ((EQ leader_opt "1")
     (SET_TILE "leader_opt" leader_opt)
     (MODE_TILE "arrow_opt" 0)
     (IF arrow_opt
       (SET_TILE "arrow_opt" arrow_opt)
       (PROGN
	 (SETQ arrow_opt "1")
	 (SET_TILE "arrow_opt" arrow_opt)
       ) ;_ end of PROGN
     ) ;_ end of IF
    )
    ((EQ leader_opt "0")
     (SET_TILE "leader_opt" leader_opt)
     (MODE_TILE "arrow_opt" 1)
     (IF arrow_opt
       (SET_TILE "arrow_opt" arrow_opt)
       (PROGN
	 (SETQ arrow_opt "1")
	 (SET_TILE "arrow_opt" arrow_opt)
       ) ;_ end of PROGN
     ) ;_ end of IF
    )
  ) ;_ end of COND
) ;_ end of defun
(DEFUN setarray	()
  (COND
    ((OR (NOT array_opt) (EQ array_opt "0"))
     (SETQ array_opt "0")
     (SETQ mref_no nil)
     (SET_TILE "array_opt" array_opt)
     (MODE_TILE "axval" 1)
     (MODE_TILE "ayval" 1)
     (SETQ axval "")
     (SET_TILE "axval" axval)
     (SETQ ayval "")
     (SET_TILE "ayval" ayval)
     (IF (EQ (TYPE (READ (GET_TILE "tagval"))) 'INT)
       (SETQ ref_no (READ (GET_TILE "tagval")))
       (SETQ ref_no 1)
     ) ;_ end of IF
    )
    ((EQ array_opt "1")
     (SET_TILE "array_opt" array_opt)
     (SETQ mref_no (READ (GET_TILE "tagval")))
     (MODE_TILE "axval" 0)
     (MODE_TILE "ayval" 0)
     (IF (AND axval (/= axval ""))
       (SET_TILE "axval" axval)
       (PROGN
	 (SETQ axval "2")
	 (SET_TILE "axval" axval)
       ) ;_ end of PROGN
     ) ;_ end of IF
     (IF (AND ayval (/= ayval ""))
       (SET_TILE "ayval" ayval)
       (PROGN
	 (SETQ ayval "2")
	 (SET_TILE "ayval" ayval)
       ) ;_ end of PROGN
     ) ;_ end of IF
     (SETQ ref_no (STRCAT axval "X" ayval))
    )
  ) ;_ end of COND
) ;_ end of defun
(DEFUN set_image ()
  (SETQ	biwid (DIMX_TILE "b_image")
	bihgt (DIMY_TILE "b_image")
  ) ;_ end of setq
  (START_IMAGE "b_image")
  (FILL_IMAGE 0 0 biwid bihgt -15)	;-15 = dialog background
  (VECTOR_IMAGE 10 2 18 10 250)
  (VECTOR_IMAGE 18 10 10 18 250)
  (VECTOR_IMAGE 10 18 2 10 250)
  (VECTOR_IMAGE 2 10 10 2 250)
  (END_IMAGE)
  (SETQ	diwid (DIMX_TILE "d_image")
	dihgt (DIMY_TILE "d_image")
  ) ;_ end of setq
  (START_IMAGE "d_image")
  (FILL_IMAGE 0 0 diwid dihgt -15)	;-15 = dialog background
  (VECTOR_IMAGE 10 2 13 3 250)
  (VECTOR_IMAGE 13 3 16 4 250)
  (VECTOR_IMAGE 16 4 17 7 250)
  (VECTOR_IMAGE 17 7 18 10 250)
  (VECTOR_IMAGE 18 10 17 13 250)
  (VECTOR_IMAGE 17 13 16 16 250)
  (VECTOR_IMAGE 16 16 13 17 250)
  (VECTOR_IMAGE 13 17 10 18 250)
  (VECTOR_IMAGE 10 18 7 17 250)
  (VECTOR_IMAGE 7 17 4 16 250)
  (VECTOR_IMAGE 4 16 3 13 250)
  (VECTOR_IMAGE 3 13 2 10 250)
  (VECTOR_IMAGE 2 10 3 7 250)
  (VECTOR_IMAGE 3 7 4 4 250)
  (VECTOR_IMAGE 4 4 7 3 250)
  (VECTOR_IMAGE 7 3 10 2 250)
  (END_IMAGE)
  (SETQ	hiwid (DIMX_TILE "h_image")
	hihgt (DIMY_TILE "h_image")
  ) ;_ end of setq
  (START_IMAGE "h_image")
  (FILL_IMAGE 0 0 hiwid hihgt -15)	;-15 = dialog background
  (VECTOR_IMAGE 10 2 17 7 250)
  (VECTOR_IMAGE 17 7 17 13 250)
  (VECTOR_IMAGE 17 13 10 18 250)
  (VECTOR_IMAGE 10 18 3 13 250)
  (VECTOR_IMAGE 3 13 3 7 250)
  (VECTOR_IMAGE 3 7 10 1 250)
  (END_IMAGE)
) ;_ end of defun

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