;;;converts a leader line to a spline
;;;allows you to select more than one leader
;;;Elise Moss
;;;www.mossdesigns.com

(defun c:lsplm ()
  ; first get the selection set
  (setq ldrs (ssget (list (cons 0 "LEADER"))))
  ; get the count of how many leaders were selected
  (setq no (sslength ldrs))
  ;;initiate the counter
  (setq item 0)
  (while (< item no)
    ; get the item
  (setq lch (ssname ldrs item))
    ; get the item data
  (setq lch-data (entget lch))
    ; switch to a spline leader
  (setq lch-data (subst (cons 72 1) (assoc 72 lch-data)lch-data))
    ' update the database
  (entmod lch-data)
    (entupd lch)
    (command "regen")
    ;increment the counter
    (setq item (+ 1 item))
    
 ); end while
 
)