挑战lsp高手,用lsp语言查看打开后的DWG文件版本??

Andyhon

more info
http://discussion.autodesk.com/thread.jspa?threadID=549250
search DwgVer

also http://forums.augi.com/showthread.php?t=68922

dowan

我要看看ZZXXQQ 三楼

TANER

2. ;;;From theswamp
3. (defun GetDwgVer (fulldwgName / handle header)
4.   (cond
5.     ((setq handle (open fulldwgName "r"))
6.      (setq header (substr (read-line Handle) 1 6))
7.      (close handle)
8.      (cdr (assoc header
9.    '(("AC1027"
10.       .
11.       19
12.      )   ; logical extrapolated guess
13.      ("AC1024"
14.       .
15.       18
16.      )
17.      ("AC1021"
18.       .
19.       17
20.      )
21.      ("AC1018"
22.       .
23.       16
24.      )
25.      ("AC1015"
26.       .
27.       15
28.      )
29.      ("AC1014"
30.       .
31.       14
32.      )
33.      ("AC1012"
34.       .
35.       13
36.      )
37.      ("AC1009"
38.       .
39.       12
40.      )
41.      ("AC1006"
42.       .
43.       10
44.      )
45.      ("AC1004"
46.       .
47.       9
48.      )
49.      ("AC1002"
50.       .
51.       2.6
52.      )
53.      ("AC1.50"
54.       .
55.       2.05
56.      )
57.     )
58.    )
59.      )
60.     )
61.   )
62. )

;;;From theswamp (defun GetDwgVer (fulldwgName / handle header)   (cond     ((setq handle (open fulldwgName "r"))      (setq header (substr (read-line Handle) 1 6))      (close handle)      (cdr (assoc header    '(("AC1027"       .       19      )   ; logical extrapolated guess      ("AC1024"       .       18      )      ("AC1021"       .       17      )      ("AC1018"       .       16      )      ("AC1015"       .       15      )      ("AC1014"       .       14      )      ("AC1012"       .       13      )      ("AC1009"       .       12      )      ("AC1006"       .       10      )      ("AC1004"       .       9      )      ("AC1002"       .       2.6      )      ("AC1.50"       .       2.05      )     )    )      )     )   ) )

yangchao2005090

不知道。没用过2007。