Move Lisp

[lmitsou]

Hi all,

Does anybody have a lisp routine that would move two parallel objects (i.e. lines, plines,etc.) , the same distance but opposite direction? It is something like the classic move command but you will be required to pick two objects, then set the distance and when you "enter" the distance, the two object will move towards opposite directions but same distance.

Any help would be very much appreciated.

Thanks,

[kennet.sjoberg]

Here is a simple code in the fly for you to start with
no errorhandler, no user trapping security
just select 2 objects and split. . .

(defun c:split (/ Ent1 Ent2 Pt1 Pt2 )
(setq Ent1 (entsel "Select first object : " ) )
(redraw (car Ent1 ) 3 )
(setq Ent2 (entsel "Select second object : " ) )
(redraw (car Ent2 ) 3 )
(setq Pt1 (getpoint "Move from : " ) )
(setq Pt2 (getpoint Pt1 "to : " ) )
(command "._move" Ent1 "" Pt1 Pt2 )
(command "._move" Ent2 "" Pt2 Pt1 )
(princ)
)


: ) Happy Computing !

kennet

[lmitsou]

That will do the trick Kennet. Thanks very much for your help.