Customized move tool
@Anonymous wrote:Hello once again,
From time to time I need to move twice in a row the same object in ortogonal fashion:
- in example: 100 units left and then 50 unit up
- or: 50 units right and 20 units down etc.
Ok. the only tricky point is when you dont know horizontal and vertical displacent. We all know that any transition has its on horizontla and vertical part, ortogonality is there . If you have to make ortogonal transitions in rotated coordinated system change it. Moving objects using "@" relative coordinate is easy. Polar tracking too.
@Anonymous wrote:(defun c:magic_move (/ selection dist dist2 base quadrant move1 move2) (setq selection (ssget)) (setq dist (getreal "\nMagic move: ")) (setq dist2 (getreal "\nMagic move: ")) (setq base (getpoint "\nBase point: "))
This equals move @dist1,dist2
I wont answer your task by writing some new code , but will show here my helper functions to store variable, distance, selection set or a point into a named global variables, and also helper to review and clear globals (saved in a list). I've added a function rm to perform relative move. Maybe you find it usefull.
(setq globals nil)
(defun c:globals () globals)
(defun twodec (x)(atof(rtos x 2 2)))
(defun c:clear ()
;clears all global variable generated by our macros
(while (and globals) (set (read (car globals)) nil) (setq globals (cdr globals)))
(if (not globals) (alert "Autolisp globals have been cleared!"))
(princ)
)
(defun odefined (p / defined i)
(setq defined nil i 0)
(if globals
(repeat (length globals)
(if (= p (nth i globals))(setq defined T))
(setq i (+ i 1))
)
)
defined
)
(defun c:gd (/ pp _name)
;get distance and assign to variable name
(setq pp (atof(rtos(distance (getpoint "\nSelect first point > ")(getpoint "\nSelect second point > ")) 2 5)))
(setq _name (getstring "\n Naziv variable > "))
(set (read _name) pp)
(princ)
(setq globals (cons _name globals))
(strcat _name " = " (rtos pp 2 5))
)
(defun c:gp ( / pp _name)
;get point and assign to variable name
(setq pp (mapcar 'twodec (getpoint "\nSelect point > "))
_name (getstring "\n Variable name > "))
(set (read _name) pp)
(setq globals (cons _name globals))
pp
)
(defun c:sv( / pp _name)
;assign value to variable name
(setq pp (getreal "\n Enter value >"))
(setq _name (getstring "\n Variable name > "))
(setq globals (cons _name globals))
(set (read _name) pp)
)
(defun c:ss( / pp _name)
;assign name to some selection set
(setq pp (ssget))
(setq _name (getstring "\n Variable name > "))
(setq globals (cons _name globals))
(set (read _name) pp)
)
(defun c:rm (/ hor ver ss)
(setq hor (getreal "\nHorizontal distance >")
ver (getreal "\nvertical distance >")
ss (ssget)
)
(command "move" ss "" (list 0 0) (strcat "@" (rtos hor 2 5) "," (rtos ver 2 5 ) ""))
(princ)
)
To function rm you may answer with stored variables for some measured distance. If you named your variable "a" then you recall it with as "!a". Or any number you like.
Or you may store object to named selection set (let say a) with comand ss and move it with command move and polar tracking. Sorry, don't see a need for special code to do that.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
If you need to move previous object repeatedly you may use acads "move" command option previous.
Command: m Select entities to move: p
That way you avoid continuous reselection of same object(s). At first iteration you may answer with the name of your previously defined selection set name you stored into a global variable. With polar tracking or ortho on you just select previous entity(es), click wherever, move a mouse to desired direction and type a distance.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
