Try using the combination between Properties & Quick Select. Using Quick Select Find all the Objects that have non-zero values. Then in the Properties Window Change Start x and End Z values to Zero. It's Magic!!! No Lisp Routine needed.
If You still want to Use a lisp you can save your money and use the one in the express tools.
Have Fun!!!