;; | ----------------------------------------------------------------------------
;; | GE_GetNonZeroZ
;; | ----------------------------------------------------------------------------
;; | Function : Seeks the first non-zero value of an elevation from a list of
;; |            points
;; | Author   : Rakesh Rao, Bangalore - India
;; | Arguments: 'vlist' - List of points
;; | Updated  : 9 December, 2002
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_GetNonZeroZ( vlist / More cnt len NonZeroZ Z )
(setq
	More     T
	cnt      0
	len      (length vlist)
	NonZeroZ nil
)
(while More
	(setq
		Z   (caddr (nth cnt vlist))
		cnt (1+ cnt)
	)
	(if (not (zerop Z))
	(setq
		NonZeroZ Z
		More     nil
	)
	(progn
		(if (= cnt len)
			(setq More nil)
		)
	))
)
NonZeroZ
)