폴리라인 조인 리습 해석 부탁여 ^^

(defun c:J (/ a b c e len len2 ent-70)
(graphscr)
(setvar “cmdecho” 0)
(setq a (entsel “nt### ## First Join Polyline ## ###”))
(setq a (car a))
(setq b (entget a))
(setq len (cdr (assoc 90 b)))
(setq c (cdr (assoc 8 b)))

(prompt “tThis Layer ====>> “) (princ c) (prompt “n”)
(prompt “ntSelect Next Join Polyline”)

(setq e (ssget ‘((-4 . ““) (-4 . “not>”) (0 . “LWPOLYLINE”) (-4 . “and>”)))) ;—–> 이 부분을 해석좀 해주세요
(command “pedit” a “j” e “” “”)

(setq len2 (cdr (assoc 90 (entget a))))
(setq ent-70 (cdr (assoc 70 (entget a))))

(if (< len len2)
(progn (prompt “n %%%% Goodbye Thank You %%%% “));progn

(progn
(if (or (= ent-70 1) (= ent-70 9) (= ent-70 129))
(progn (prompt “n %%%% Goodbye Thank You %%%% “));progn
(prompt “n %%%% 연결이 되지 않았습니다 %%%% “)
);if
);progn
);if

(princ)
);defun

폴리라인 조인 리습인데… 화살표 저 부분이 뭘 의미하는지 모르겠습니다.
간단히 (command ..)구문으로 조인 가능한데 왜 이리 복잡한지…