(defun c:ADDL (/ ob)
(if (setq ob (entsel "\nPlease select MULTILEADER: "))
(if (= (cdr (assoc 0 (entget (car ob)))) "MULTILEADER")
(progn
(command "._mleaderedit" (car ob) pause)
)
(princ "\n** Object selected was not a multileader. ** ")
)
(princ "\n** Nothing selected ** ")
)
(princ)
)
(defun c:REML (/ ob)
(if (setq ob (entsel "\nPlease select MULTILEADER: "))
(if (= (cdr (assoc 0 (entget (car ob)))) "MULTILEADER")
(progn
(command "._mleaderedit" (car ob) "_remove" pause)
)
(princ "\n** Object selected was not a multileader. ** ")
)
(princ "\n** Nothing selected ** ")
)
(princ)
)
k.