;; | ----------------------------------------------------------------------------
;; | MI_3dface_Ucs
;; | ----------------------------------------------------------------------------
;; | Function : Create a new User coordinate system in the plane of the 3dface
;; |            object with the point 10 as the origin and the point 11 as the
;; |            positive portion of x-axis and point 12 as the positive portion
;; |            of the y-axis
;; | Arguments: 'ename' - 3dface object
;; | Action   : Create a new 3 Point UCS if the distance between the points
;; |            are non-zero
;; | Updated  : July 19, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_3dface_Ucs( ename / Done p10 p11 p12 p13 entl )

(setq
	Done nil
	entl (entget ename)
	p10 (LI_item 10 entl)
	p11 (LI_item 11 entl)
	p12 (LI_item 12 entl)
	p13 (LI_item 13 entl)
)
(setq Done (MI_3pUcs p10 p11 p13))
(if (not Done)
	(setq Done (MI_3pUcs p10 p11 p12))
)
(if (not Done)
	(setq Done (MI_3pUcs p10 p13 p12))
)
Done
)