;;ごめんなさい未完成です(;_;)ウルウル
;;私の頭ではこれが限界です。

(defun C:noriko(/ p pp n et gleng leng p1 p2)

 (setq p (ssget "x"))
 (setq l 0)
 (setq n (sslength p))
 (setq gleng 0)

 (while (< l n)
   (setq pp (ssname p l))
   (setq et (entget pp))
   (if (= "LINE" (cdr (assoc 0 et)))
     (progn
       (setq p1 (cdr (assoc 10 et)))
       (setq p2 (cdr (assoc 11 et)))
       (setq leng (distance p1 p2))
       (print "\n"(+ l 1)"本目の線分の長さは"leng"ですよ")
       (setq gleng (+ leng gleng))       
     );progn end
    );if end
   (setq l(+ l 1)) 
 );while end
(princ "\nLINEの合計の長さは"gleng"ですよ")
);defun end