지정 붙여넣기 문자 주변 자르는 위습

제가 만들고싶은건

겹쳐지지않은 원이 두개가 있습니다. 두개원이 가까운 사분점에 선을하나 연결해서 (이선을 a라고 하겠습니다.) 중앙에  capybace로 (문자하나복사) 위치지정복사후 a선의 중앙점에 붙여넣기를 합니다.

이후 문자와 a선이 겹쳐져있는상태인데 이상태에서 문자를 객채로 trim으로 a선을 잘라버리는 리습을 만들고있습니다.

(defun C:LS(/ ss)
    (prompt "n 객체를 선택하세요 : ")
    (setq pt1 (getpoint "n시작점을 찍으세요: "))
    (setq pt2 (getpoint pt1 "n끝점을 찍으세요: "))
    (setq pt3 (getpoint " pt1 pt2 " mid))
    (command "LINE" pt1 pt2 "")
    (command "PASTECLIP" pt3 "")
(princ)
)

여기까지는 어떻게 하겠는데,, 이후에 pt3중앙지점 설정이나 trim으로 잘라버리는 걸 못하겠습니다 .ㅠ.ㅠ 피드백좀 주실분!!

예로 사진올렸습니다!

위에서부터 아래 순서대로 만들고 싶습니다.