I am looking for the command in a lisp that would move and another command
to alternatively copy selected objects "ss1" along the say X- or Y-axis or
Z-axis by inserted distance value "d1"....
What would I write for the above to include the selection set and distance
If you are using a (COMMAND ....) the from point and the to point is the
place to focus. (All zeros for base point, zeros for the two you want to
remain and your d1 for the third. IOW you have to construct your "To Point".
The cheating way:
(defun C:MYMOVE ( / ss1 disp)
(setq ss1 (ssget)
disp (getpoint "\nEnter x,y,z displacement: ")
(command ".MOVE" ss1 "" (list 0 0 0) disp)
I think you wanted a bit more info, though. At the command line, do this:
(setq testpt (getpoin "\nPick a point, David: "))
Now, still at the command line:
will give you the x coordinate
will give you the y coordinate
will give you the z coordinate
Pull out the appropriate number, add/subtract your number, then put
build the new point with the LIST function. Might look something like;
(setq newpt (list (car oldpt) (cadr oldpt) (+ (caddr oldpt) 5.0)))
This would give newpt a 5.0 unit higher z coordinate.
BTW, I didn't forget about the mech33 thing. I've had a mess of
personal issues to deal with. I'll get to it soon, hopefully. Sorry
for not getting back to you sooner about that.