;; ! ****************************************************************************
;; ! SP_Open?
;; ! ****************************************************************************
;; ! Function : Check if a given Spline Object is Open or Closed
;; ! Arguments:
;; !            'ename'  - The name of the SPLINE object
;; ! Action   : Checks if the SPLINE is open or closed and returns
;; !            T or nil
;; ! Updated  : July 18, 1999
;; ! e-mail   : rakesh.rao@4d-technologies.com 
;; ! Web      : www.4d-technologies.com
;; ! **************************************************************************** 



(defun SP_Open?( ename / entl flag70 _Open )

(setq
	entl (entget ename)
	flag70 (LI_item 70 entl)
)
(if (zerop (logand flag70 1))
	(setq _Open T)
	(setq _Open nil)
)
_Open
)