entmake leader

[Ajmal]

(defun c:bcr (/ Make_MText i ss ent)
(defun *error* ( msg )
        (foreach lay lck (vla-put-lock lay :vlax-true))
        (if (= 'int (type cmd)) (setvar 'cmdecho cmd))
        (LM:endundo (LM:acdoc))
        (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
            (princ (strcat "\nError: " msg))
        )
        (princ)
    )
    
 (defun Make_MText (pt str)
   (entmakex (list (cons 0 "MTEXT")
                   (cons 100 "AcDbEntity")
                   (cons 100 "AcDbMText")  (cons 10 pt) (cons 1 str))))

 (if (setq i -1 ss (LM:ssget "\nSelect block <exit>: " '(((0 . "INSERT")))))
   (while (setq ent (ssname ss (setq i (1+ i))))
     (Make_MText (cdr (assoc 10 (entget ent)))
       (apply (function strcat)
         (mapcar (function strcat) '("E " "\nN")
           (mapcar (function rtos) (cdr (assoc 10 (entget ent)))))))))

 (princ))

(defun LM:ssget ( msg arg / sel )
    (princ msg)
    (setvar 'nomutt 1)
    (setq sel (vl-catch-all-apply 'ssget arg))
    (setvar 'nomutt 0)
    (if (not (vl-catch-all-error-p sel)) sel)
)

every time when i make leader i have to put "p2" i need fixed type leader.

 

 as shown this is text. but i need text with leader or ml leader 

how can i make ?????