Having a problem with a LISP script

[PilonWorks]

All,

When I run this script:

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

It is only supposed to move all selected objects in the Z axis. This command is moving selected items in the X and Y axis as well. It is only behaving this way for some users. I have done some VBA for autocad scripting but LISP is a bit outside what I know. Could you at least get me pointed in the right direction? Thanks in advance! 

[ВeekeeCZ]

You should have OSNAPs OFF before you run the code. That could make the difference.

Edit: @cadffm  too slooow, again. Sorry!

[cadffm · Accepted solution]

VBA or LISP, MOVE is a native command.

I guess you have objects near to 0,0,0

and your running object snaps are ON.

You should add (setvar "osnapcoord" 1) as second line 

or add "_none" in front of all coordinates.

Quick test: set osnaps off [F3], start the lisp again in this dwg.

[PilonWorks]

Yep, having OSNAP turned off fixed the issue, the code is now:

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

Thanks for the help and this has solved a headache. You guys rock!