Leaderboard

I think I understand what you mean, but I think it's not a problem, because in my imagination I thought of using this command to replace object type with the same object type, even if I just tried it and I see that it works with different objects, moreover it also has the possibility to replace a series of objects after selecting the one to use as "master". At first glance it seems exactly what I needed and I think I will definitely add it to my favorite lisps! Thank you!

This should change all block definitions to scale uniformly. (defun c:foo nil (vlax-for b (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (and (= 0 (vlax-get b 'isxref) (vlax-get b 'islayout)) (vl-catch-all-apply 'vla-put-blockscaling (list b acuniform)) ) ) (princ) )