Modification in given Lisp.

[fkp7057]

I am using the below-given Lisp to set all objects at elevation 0.

it is almost working perfectly, but object which are in block can not able to move at 0 elevations.

it will be good if this list moves all cad objects whether it is inside of the block or outside the block. 

This will help me or other users also. for their daily works.

(defun C:Z0 ()
  (ssget)
   (command "move" "p" "" '(0 0 0) '(0 0 1e99) "move" "p" "" '(0 0 0) '(0 0 -1e99))
)

[ВeekeeCZ · Accepted solution]

Use FLATTEN or Superflatten.

[fkp7057]

Ohh Yes.. Thanks to how I forgot this flatten command, 

Thanks for reminding me...

but the first time I heard superflatten this command is not available in my Autocad. is there any LISP available for this?