;; | ---------------------------------------------------------------------------
;; | PL_Open?
;; | ---------------------------------------------------------------------------
;; | Function : Checks if a polyline is Open or not
;; | Argument : 'ename' - Polyline or Line entity name
;; | Returns  : T if the polyline is open, else nil
;; | Updated  : February 9, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun PL_Open?( ename / en entl _Open flag )


(setq
	entl  (entget ename)
	en    (LI_item 0 entl)
	_Open nil
)
(cond
	((member en (list "POLYLINE" "LWPOLYLINE" "SPLINE"))
		(setq flag (LI_item 70 entl))
		(if (zerop (logand flag 1))
			(setq _Open T)
			(setq _Open nil)
		)
	)
	((member en (list "LINE" "ARC"))
		(setq _Open T)
	)
	((= en "CIRCLE")
		(setq _Open nil)
	)
	(T
		(alert (strcat "Error : " en " ,Entity passed to PL_Open? is not a Polyline, Line or valid curve."))
		(exit)
	)
)
_Open
)