각 라인별 길이를 추가 하고 싶은데요 도와주세요

좀도와주세요!!!!!!   밑에 있는  참고 자료에 개별 라인 길이를 추가하고 샆어요  하는방법좀 가르쳐 주세요?????????



(terpri) (prompt “총”)(prin1 n1)(prompt “개의 라인…”) (prompt “전체길이 : “)(prin1 tot)(prompt ” m”) (prin1) (setq text_out “Total Length: “) (setq t1 (rtos tot 2 4)) ; 끝의숫자가 소숫점 자리수임 ( 0 ~ 4 가능 ) (setq text_out (strcat text_out t1)) (setq text_out (strcat text_out text_all)) ; Text Screen (setq x1 (car bas) y1 (cadr bas)) (setq y1 (- y1 (* siz (* 2 (+ 1 k))))) (setq bas2 (list x1 y1)) (command “text” “s” “standard” bas2 siz 0 text_out) (setvar “osmode” os) (princ) prompt “개의 라인…” 개의 라인만 추가하고 싶어요 도와주세요 아참 밑에 있는것도 개의 라인별 넘버링 하고 싶어요 (defun C:TEST () (setq n 0 ss (ssget ‘((-4 . “