downloading existing linetypes to a file
downloading existing linetypes to a file
(OP)
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
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





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