Load Linetypes w/ Vlisp

[Jonathan]

To the Experts:

How does one load linetypes from a *.lin file, with visual lisp?

Thanks.

[Adesu]

To the Experts:

How does one load linetypes from a *.lin file, with visual lisp?

Thanks.

Hi Jonathan,are you want load linetype,here my code to load alls load

; ltl is stand for line type load
;        Design by ade suharna <mteybid@yuasabattery.co.id>
;        14 April 2005
;        Program no.227/04/2005
;        Edit by Adesu  30/09/2005      1).
;                       17/10/2005      2).
(defun c:ltl (/ lin)
  (setq lin "C:/Program Files/AutoCAD 2004/Support/acad.lin")  ; for acad 2004
  ;(setq lin "c:/Auto Cad 2000/support/acad.lin")              ; for acad 2000
  (setq ltyp "dashed")                                         ; 2).
  (if                                                          ; 1).
    (not (tblsearch "ltype" ltyp))                             ; 1).
    (command "_linetype" "l" "*" lin "")
    (alert (strcat "\nStyle name of " ltyp " still exist"))    ; 1).
    )
  (princ)
  )