Axis scaling: Scaling parts of an object, but not the whole thing

I am designing windows and doors for a company, and I have designed a standard door size. However, I want to be able to scale the object in certain directions (already added a SCALEAXIS command into lisp), but I want to maintain the size and spacing of the building materials within the object (1-1/4" flat bar needs to stay 1-1/4" wide as opposed to scaling along with the rest of the object.) Door Example.dwg Is this possible to do and if so, how?

Had you considered using a dynamic block instead? It might be a better approach.