;**************************************
    ; Name: DL.lsp
    ; Description:Dimension Leader function 
    ;     that is an enhancement over the AutoCAD'
    ;     s Leader command. The user picks the lea
    ;     der from and to points, and then fills i
    ;     n the Mtext information. The function ad
    ;     justs the leader to align with the top l
    ;     ine of the Mtext, using the user's selec
    ;     ted points.
    ; By: Terry Miller
    ;
    ;This code is copyrighted and has    ; limited warranties.Please see http://w
    ;     ww.Planet-Source-Code.com/vb/scripts/Sho
    ;     wCode.asp?txtCodeId=37&lngWId;=13    ;for details.    ;**************************************
    
    ;---------------------------------------
    ;     ----------------------------------------
    ;     
    ; Program Name: DL.lsp
    ; Created By:Terry Miller (Email: terryc
    ;     ad@airmail.net)
    ;http://web2.airmail.net/terrycad
    ; Date Created: 1-1-01
    ; Function: Dimension Leader function th
    ;     at is an enhancement over the
    ;AutoCAD's Leader command. The user pick
    ;     s the leader from and to
    ;points, and then fills in the Mtext inf
    ;     ormation. The function
    ;adjusts the leader to align with the to
    ;     p line of the Mtext,
    ;using the user's selected points.
    ;---------------------------------------
    ;     ----------------------------------------
    ;     
    ; Revision History
    ; Rev By DateDescription
    ;---------------------------------------
    ;     ----------------------------------------
    ;     
    ; 0TM1-1-01Initial version
    ;---------------------------------------
    ;     ----------------------------------------
    ;     
    (defun c:DL (/ Clayer$ Cnt# DimTad# DScale~ EntList@ LeadAng~ Mid$ New@ Num#
    Old@ Pt1@ Pt2@ Pt3@ SS& Text$ X1~ X2~
    );variables
    (defun dtr (Deg~) (* pi (/ Deg~ 180.0)))
    (setvar "CMDECHO" 0)
    (princ "\nDIM Leader")
    (if (= (getvar "DIMSCALE") 0)
    (setq DScale~ 1)
    (setq DScale~ (getvar "DIMSCALE"))
    );if
    (setq Clayer$ (getvar "CLAYER"))
    ;(command ".LAYER" "M" "DIM" "C" "2" "" 
    ;     "");Change to your Dim layer info.
    (setq Pt1@ (getpoint"\nFrom point: "))
    (princ "\nTo point: ")
    (command ".LEADER" Pt1@ pause ^c)
    (setq Pt2@ (getvar "LASTPOINT"))
    (setq X1~ (car Pt1@))
    (setq X2~ (car Pt2@))
    (if (>= X2~ X1~)
    (setq Pt3@ (polar Pt2@ 0 (* DScale~ (getvar "DIMASZ"))))
    (setq Pt3@ (polar Pt2@ pi (* DScale~ (getvar "DIMASZ"))))
    );if
    (setq DimTad# (getvar "DIMTAD"))
    (setvar "DIMTAD" 0)
    (setq LeadAng~ (angle Pt1@ Pt2@))
    (if (or (< LeadAng~ (dtr 18.4)) (> LeadAng~ (dtr 341.6))
    (and (< LeadAng~ (dtr 198.4)) (> LeadAng~ (dtr 161.6))))
    (if (= (substr (getvar "ACADVER") 1 2) "14")
    (command ".LEADER" Pt1@ Pt2@ Pt3@ "" "" "")
    (command ".LEADER" Pt1@ Pt2@ Pt3@ "" "" "" "")
    );if
    (if (= (substr (getvar "ACADVER") 1 2) "14")
    (command ".LEADER" Pt1@ Pt3@ "" "" "")
    (command ".LEADER" Pt1@ Pt3@ "" "" "" "")
    );if
    );if
    (if (setq SS& (ssget "L" '((0 . "MTEXT"))))
    (progn
    (setq EntList@ (entget (ssname SS& 0)))
    (setq Cnt# 1 Num# 0 Text$ (cdr (assoc 1 EntList@)))
    (repeat (strlen Text$)
    (setq Mid$ (substr Text$ Cnt# 2))
    (if (= Mid$ "\\P")
    (setq Num# (1+ Num#))
    );if
    (setq Cnt# (1+ Cnt#))
    );repeat
    (repeat Num#
    (setq Text$ (strcat "\\P" Text$))
    );repeat
    (setq Old@ (assoc 1 EntList@))
    (setq New@ (cons 1 Text$))
    (entmod (subst New@ Old@ EntList@))
    );progn
    );if
    (command ".LAYER" "S" Clayer$ "")
    (setvar "DIMTAD" DimTad#)
    (princ)
    );defun c:DL
    ;---------------------------------------
    ;     ----------------------------------------
    ;     
    (princ);End of DL.lsp