;; | -----------------------------------------------------------------------------
;; | SS_IsDefined?
;; | -----------------------------------------------------------------------------
;; | Function : Checks whether a named selection set exists in the given
;; |            collection of selection sets
;; | Arguments:
;; |            'Name' - Name of selection set to check for
;; |            'cSS'  - Collection of selection sets
;; | Returns  : T or nil
;; | Updated  : January 24, 2004
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------


(defun SS_IsDefined? ( Name cSS / ss cSSnum More Found cnt _Name)

(setq
	cSSnum (vla-get-count cSS)
	More   T
	Found  nil
	Name   (strcase Name)
	cnt    0
)
(if (> cSSnum 0)
(progn
	(while More
		(setq
			ss    (vla-item cSS cnt)
			_Name (strcase (vlax-get-property ss "Name"))
			cnt (1+ cnt)
		)

		(if (= Name _Name)
			(setq
				Found T
				More  nil
			)
		)

		(if (= cnt cSSnum)
			(setq More nil)
		)
	 )
))
Found
)