;; | ----------------------------------------------------------------------------
;; | GE_WeedZ
;; | ----------------------------------------------------------------------------
;; | Function : Weed a list of points purely based on the Z elevations
;; | Arguments:
;; |            'vlist'  - List to be weeded
;; |            'LowZ'   - Lower Range of Z value
;; |            'UpperZ' - Upper Range of Z value
;; | Return   : Returns the list, devoid of the points which fall in between the
;; |            range of two lower and upper Z values
;; | Updated  : January 19, 2006
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_WeedZ ( vlist LowerZ UpperZ / nlist pt Z )

(setq nlist '())
(foreach pt vlist
	(setq Z (caddr pt))
	(if (not (MI_InBetween Z LowerZ UpperZ))
		(setq nlist (cons pt nlist))
	)
)
(setq nlist (reverse nlist))
)