;; | ----------------------------------------------------------------------------
;; | GE_GetNormal
;; | ----------------------------------------------------------------------------
;; | Function : Compute the normal of an object and return as a list of 3d points
;; | Author   : Rakesh Rao, Bangalore - India
;; | Arguments: 'ename' - Entity name should be a polyline, region or 3dsolid
;; | Updated  : 27 August, 2002
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_GetNormal( ename / oname Nor )

;; Load the ActiveX stuff for Visual LISP
(vl-load-com)

(setq
	oname (vlax-ename->vla-object ename)
	Nor   (vlax-get-property oname "Normal")
	Nor   (vlax-variant-value Nor)
	Nor   (vlax-safearray->list Nor)
)
(vlax-release-object oname)
(setq oname nil)
Nor
)