Try using this command:
Code:
(defun c:MI-ldrbc (/ ss);; Leader Block Change
(princ"\n Select Multileaders to change their Block")
(setq ss(ssget '((0 . "multileader"))))
(cond(ss
;;Replace in the next line "The UserBlock Name" with your user block name.
(repeat(sslength ss)
(vla-put-ContentBlockName(vlax-ename->vla-object (ssname ss 0)) "The UserBlock Name")
(ssdel (ssname ss 0)ss)
)
))
)
(princ "\n Use the new command "mi-ldrbc" to apply changes.)
I hope that this is what you wanted.
Mishaeli Isak