[求助] 如何用lisp获得一个dwg文件的版本号
www.dimcax.com
[求助] 如何用lisp获得一个dwg文件的版本号
请问如何用lisp来获得一个dwg文件的版本号？
谢谢！！！
多谢andyhon、luowy，同事也感谢phoenixdjq的回复！
下面是我写的代码：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
( ( filehand ( filename "r"))
(
( filever "")
( 6
( filever ( filever ( ( filehand))))
)
( filehand)
(
(( filever "ac1024")
( "\ndrawing file version: r2010")
)
(( filever "ac1021")
(( filever "ac1013")
( "\ndrawing template file version: r14")
)
(( filever "ac1012") ( "\ndrawing file version: r13"))
(( filever "ac1009")
( "\ndrawing file version: r12/r11")
)
(( filever "ac1006") ( "\ndrawing file version: r10"))
(( filever "ac1004") ( "\ndrawing file version: r9"))
(
( ( "\ndrawing file version unknown: " filever))
)
)
)
)
()
)
(
"\nget-dwg-ver loaded, type (get-dwg-ver) to run."
)
()
d
提示，dwg文件里面有，就只有几个字符表示版本
d
command
ver)
command : acadver
工资真的要涨了，心里更加爱党了，能给孩子奖赏了，见到老婆敢嚷了，敢尝海鲜鹅掌了，闲时能逛商场了，遇见美女心痒了，结果物价又涨了！
d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
;;; by vladimir nesterovsky
( dwg-ver (fn)
( ( f ( fn "r"))
(
(
(
'strcat
(
'chr
(
'read-char
( f f f f f f)
)
)
)
( f ( f))
)
)
)
)
d
多谢andyhon、luowy，同事也感谢phoenixdjq的回复！
下面是我写的代码：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
( ( filehand ( filename "r"))
(
( filever "")
( 6
( filever ( filever ( ( filehand))))
)
( filehand)
(
(( filever "ac1024")
( "\ndrawing file version: r2010")
)
(( filever "ac1021")
(( filever "ac1013")
( "\ndrawing template file version: r14")
)
(( filever "ac1012") ( "\ndrawing file version: r13"))
(( filever "ac1009")
( "\ndrawing file version: r12/r11")
)
(( filever "ac1006") ( "\ndrawing file version: r10"))
(( filever "ac1004") ( "\ndrawing file version: r9"))
(
( ( "\ndrawing file version unknown: " filever))
)
)
)
)
()
)
(
"\nget-dwg-ver loaded, type (get-dwg-ver) to run."
)
()
d