;; | ----------------------------------------------------------------------------
;; | LA_DeleteLayerState
;; | ----------------------------------------------------------------------------
;; | Function : Deletes the specifed layer state from the current drawing document
;; | Arguments:
;; |            'Name'  - Name of the saved layer state
;; | Action   :  Deletes the specified named layer state from current drawing
;; |             if it does not exist, the function does nothing
;; | Updated  : September 7, 2004
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun LA_DeleteLayerState ( Name / State )


(cond
	((= #AcadVer 2002)
		(setq State (vla-getinterfaceobject (AX_GetAcadAppObject) "AutoCAD.AcadLayerStateManager.15"))
	)
	((member #AcadVer (list 2004 2005 2006))
		(setq State (vla-getinterfaceobject (AX_GetAcadAppObject) "AutoCAD.AcadLayerStateManager.16"))
	)
	((member #AcadVer (list 2007 2008))
		(setq State (vla-getinterfaceobject (AX_GetAcadAppObject) "AutoCAD.AcadLayerStateManager.17"))
	)
)
(vla-setdatabase State (vla-get-database (AX_GetActiveDocument)))
(if (and State (member (strcase Name) (LA_GetAllLayerStateNames)))
(progn
	(if (vl-catch-all-error-p
			(vl-catch-all-apply
				'vla-delete
				(list State Name)
			)
		)
		nil
    	T
	)
))
)