 ; Moz - move stuff in the X, Y, or Z plane.
 ; Copyright 2010 by Rocket Software Ltd.
 ; 

 (DEFUN C:MOX (/ ss pa pb pc)
  (prompt "\nSelect Stuff To X Move: ")
  (setq ss (ssget))
  (setq pa (getpoint "Base point: "))
  (setq pb (getpoint pa "X Location: "))
  (setq pc (list (car pb) (cadr pa) (caddr pa)))
  (command ".move" ss "" pa pc)
 (princ))

 (DEFUN C:MOY (/ ss pa pb pc)
  (prompt "\nSelect Stuff To Y Move: ")
  (setq ss (ssget))
  (setq pa (getpoint "Base point: "))
  (setq pb (getpoint pa "Y Location: "))
  (setq pc (list (car pa) (cadr pb) (caddr pa)))
  (command ".move" ss "" pa pc)
 (princ))

 (DEFUN C:MOZ (/ ss pa pb pc)
  (prompt "\nSelect Stuff To Z Move: ")
  (setq ss (ssget))
  (setq pa (getpoint "Base point: "))
  (setq pb (getpoint pa "Z Location: "))
  (setq pc (list (car pa) (cadr pa) (caddr pb)))
  (command ".move" ss "" pa pc)
 (princ))