끊어진 개별선 연결하는 리습

끊어진 개별선 연결하는 리습입니다. 
;;;끊어진 직선 라인연결
(defun C:LJ(/ osm cla ort E1 b SP EP LA P SPA EPA PAP LAA TP FP Q
SPB EPB PB Xx y )
  (setq osm (getvar “osmode”))
  (setq cla (getvar “clayer”))
  (setq ort (getvar “orthomode”))
  (setvar “orthomode” 0)
  (setvar “cmdecho” 0)
  (SETQ E1 (entsel “nSelect 1st line”))
  (SETQ B (ENTGET (CAR E1)))
  (SETQ SP (CDR (ASSOC 10 B)))
  (SETQ EP (CDR (ASSOC 11 B)))
  (SETQ LA (CDR (ASSOC 8 B)))
  (SETQ P (CDR (ASSOC 11 B)))
  (SETQ SPA SP EPA EP PA P LAA LA)
  (SETQ E2 (entsel “nSelect 2st line”))
  (SETQ C (ENTGET (CAR E2)))
  (SETQ TP (CDR (ASSOC 10 C)))
  (SETQ FP (CDR (ASSOC 11 C)))
  (SETQ Q (CDR (ASSOC 10 C)))
  (SETQ SPB TP EPB FP PB Q)
  (setq x (angle spa epb))
  (setq y (angle epa spb))
  (if (equal x y 0.00001) (progn
  (if (< (distance pa epb) (distance pa spb)) (setq np2 spb) (setq np2 epb))
  (if (< (distance pb epa) (distance pb spa)) (setq np1 spa) (setq np1 epa))
  (entdel (car e1)) (entdel (car e2))
  (command “line” np1 np2 “”))
  (progn (terpri) (princ “cannot join….error”)))
  (setvar “osmode” osm)
  (setvar “orthomode” ort)
  (princ)

개별 클릭으로 선택해서 선을 연결하는 리습인데 다중 드래그로 한꺼번에 여러선들을 합칠수 있도록 해 주시면 감사하겠습니다.

현재 레이어가 아닌 지정된 레이어로 리습을 설정해 주세요.

레이어 이름이 1번입니다.