;; | ----------------------------------------------------------------------------
;; | LA_DelLayer
;; | ----------------------------------------------------------------------------
;; | Function : Delete the contents of a layer
;; | Argument : 'la' - Layer name - can be wildcards
;; | Returns  : nil
;; | Updated  : March 31, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun LA_DelLayer( la / ss )

(setq ss (ssget "_X" (list (cons 8 la))))
(if ss (command "._Erase" ss ""))
)