[求助] 如何用lisp获得一个DWG文件的版本号

jxphklibin

请问如何用lisp来获得一个DWG文件的版本号？
谢谢！！！
多谢Andyhon、luowy，同事也感谢phoenixdjq的回复！
下面是我写的代码：

3. ;;; By 小李子 2009.3.14
4. (defun Get-Dwg-Ver (filename / filehand filever)
5.   (if (setq filehand (open filename "r"))
6.     (progn
7.       (setq filever "")
8.       (repeat 6
9. (setq filever (strcat filever (chr (read-char filehand))))
10.       )
11.       (close filehand)
12.       (cond
13. ((= filever "AC1024")
14. (princ "\nDrawing File Version: R2010")
15. )
16. ((= filever "AC1021")
17. (princ "\nDrawing File Version: R2007/2008/2009")
18. ) ((= filever "AC1018")
19.   (princ "\nDrawing File Version: R2004/2005/2006")
20. )
21. ((= filever "AC1015")
22.   (princ "\nDrawing File Version: R2000/2000i/2002")
23. )
24. ((= filever "AC1014") (princ "\nDrawing File Version: R14"))
25. ((= filever "AC1013")
26.   (princ "\nDrawing Template File Version: R14")
27. )
28. ((= filever "AC1012") (princ "\nDrawing File Version: R13"))
29. ((= filever "AC1009")
30.   (princ "\nDrawing File Version: R12/R11")
31. )
32. ((= filever "AC1006") (princ "\nDrawing File Version: R10"))
33. ((= filever "AC1004") (princ "\nDrawing File Version: R9"))
34. (T
35.   (princ (strcat "\nDrawing File Version Unknown: " filever))
36. )
37.       )
38.     )
39.   )
40.   (princ)
41. )
42. (princ
43.   "\nGet-Dwg-Ver loaded, type (Get-Dwg-Ver) to run."
44. )
45. (princ)

;;; By 小李子 2009.3.14 (defun Get-Dwg-Ver (filename / filehand filever)   (if (setq filehand (open filename "r"))     (progn       (setq filever "")       (repeat 6 (setq filever (strcat filever (chr (read-char filehand))))       )       (close filehand)       (cond ((= filever "AC1024") (princ "\nDrawing File Version: R2010") ) ((= filever "AC1021") (princ "\nDrawing File Version: R2007/2008/2009") ) ((= filever "AC1018")   (princ "\nDrawing File Version: R2004/2005/2006") ) ((= filever "AC1015")   (princ "\nDrawing File Version: R2000/2000i/2002") ) ((= filever "AC1014") (princ "\nDrawing File Version: R14")) ((= filever "AC1013")   (princ "\nDrawing Template File Version: R14") ) ((= filever "AC1012") (princ "\nDrawing File Version: R13")) ((= filever "AC1009")   (princ "\nDrawing File Version: R12/R11") ) ((= filever "AC1006") (princ "\nDrawing File Version: R10")) ((= filever "AC1004") (princ "\nDrawing File Version: R9")) (T   (princ (strcat "\nDrawing File Version Unknown: " filever)) )       )     )   )   (princ) ) (princ   "\nGet-Dwg-Ver loaded, type (Get-Dwg-Ver) to run." ) (princ)

luowy

提示，dwg文件里面有，就只有几个字符表示版本

phoenixdjq

command ver)

command :  acadver

Andyhon

2.   
3. ;;; By Vladimir Nesterovsky
4. (defun dwg-ver (fn)
5.   (if (setq f (open fn "r"))
6.     (car
7.       (list
8.         (apply
9.           'strcat
10.           (mapcar
11.             'chr
12.             (mapcar
13.               'read-char
14.               (list f f f f f f)
15.             )
16.           )
17.         )
18.         (setq f (close f))
19.       )
20.     )
21.   )
22. )
23.   

   ;;; By Vladimir Nesterovsky (defun dwg-ver (fn)   (if (setq f (open fn "r"))     (car       (list         (apply           'strcat           (mapcar             'chr             (mapcar               'read-char               (list f f f f f f)             )           )         )         (setq f (close f))       )     )   ) )   

jxphklibin

多谢Andyhon、luowy，同事也感谢phoenixdjq的回复！
下面是我写的代码：

3. ;;; By 小李子 2009.3.14
4. (defun Get-Dwg-Ver (filename / filehand filever)
5.   (if (setq filehand (open filename "r"))
6.     (progn
7.       (setq filever "")
8.       (repeat 6
9. (setq filever (strcat filever (chr (read-char filehand))))
10.       )
11.       (close filehand)
12.       (cond
13. ((= filever "AC1024")
14. (princ "\nDrawing File Version: R2010")
15. )
16. ((= filever "AC1021")
17. (princ "\nDrawing File Version: R2007/2008/2009")
18. )
19. ((= filever "AC1018")
20.   (princ "\nDrawing File Version: R2004/2005/2006")
21. )
22. ((= filever "AC1015")
23.   (princ "\nDrawing File Version: R2000/2000i/2002")
24. )
25. ((= filever "AC1014") (princ "\nDrawing File Version: R14"))
26. ((= filever "AC1013")
27.   (princ "\nDrawing Template File Version: R14")
28. )
29. ((= filever "AC1012") (princ "\nDrawing File Version: R13"))
30. ((= filever "AC1009")
31.   (princ "\nDrawing File Version: R12/R11")
32. )
33. ((= filever "AC1006") (princ "\nDrawing File Version: R10"))
34. ((= filever "AC1004") (princ "\nDrawing File Version: R9"))
35. (T
36.   (princ (strcat "\nDrawing File Version Unknown: " filever))
37. )
38.       )
39.     )
40.   )
41.   (princ)
42. )
43. (princ
44.   "\nGet-Dwg-Ver loaded, type (Get-Dwg-Ver) to run."
45. )
46. (princ)

;;; By 小李子 2009.3.14 (defun Get-Dwg-Ver (filename / filehand filever)   (if (setq filehand (open filename "r"))     (progn       (setq filever "")       (repeat 6 (setq filever (strcat filever (chr (read-char filehand))))       )       (close filehand)       (cond ((= filever "AC1024") (princ "\nDrawing File Version: R2010") ) ((= filever "AC1021") (princ "\nDrawing File Version: R2007/2008/2009") ) ((= filever "AC1018")   (princ "\nDrawing File Version: R2004/2005/2006") ) ((= filever "AC1015")   (princ "\nDrawing File Version: R2000/2000i/2002") ) ((= filever "AC1014") (princ "\nDrawing File Version: R14")) ((= filever "AC1013")   (princ "\nDrawing Template File Version: R14") ) ((= filever "AC1012") (princ "\nDrawing File Version: R13")) ((= filever "AC1009")   (princ "\nDrawing File Version: R12/R11") ) ((= filever "AC1006") (princ "\nDrawing File Version: R10")) ((= filever "AC1004") (princ "\nDrawing File Version: R9")) (T   (princ (strcat "\nDrawing File Version Unknown: " filever)) )       )     )   )   (princ) ) (princ   "\nGet-Dwg-Ver loaded, type (Get-Dwg-Ver) to run." ) (princ)