Script to change z-height of objects to zero

[Christiaan 642]

Does anyone know of a script that changes the z-height of objects to zero? Including objects in groups.

We're spending a lot of time resetting objects to zero when copying and pasting across layers/storeys.

[AFDesign 0]

Maybe you can try to

1) read z value of your object with GetSymLo3D

2) move zDistance to -z value using Move3DObj method