;; | ----------------------------------------------------------------------------
;; | LA_RestoreLayerState
;; | ----------------------------------------------------------------------------
;; | Function : Restores the settings in the specified named layer state
;; | Arguments:
;; |            'Name' - Name of the layer state to restore
;; |                     If the name exists and the setting could be restored
;; |                     successfully, it returns T else nil
;; | Action   :  (as explained above)
;; | Updated  : September 7, 2004
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun LA_RestoreLayerState ( Name / State Restored )


(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
	(vla-restore State Name)
	(vlax-release-object State)
	(setq
		State   nil
		Restored T
	)
)
(setq Restored nil)
)
Restored
)