(DEFUN C:SUMLINES ( / LEN CNT SS)
  (SETQ SS (SSGET '((0 . "line"))))
  (SETQ CNT (1- (SSLENGTH SS)))
  (WHILE (> CNT -1)
    (IF LEN
      (SETQ LEN (+ LEN
                   (DISTANCE (CDR (ASSOC 10 (ENTGET (SSNAME SS CNT)))) (CDR (ASSOC 11 (ENTGET (SSNAME SS CNT)))))
                ) ;_ end of +
      ) ;_ end of SETQ
      (SETQ LEN (DISTANCE (CDR (ASSOC 10 (ENTGET (SSNAME SS CNT)))) (CDR (ASSOC 11 (ENTGET (SSNAME SS CNT))))))
    ) ;_ end of IF
    (SETQ CNT (1- CNT))
  ) ;_ end of WHILE
  (IF (AND LEN (EQ (TYPE LEN) 'REAL))
    (PROGN
      (PRINC "\nTotal length of selected lines: ")
      (PRINC LEN)
      (PRINC)
    )
  )
) ;_ end of DEFUN
;|«Visual LISP© Format Options»
(120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T)
;*** DO NOT add text below the comment! ***|;