如何识别CAD的版本，原后根据不同的版本加载不同的ARX，如：

pdesign

我想编个acad.lsp，让它能够识别CAD的版本，原后根据不同的版本加载不同的ARX，如：
是R14就加载A.ARX
R2000就加载B.ARX
R2004就加载C.ARX
。。。。如何实现呀。

如果是只识别R14和R15，就是以下代码，但要加多一个识别R16，要怎么改。我不懂编程，请写出详细代码。谢谢了！谢谢了！谢谢了！谢谢了！谢谢了！
(if (< ($xdlsp_getacadver) 15)
(progn
(ARXLOAD "A.ARX")
;;R14
)
(progn
(ARXLOAD "B.ARX")
;;R15
)
)

alin

(cond ((= "14" (substr (getvar "acadver") 1 2))
(arxload "A.ARX"))
((= "15" (substr (getvar "acadver") 1 2))
(arxload "B.ARX"))
((= "16" (substr (getvar "acadver") 1 2))
(arxload "C.ARX"))
)

︶ㄣ与狼共舞

这贴有历史了，神了，真管用，谢谢啦！困扰我好久的问题解决了。谢谢alin——沙发