Redéfinir uniquement les blocs avec un nom commencant avec le même prefix et synchroniser les attributs

[francinez]

J'ai un lisp écrit par Lee Mac qui fonctionne très bien. (lisp ci joint)

Mon seul problème est que lorsque j'ai des centaines de blocs sur mon dessin, le lisp prend beaucoup de temps à s'exécuter.

Est-il possible de redéfinir uniquement les blocs commençant par le nom de bloc TM..... ?

exemple de nom de mes blocs à redefinir : TM-1005, TM-0349, TM-1006........

Merci de votre aide

redef-f.lsp

[francinez]

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/redefine-only-blocks-with-a-prefix-name-and-synchronise/m-p/12710572