Can someone make customized "MOVE" command.

Hi there all,

I need a lisp which can move selected objects on specified distance. I want to move selected object or objects 1000 units on right side which is -X axis. Please make it this way so that after this Lisp command I select the objects which I need to be moved on 1000 units right and then after hitting enter or space bar all selected objects should move 1000 units right. Hope you will understand.

If someone can help, I'll be thankful.

You may try to adjust the routine from this previous thread.

(defun c:Test (/ ss )
 (if (setq ss (ssget "_:L" ))
   (vl-cmdf "_.move" ss "" "_non" '(0. 0. 0.) "_non"  '(1000. 0. 0.))
   )
 (princ)
 )

(defun c:Test (/ ss )
 (if (setq ss (ssget "_:L" ))
   (vl-cmdf "_.move" ss "" "_non" '(0. 0. 0.) "_non"  '(1000. 0. 0.))
   )
 (princ)
 )

Hi Tharwat,

This is exactly what I needed, thank you for understanding my need and making this Lisp for me. Have good time.

Thanks again.

Hi Tharwat,

This is exactly what I needed, thank you for understanding my need and making this Lisp for me. Have good time.

 

Thanks again.

You're welcome anytime .

An old question why not CHX CHY CHZ and ask for space rather than hard code.

(defun c:CHX (/ ss )
(setq diff (Getreal "\nEnter distance required"  ))
(if (setq ss (ssget "_:L" ))
   (vl-cmdf "_.move" ss "" "_non" '(0. 0. 0.) "_non"  '(diff 0. 0.))
   )
 (princ)

CHY '(0. diff 0.)
 )

Version 2, 1 spacing per session
(if (= diff nil)
(setq diff (Getreal "\nEnter distance required"  ))
)
(if (setq ss (ssget "_:L" ))
   (vl-cmdf "_.move" ss "" "_non" '(0. 0. 0.) "_non"  '(diff 0. 0.))
   )

Like the selection set my old version was pick pick pick