;; | ----------------------------------------------------------------------------
;; | LA_SetLType
;; | ----------------------------------------------------------------------------
;; | Function : Sets the LineType of the specified layer
;; | Argument :
;; |       'la'    - LayerName
;; |       'LType' - LineType to set
;; | Returns  : Sets the specified linetype to the layer
;; | Updated  : January 14, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun LA_SetLType( la Ltype  / tbl )

(setq tbl (tblsearch "LTYPE" LType))
(if (not tbl)
	(command "._LineType" "_Load" LType "" "")
)

(setq tbl (tblsearch "LTYPE" LType))

(if tbl
	(command "._Layer" "_LType" LType la "")
)
)