Scaling individual entities in a drawing ?

I have a dxf file that consists of multiple rectangles (filled).

I need to keep the X-Y position of each rectangle / entity the same but scale the size of the rectangle.

So for example, scale by -10%. If its a filled rectangle centered at (1,1) size (2,2) I need it to be centered at (1,1) and size (1.8, 1..

DXF is a text file and I can write a piece of VBA code to go through, decode the text, find the rectangles, scale, save the text file back to DXF.

Is there a quicker and easier way to do this?

Depends if you can write your VBA code or Visual Lisp to manipulate Acad as you can read the x,y while using acad. But it is just a different way of doing the same thing.