downloading existing linetypes to a file

[marize]

Hello.
I am working AutoCAD 2000i.
I would like to download existing linetypes in a particular drawing to a "lin" file.
How is this accomplished?
Thank you for your time.
Marize

 

[Striker]

There is a program at

http://www.caddepot.com

which extracts linetypes and hatches, but I am unfamiliar with its name.

 

[tigrek]

(defun C:ltypes()
;OPEN A TEXT FILE
(setq FileName (strcat (getvar "DWGNAME&quot ".lin&quot)
(print Filename)
(setq myFile (open FileName "w&quot)
(setq myltype (tblnext "LTYPE" T))
(print (cdr (assoc 2 myltype)) myFile)
(while (setq myltype (tblnext "LTYPE&quot)
(print (cdr (assoc 2 myltype)) myFile)
)
(close myFile)
(print "This function exports only the names of linetypes used in a drawing, into file: &quot
(print (findfile FileName))
(print " the descriptions for line types of these names are in the Ascii files Acad.lin, Acadiso.lin etc.&quot
(princ)
)