如何判断shx文件是形文件还是常规字体文件还是大字体文件

oyxx1023

如何判断shx文件是形文件还是常规字体文件还是大字体文件。？
我想把shx文件分类

Gu_xl

试试这个！

1. (defun shxIsBigFontP (filename / fh dv cnt inp)
   
2.   (setq cnt 22 dv "")
   
3.   (if (setq fh (open filename "r"))
   
4.     (progn
   
5.       (while
   
6.                (and
   
7.                  (> (setq cnt (1- cnt)) 0)
   
8.                  (setq inp (read-char fh))
   
9.                  (> inp 0)
   
10.                  )
    
11.                 (setq dv (strcat dv (chr inp)))
    
12.                 )
    
13.       (close fh)
    
14.       ;;(princ dv)
    
15.       (WCMATCH (strcase dv t) "*bigfont*")
    
16.           
    
17.       )
    
18.     )
    
19.   )

(defun shxIsBigFontP (filename / fh dv cnt inp)<br />   (setq cnt 22 dv "")<br />   (if (setq fh (open filename "r"))<br />     (progn<br />       (while<br />                (and<br />                  (> (setq cnt (1- cnt)) 0)<br />                  (setq inp (read-char fh))<br />                  (> inp 0)<br />                  )<br />                 (setq dv (strcat dv (chr inp)))<br />                 )<br />       (close fh)<br />       ;;(princ dv)<br />       (WCMATCH (strcase dv t) "*bigfont*")<br />           <br />       )<br />     )<br />   )

oyxx1023

版主这个可以判断是不是大字体文件。但常规字体和形文件如何区分