;; ! ****************************************************************************
;; ! GE_SeekNonZero
;; ! ****************************************************************************
;; ! 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
;; ! (C) 1999-2004, Four Dimension Technologies, Bangalore
;; ! e-mail   : rakesh.rao@4d-technologies.com
;; ! Web      : www.4d-technologies.com
;; ! ****************************************************************************

(defun GE_SeekNonZero ( 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
		)
	)
)
NonZeroZ
)