;;;Place a leader with a vertical line for height of multiline notes
;;;       in the drawing.  The leader may be single or multiple lines
;;;	at any angle.  The vertical will be placed with the center at the
;;;       edge of the last leader line coincident with the end of the leader.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-14-94
;;;>		   EDITED: 03-25-2003
;;;
(DEFUN C:ML ( / pt1 mp1 mp2 numb inss1 mpb mpn bldsc clayr txht )
  (setvar "cmdecho" 0)
  (setq osmod (getvar "osmode"))
  (setvar "osmode" 0)
  (setq clayr (getvar"clayer")
        numb 0
        llt "-"
        colr "1"
        modf "NOTE"
  );setq
  (if c:mklayr nil (load"mklayr"))
  (c:mklayr)
  (command)
  (if dimscl nil (load"dimscl"))
  (dimscl)
;  (setq templ (uint 1 "" "Template size of existing text? " (if templ templ 125)))
  (setq templ 125)
  (if (or(=(substr clayr 7 5)"7NOTE")(and mjrg prod))
    (while
      (setq pt1 (getpoint "\nStart point of leader "))
      (setq mp1 pt1)
      (while
        (setq mp2 (upoint 0 "" "Next point " nil mp1))
        (progn
          (command ".line" mp1 mp2 "")
          (setq mpn mp1)
          (setq mp1 mp2)
          (if (= numb 0)
          (progn
            (setq mpl mp2)
            (setq numb 1)
          );progn
          );if
        );progn
      );while
      (setq inss1 (* dimsc (/ templ 100.00))
            dis1 (* inss1 0.125)
            ang0 (angle pt1 mpl)
            ang1 (+ ang0(* 0.055555 pi))
            ang2 (- ang0(* 0.055555 pi))
            spt2 (polar pt1 ang1 dis1)
            spt3 (polar pt1 ang2 dis1)
      );setq
;      (command ".solid" pt1 spt2 spt3 "" "")
(command ".insert" "ldraro" pt1 dimsc dimsc mpl)
      (if
        (setq topl (upoint 0 "" "\nTop of Note ? " nil mp1))
          (progn
            (setq  botl (upoint 1 "" "\nBottom of Note ? " nil mp1)
                   toppt (list (car mp1) (cadr topl))
                   botpt (list (car mp1) (cadr botl))
            );setq
            (command ".line" toppt botpt "")
          )progn
      );if
      (setq numb 0)
    );while
  );if
    (setvar "clayer" clayr)
    (setvar "cmdecho" 1)
    (setvar "osmode" osmod)
    (command)
);defun
(setq c:iml c:ml)
(princ)