No
Simply modifying the matrix blocks will solve the problem.
If no one can do it on your own, or if no one has done it before, then I'll help you do it tomorrow.
Use this to see for yourself
(defun c:todovis (/ cj n ent lstent)
(if (setq cj (ssget "x" '((60 . 1))))
(while (setq ent (ssname cj (setq n (if n (1+ n) 0))))
(entmod (append (entget ent) (list '(60 . 0))))
)
)
(princ)
)
@CADSURAY sorry to burst your bubble but Protected lisp is easy to convert back to plain text. It was introduced say at least 30 years ago. That why these days we have VLX and DES.