;; | ----------------------------------------------------------------------------
;; | GE_SetPrecision
;; | ----------------------------------------------------------------------------
;; | Function : Changes the precision of all x, y and z values in a points list
;; |            to the specified value.
;; | Author   : Rakesh Rao, Bangalore - India
;; | Arguments: 'vlist' - List of points to set precision
;; |            'prec'  - Precision to set
;; | Updated  : September 8, 2004
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_SetPrecision ( vlist prec / _pt _vlist )

(setq _vlist '())
(foreach pt vlist
	(setq
		pt		(list
					(atof (rtos (car   pt) 2 prec))
					(atof (rtos (cadr  pt) 2 prec))
					(atof (rtos (caddr pt) 2 prec))
				)
		_vlist	(cons pt _vlist)
	)
)
(setq vlist (reverse _vlist))
)