리습 독학중에 여쭤봅니다…라인을 P라인으로 바꿔주는 리습인데요,

(defun c:l2p (/ ss k ed en q) 
 (prompt “n선택한 객체를 pline로 만들기.”)
 (prompt “n-> pline로 만들 객체를 선택 하세요..”)
 (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

(princ “nt 선택된 line를 pline로 만들기… 명령어: l2p”)
(princ)


붉은색으로 표시해둔 부분이 이해가 잘 되지 않는데 혹시 어떤 내용인지 알려주실 수 있으신가요.
부탁드립니다.