LINYTYPE load with lsp

i was wondering is i can modify part of this lisp to
load all linetypes, instead the specified linetypes.

thanks in advance.

connie
;;;;;;;;;;;;;;;;;;;

(defun c:ceg109()
(setvar "cmdecho" 0)

(setq sc (getvar "useri1"))

;load linetypes
(command "-linetype" "load" "center" "acad.lin" "" "")
(command "-linetype" "load" "center2" "acad.lin" "" "")
(command "-linetype" "load" "divide2" "acad.lin" "" "")
(command "-linetype" "load" "dot" "acad.lin" "" "")
(command "-linetype" "load" "dot2" "acad.lin" "" "")
(command "-linetype" "load" "dashdot" "acad.lin" "" "")
(command "-linetype" "load" "center2" "acad.lin" "" "")
(command "-linetype" "load" "dashed" "acad.lin" "" "")
(command "-linetype" "load" "dashed2" "acad.lin" "" "")
(command "-linetype" "load" "hidden" "acad.lin" "" "")
(command "-linetype" "load" "hidden2" "acad.lin" "" "")
(command "-linetype" "load" "phantom" "acad.lin" "" "")
(command "-linetype" "load" "sandbag40" "acad.lin" "" "")
(command "-linetype" "load" "FENCEBOX20" "acad.lin" "" "")

(if (= sc 0) (command "script" "ceg109"))



(princ)
)

 

(command "_.-linetype" "_load" "*" "acad.lin" "")
___

 

(setvar "expert" 3)
(command "-linetype" "load" "*" "acad.lin" "" "")

 

thanks so much paul & dean!!

u guy's saved me a great deal of time.
my Hereos!!

thanks again!!
connie