;; | ----------------------------------------------------------------------------
;; | MI_LineTypeLoad
;; | ----------------------------------------------------------------------------
;; | Function : Loads a specfied linetype from specifeid linetype file
;; | Arguments: 'LType' - LineType to load
;; |            'File'  - LineType file to load from
;; | Returns  : Loads the specified linetype in the current drawing
;; | Updated  : April 22, 2005
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_LineTypeLoad ( LTyp LTypFile / Loaded )

(setq Loaded nil)
(if (not (tblsearch "LTYPE" LTyp))
(progn
	(setvar "EXPERT" 4)
	(command "._LineType" "_Load" LTyp LTypFile "")
	(setvar "EXPERT" 0)
	(if (tblsearch "LTYPE" LTyp)
		(setq Loaded T)
	)
))
Loaded
)