(defun C:partnogen (/ pt01)
(setq partnumber (getstring "\nEnter Part Number: "))
(entmake
(list
(cons 0 "BLOCK") ; entity
(cons 2 partnumber) ; block name
(cons 70 2) ; block type
(list 10 0.0 0.0 0.0) ; base point
) ; end list
) ; end entmake
(entmake
(list
(cons 0 "TEXT") ; entity
(cons 8 "SYS-Bom_Part_Numbers") ; layer
(list 10 0.0 0.0 0.0) ; base point
(cons 40 0.035) ; text height
(cons 1 partnumber) ; text string
(cons 50 0) ; text rotation
; (cons 7 "STANDARD") ; text style
(cons 72 10) ; text justification
) ; end list
) ; end entmake text
)
Here's my code I have for creating a block with text, hope it might help. I'm not sure how similar mleader creation is to block creation though.