Move all objects to elevation Z = 0

[dave]

We have a user who has accidentally drawn his 2D drawing at two elevations. We needed a lisp routine to move everthing back to Z = 0. Jharris sent me the following link.

http://cadtips.cadalyst.com/object-properties/change-elevation

mostly worked, did some funky stuff with the text but got all the lines to where they needed to be (after I exploded everything) ;)

Thanks Mr. Harris!!

[Zortar]

My pleasure! The help I offer here is by far less than the help I receive.

[Patrick_Aps]

...if you have the Express tools in AutoCAD.
Flatten.lsp is delivered with AutoCAD since version 14, I believe.

[Zortar]

Flatten.lsp doesn't work on ARX custom objects, that is why we have to use other tools for AutoPlant objects. But it does work on AutoCAD objects.