;; | ----------------------------------------------------------------------------
;; | PL_Arced?
;; | ----------------------------------------------------------------------------
;; | Function : Checks if a polyline has atleast one ARC segment
;; | Argument : 'ename' - Polyline object name
;; | Returns  : T if the polyline is arc'ed, else nil
;; | Updated  : August 12, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun PL_Arced?( ename / flag en entl VxEntl BlgLst )


(setq BlgLst (LI_MakeUnique (PL_GetBulgeLst ename)))
(if (and (= (length BlgLst) 1) (zerop (nth 0 BlgLst))) nil T)
)