Lisp that scale down/up multiple similar objects by their individual center

[nolex]

Hi,

 

Is there a lisp routine where it scales multiple objects about their individual center like this attached file but instead of entering the scale factor I have the option to use reference points like the default scale command in autocad?

 

Thanks!

Scale Multiple Object About its Individual Center.lsp

[exceed]

selectsimilar or qselect

and try this