Autocad transformar linea a leader

Si queremos cambiar o transformar una línea a leader, pueden hacerlo usando el siguiente lisp, para ello copian lo siguiente en la li nea de comandos:
(defun c:line->leader ( / ent p1 p2 ents j i)
(vl-load-com)
(setq ents (ssget '((0 . "LINE"))
i (sslength ents)
j 0
)
(while (< j i)

(setq ent (ssname ents j)
p1 (cdr (assoc 10 (entget ent)))
p2 (cdr (assoc 11 (entget ent)))
lead
(entmakex (list (cons 0 "LEADER"
(cons 100 "AcDbEntity"
(cons 67 0)
(cons 100 "AcDbLeader"
(cons 71 1)
(cons 72 0)
(cons 73 3)
(cons 74 1)
(cons 75 0)
(cons 40 0.0)
(cons 41 0.0)
(cons 76 2)
(cons 10 p1)
(cons 10 p2)
(list 210 0.0 0.0 1.0)
(list 212 0.0 0.0 0.0)
(list 213 0.0 0.0 0.0)
)
)
j (1+ j)
)
(vla-delete (vlax-ename->vla-object ent))
)
)

Luego copian "line->leader" para invocar al comando y listo