Tim,
Assuming the linetype in question came from some available .lin file and you
know what .lin files are available, something like this might work. Use the
following function to make a list of the linetypes in each .lin file. Then
search each list for the linetype name.
Uncomment the next to last line. If the linetype name is found in some list,
return (car lst).
If you don't know what .lin files are available, I suppose you could search the
support paths (getenv "ACAD") for .lin files.
Of course there's probably a number of which could go wrong. Such as duplicate
linetype names in various .lin files.
;; Based on code by Jason Piercey.
;; Argument: filename of linetype file such as "acad.lin"
;; which resides in a search path.
;; Returns: list of linetype names.
(defun GetLinetypes (filename / file line str lst)
(setq file (open (findfile filename) "r"))
(setq line (read-line File))
(while line
(if (wcmatch line "`**")
(progn
(setq str (substr (substr line 1 (vl-string-search "," line)) 2))
(setq lst (cons str lst))
)
)
(setq line (read-line file))
)
(close file)
;add filename
;(cons filename (reverse lst))
) ;end