;; ! ****************************************************************************
;; ! C:Ocs2Wcs
;; ! ****************************************************************************
;; ! Function : Convert a point from Object Coordinate Sytem to World Coordinate
;; !            System
;; ! Author   : Rakesh Rao, (C) 1999 Four Dimension Technologies, Bangalore, India
;; ! Email    : rakesh.rao@4d-technologies.com
;; ! Web        www.4d-technologies.com
;; ! Updated  : January 2, 2000
;; ! ****************************************************************************

(defun c:OCS2WCS( / ent ename pt10_ocs pt10_wcs )
(setq ent (entsel "\nSelect an object:"))
(if ent
(progn
	(setq
		ename (car ent)
		pt10_ocs (cdr (assoc 10 entl))
		pt10_wcs (trans pt10_ocs ename 0)
	)
	(princ "\nThe OCS point is : ")(princ pt10_ocs)
	(princ "\nThe WCS point is : ")(princ pt10_wcs)
))
(prin1)
)