;; | ----------------------------------------------------------------------------
;; | PL_PolyFace?
;; | ----------------------------------------------------------------------------
;; | Function : Checks if a polyline object is a polyface mesh or not
;; | Argument : 'ename' - Polyline entity name
;; | Returns  : T if the polyline is a polyface mesh, else nil
;; | Updated  : July 16, 2000
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun PL_PolyFace?( ename / en entl PolyFace flag )

(setq
	entl (entget ename)
	en (LI_item 0 entl)
	PolyFace nil
)
(if (= en "POLYLINE")
(progn
	(setq flag (LI_item 70 entl))
	(if (not (zerop (logand flag 64)))
		(setq PolyFace T)
		(setq PolyFace nil)
	)
)
(progn
	(alert "Error : Entity passed to PL_PolyFace? is not a Polyline.")
	(exit)
))
PolyFace
)