;Line을 Pline으로 만든 후 Join (defun c:PLJ(/ ss k ed en q) (prompt "n>폴리라인으로 만들 객체를 선택 하세요..")  (setq ss (ssget))  (setq k 0)  (repeat (sslength ss)   (setq ed (entget (ssname ss k))         en (cdr (assoc 0 ed)))   (if (/= en "LWPOLYLINE") (setq q 1))   (setq k (1+ k))  );repeat  (if q (command "pedit" "m" ss "" "y" "j" "" "")   (command "pedit" "m" ss "" "j" "" "")) (princ) );defun