;; | -----------------------------------------------------------------------------
;; | SS_DeleteNamed
;; | -----------------------------------------------------------------------------
;; | Function : Deletes a named selection set from the selection set collection
;; | Arguments:
;; |            'Name' - Name of selection set to delete
;; |            'cSS'  - SelectionSets collection
;; | Returns  : T or nil
;; | Updated  : January 25, 2004
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------


(defun SS_DeleteNamed ( 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)
		(progn
			(vlax-invoke-method ss "Delete")
			(setq
				Found T
				More  nil
			)
		))

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