（xd::shx:isfont）判断形文件是否是字体文件

marting

1. (defun xd::shx:isfont (fn / ishead isfont)
   
2.   (if (setq fn (findfile fn))
   
3.     (progn
   
4.       (setq str (XD::FILE:ReadBinary fn 0 32))
   
5.       (setq
   
6.         ishead
   
7.          (= "AutoCAD-86"
   
8.             (apply 'strcat (mapcar 'chr (xd::list:nth++ str 0 10)))
   
9.          )
   
10.       )
    
11.       (setq
    
12.         isfont
    
13.          (= "font"
    
14.             (apply 'strcat (mapcar 'chr (xd::list:nth++ str 14 4)))
    
15.          )
    
16.       )
    
17.       (setq
    
18.         isshx
    
19.          (= "shapes"
    
20.             (apply 'strcat (mapcar 'chr (xd::list:nth++ str 11 6)))
    
21.          )
    
22.       )
    
23.       (and ishead isfont)
    
24.     )
    
25.   )
    
26. )
    

(defun xd::shx:isfont (fn / ishead isfont)<br />   (if (setq fn (findfile fn))<br />     (progn<br />       (setq str (XD::FILE:ReadBinary fn 0 32))<br />       (setq<br />         ishead<br />          (= "AutoCAD-86"<br />             (apply 'strcat (mapcar 'chr (xd::list:nth++ str 0 10)))<br />          )<br />       )<br />       (setq<br />         isfont<br />          (= "font"<br />             (apply 'strcat (mapcar 'chr (xd::list:nth++ str 14 4)))<br />          )<br />       )<br />       (setq<br />         isshx<br />          (= "shapes"<br />             (apply 'strcat (mapcar 'chr (xd::list:nth++ str 11 6)))<br />          )<br />       )<br />       (and ishead isfont)<br />     )<br />   )<br /> )<br />

形文件头格式：




英文字体头文件格式：



汉字SHX头文件格式：