[求助]：怎样知道一个shx文件是否真的是字体文件?

urljit

经常有这样的文件:扩展名为shx,头信息也说是字体文件,可是就是不能定义为字体,谁知道如何彻底识别"庐山"真面目?

zxq0220

在ACAD中用LOAD命令加载一下就知道了。
如果是就不能加载。

ouyangsong

有这回事,,我还不知道...下次看看..

00520

这样太麻烦了
有没有简单的方法

zxq0220

最初由 00520 发布
[B]这样太麻烦了
有没有简单的方法 [/B]

这就够简单的了。又不用编程。

urljit

最初由 zxq0220 发布
[B]
这就够简单的了。又不用编程。 [/B]

要的就是编程的方法，否则就不在这个栏目发帖子了

aeo

2. 
   
3. 命令: (setq f (findfile "ltypeshp.shx"))
   
4. "C:\\AutoCAD 2002\\Support\\ltypeshp.shx"
   
5. 
   
6. 命令: (setq h(open f "r"))
   
7. #〈file "C:\\AutoCAD 2002\\Support\\ltypeshp.shx"〉
   
8. 
   
9. 命令: (setq a(read-line h))
   
10. "AutoCAD-86 shapes 1.1"
    
11. 
    
12. 命令: (close h)
    
13. nil
    
14. 
    
15. 命令: (setq f (findfile "simplex.shx"))
    
16. "C:\\AutoCAD 2002\\Support\\simplex.shx"
    
17. 
    
18. 命令: (setq h(open f "r"))
    
19. #〈file "C:\\AutoCAD 2002\\Support\\simplex.shx"〉
    
20. 
    
21. 命令: (setq a(read-line h))
    
22. "AutoCAD-86 unifont 1.0"
    
23. 
    
24. 命令: (close h)
    
25. nil
    

<br /> 命令: (setq f (findfile "ltypeshp.shx"))<br /> "C:\\AutoCAD 2002\\Support\\ltypeshp.shx"<br /> <br /> 命令: (setq h(open f "r"))<br /> #〈file "C:\\AutoCAD 2002\\Support\\ltypeshp.shx"〉<br /> <br /> 命令: (setq a(read-line h))<br /> "AutoCAD-86 shapes 1.1"<br /> <br /> 命令: (close h)<br /> nil<br /> <br /> 命令: (setq f (findfile "simplex.shx"))<br /> "C:\\AutoCAD 2002\\Support\\simplex.shx"<br /> <br /> 命令: (setq h(open f "r"))<br /> #〈file "C:\\AutoCAD 2002\\Support\\simplex.shx"〉<br /> <br /> 命令: (setq a(read-line h))<br /> "AutoCAD-86 unifont 1.0"<br /> <br /> 命令: (close h)<br /> nil<br />

看出什么明堂没有?

狂刀

头信息也说是字体文件
楼主是怎么判断的？

zxq0220

[php];读出SHX文件第一行就可以判断了。
;AutoCAD-86 shapes 1.0    形文件
;AutoCAD-86 unifont 1.0   字体文件
;AutoCAD-86 bigfont 1.0   大字体文件(不能单独使用)
(DEFUN C:SHXTYPE ()
(SETQ SHXNM (IF SHXNM SHXNM ""))
(IF (SETQ SHXNM (GETFILED "形文件名" SHXNM "shx" 2)) (PROGN
  (SETQ F (OPEN SHXNM "r")
        STYPE (SUBSTR (READ-LINE F) 12 7))
  (CLOSE F)
))
STYPE
)
[/php]

eachy

还有  AutoCAD-86 bigfont 1.0

urljit

看看这个，能做为字体，头信息：“AutoCAD-86 shapes 1.0”

我又把这个文件打开了,图片放在一楼,大家一起看看里面的规律?

eachy

找  SHX viewer 软件备用，查看预览就知道是 Font 定义还是 Shape 定义了

urljit

最初由 eachy 发布
[B]找  SHX viewer 软件备用，查看预览就知道是 Font 定义还是 Shape 定义了 [/B]

竹呀!我是要在程序里面用呀!

eachy

_$ (vl-catch-all-apply 'vla-loadshapefile (list (vla-get-activedocument (vlax-get-acad-object)) (findfile "txt.shx")))
#<%catch-all-apply-error%>
_$ (vl-catch-all-apply 'vla-loadshapefile (list (vla-get-activedocument (vlax-get-acad-object)) (findfile "txt11.shx")))
#<%catch-all-apply-error%>
_$ (vl-catch-all-apply 'vla-loadshapefile (list (vla-get-activedocument (vlax-get-acad-object)) (findfile "aaa.shx")))
nil
_$

zxq0220

[php]
(DEFUN C:SHXTYPE ()
(SETVAR "CMDECHO" 0)
(SETQ SHXNM (IF SHXNM SHXNM ""))
(IF (SETQ SHXNM (GETFILED "Shape file name 形文件名" SHXNM "shx" 2)) (PROGN
  (COMMAND "LOAD" SHXNM)
  (IF (NOT (ZEROP (GETVAR "CMDACTIVE"))) (PROGN
   (COMMAND ^C ^C)
   (PRINC (STRCAT "\n字体文件。"))
  )
   (PRINC "\n形文件。")
  )
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]