[LISP函数]：获得一个DWG文件的版本号

XDSoft

2. 
   
3. (defun GetDwgVersion ()
   
4. 
   
5. (setq dwgFile (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")))
   
6. 
   
7. (setq dwgFileHand (open dwgFile "r"))
   
8. 
   
9. (setq i 0 filever "")
   
10. 
    
11. (while (< i 6)
    
12.      (setq filever (strcat filever (chr (read-char dwgFileHand))))
    
13.      (setq i (1+ i))
    
14. )
    
15. 
    
16. (close dwgFileHand)
    
17. 
    
18. (cond
    
19.    ((= filever "AC1015")
    
20.     (princ "\nDrawing File Version: R2000")
    
21.    )
    
22.    ((= filever "AC1014")
    
23.     (princ "\nDrawing File Version: R14")
    
24.    )
    
25.    ((= filever "AC1013")
    
26.     (princ "\nDrawing Template File Version: R14")
    
27.    )
    
28.    ((= filever "AC1012")
    
29.     (princ "\nDrawing File Version: R13")
    
30.    )
    
31.    ((= filever "AC1009")
    
32.     (princ "\nDrawing File Version: R12/R11")
    
33.    )
    
34.    ((= filever "AC1006")
    
35.     (princ "\nDrawing File Version: R9")
    
36.    )
    
37.    (T
    
38.     (princ (strcat "\nDrawing File Version Unknown: " filever))
    
39.    )
    
40.   )
    
41. (princ)
    
42. )
    
43. 
    
44. (princ "\nGetDwgVersion loaded, type (GetDwgVersion) to run.")
    
45. (princ)
    

<br /> (defun GetDwgVersion ()<br /> <br /> (setq dwgFile (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")))<br /> <br /> (setq dwgFileHand (open dwgFile "r"))<br /> <br /> (setq i 0 filever "")<br /> <br /> (while (< i 6)<br />      (setq filever (strcat filever (chr (read-char dwgFileHand))))<br />      (setq i (1+ i))<br /> )<br /> <br /> (close dwgFileHand)<br /> <br /> (cond<br />    ((= filever "AC1015")<br />     (princ "\nDrawing File Version: R2000")<br />    )<br />    ((= filever "AC1014")<br />     (princ "\nDrawing File Version: R14")<br />    )<br />    ((= filever "AC1013")<br />     (princ "\nDrawing Template File Version: R14")<br />    )<br />    ((= filever "AC1012")<br />     (princ "\nDrawing File Version: R13")<br />    )<br />    ((= filever "AC1009")<br />     (princ "\nDrawing File Version: R12/R11")<br />    )<br />    ((= filever "AC1006")<br />     (princ "\nDrawing File Version: R9")<br />    )<br />    (T<br />     (princ (strcat "\nDrawing File Version Unknown: " filever))<br />    )<br />   )<br /> (princ)<br /> )<br /> <br /> (princ "\nGetDwgVersion loaded, type (GetDwgVersion) to run.")<br /> (princ)<br />