;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-3-2002
;;;>		   EDITED: 09-03-2002
;;;
(defun c:movez ( / azsnewz axsset)
  (setq azsnewz (ureal 1 "" "New \"Z\" value? " azsnewz))
  (setq aznewzstr (rtos azsnewz 2 16))
  (setq azsset (ssget))
  (command ".move" azsset "" "0,0,10e99" "" )
  (command ".move" azsset "" "0,0,-10e99" "" )
  (command ".move" azsset "" (strcat "0,0," aznewzstr) "" )
)