;; | ----------------------------------------------------------------------------
;; | GE_Get_SS_SegmentLengths
;; | ----------------------------------------------------------------------------
;; | Function : Returns a list of all segment lengths from a selection set of
;; |            linear elements
;; | Arguments:
;; |           'ss'  - Selection Set
;; | Action   : Returns a list of segment lengths
;; | Updated  : February 8, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_Get_SS_SegmentLengths ( ss / LenLst ssl ename en cnt )

(setq
	ssl (sslength ss)
	cnt 0
	LenLst '()
)

(repeat ssl
	(setq
		ename (ssname ss cnt)
		entl  (entget ename)
		en    (LI_item 0 entl)
		cnt   (1+ cnt)
	)

	(if (member en (list "LINE" "POLYLINE" "LWPOLYLINE" "ARC" "SPLINE"))
		(setq LenLst (cons (MI_CurveLength ename) LenLst))
	)
)
(setq LenLst (reverse LenLst))
)