（xd::shx:isshape）判断形文件是否是形定义而非字体文件

marting

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

(defun xd::shx:isshape (fn / str ishead isshx)<br />   (if (setq fn (findfile fn))<br />     (progn<br /> <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 />         isshx<br />          (= "shapes"<br />             (apply 'strcat (mapcar 'chr (xd::list:nth++ str 11 6)))<br />          )<br />       )<br />       (and ishead isshx)<br />     )<br />   )<br /> )<br />

命令: (xd::shx:isfont (findfile "txt.shx"))
T
命令: (xd::shx:isfont (findfile "ltypeshp.shx"))
nil
命令: (xd::shx:isshape (findfile "ltypeshp.shx"))
T


形文件头格式：




英文字体头文件格式：



汉字SHX头文件格式：