Hi Manuel, I do not use .ttf my self but maybe You can find help with this code
Code:
(defun c:ChkFontStyles ( / FontList )
(setq FontList (list (cdr (assoc 2 (tblnext "STYLE" T )))) )
(while (car (reverse FontList ))
(setq FontList (append FontList (list (cdr (assoc 2 (tblnext "STYLE" nil ))))) )
)
(setq FontList (vl-remove nil FontList ) )
(foreach FontStyle FontList
(princ
(strcat
"\n\nStyle " FontStyle " belong to fontfile " (cdr (assoc 3 (tblsearch "STYLE" FontStyle )))
"\nin Fontfile "
(if (findfile (cdr (assoc 3 (tblsearch "STYLE" FontStyle ))))
(findfile (cdr (assoc 3 (tblsearch "STYLE" FontStyle ))))
"that is not in the searchpath, or missing the file extension."
)
)
)
)
(textscr)
(princ "\n\nHappy Computing !\n\nkennet" )
(princ)
)
: ) Happy Computing !
kennet