AutoCAD VBA根据对象缩放

AutoCAD VBA根据对象缩放，代码如下。 代码完。