여러선 브레이크 리습 만들 수 있을까요?

이곳에서 검색해서 받은 라인 중간부분 잘라낼 수 있는 리습입니다
하나의 선만 적용 가능한데
여러선을 선택해서 한번에 중간부분 잘라낼 수 있도록
리습을 수정해서 만들 수 없을지…. 부탁드립니다

(defun c:bbb (/ e pt1 pt2)
   (setq e (ssget “:s”))
   (setq pt1 (getpoint “n>>> first point : “))
   (setq pt2 (getpoint pt1 “n>>> second point : “))  
   (command “_.break” e pt1 pt2)
   (command “_.line” pt1 pt2 “”)
 (command “erase” pt1 “”)

   (princ)
)