Move 3D LISP

[tollyboy22]

Im very new to Autolisp so can someone help me with creating simple routine. all i want to do is save time when moving objects in 3d by not typing in: move then 0,0, before the height i want to move my object. i just want a simple command to be able to click and then just type in the height so my object moves on the z axis i no this is prob dead simple to a lot of people but it will help me get started
Thanks

[Opie]

Have you seen the announcement for the current ATP class on Lisp?

[T.Willey]

Maybe something like.

(defun c:MoveZ (/ ss Zval)

(if
 (and
  (setq ss (ssget))
  (setq Zval (getdist "\n Enter distance to move along Z axis: "))
 )
 (command "_.move" ss "" '(0.0 0.0 0.0) (list 0.0 0.0 Zval))
)
(princ)
)

[tollyboy22]

Cheers i dont understand how but it works so thanks alot

[Opie]

Cheers i dont understand how but it works so thanks alot

It checks to see if entities are selected and made into a selection set. It also asks for the distance to move.

It then starts the move command, supplies the selection set and then moves the selection set vertically based on the distance you provide.

[T.Willey]

It checks to see if entities are selected and made into a selection set. It also asks for the distance to move.

It then starts the move command, supplies the selection set and then moves the selection set vertically based on the distance you provide.

Thanks Opie.

[Opie]

Thanks Opie.

You did the work. I just tried to translate it into English.