;; ! ****************************************************************************
;; ! GE_PlLen
;; ! ****************************************************************************
;; ! Find the length of all segements in Ptlist
;; ! (C) 1999-2004, Four Dimension Technologies, Bangalore
;; ! e-mail   : rakesh.rao@4d-technologies.com
;; ! Web      : www.4d-technologies.com
;; ! ****************************************************************************

(defun GE_PlLen(vlist Closed 2d / SegLenLst len )

(setq
	SegLenLst (GE_GetSegmentLengths vlist Closed 2d)
	len (apply '+ SegLenLst)
)
len
)