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. . .
Code:
(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