[LISP程序]：高手，请问一下

pdesign

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

XDSoft

最初由 pdesign 发布
[B]我想编个acad.lsp，让它能够识别CAD的版本，原后根据不同的版本加载不同的ARX，如是R14就加载A.ARX，如果是R2000就加载B.ARX，如果是2002就加载C.ARX。。。。如何实现呀。 [/B]

给你贴个判断版本的函数:

2. [font=courier]
   
3. (defun $xdlsp_getAcadVer ()
   
4.   (atof (getvar "acadver"))
   
5. )
   
6. [/font]
   

[font=courier]<br /> (defun $xdlsp_getAcadVer ()<br />   (atof (getvar "acadver"))<br /> )<br /> [/font]<br />

用法: 如果要判断2004(R16),修改下下面的代码,用case函数做多个分支.

2. [font=courier]
   
3. (if  (< ($xdlsp_getacadver) 15)
   
4.     (progn
   
5.         ..............  ;;R14
   
6.     )
   
7.     (progn
   
8.         .............  ;;R15 (2000,200I, 2002)
   
9.     )
   
10. )
    
11. [/font]
    

[font=courier]<br /> (if  (< ($xdlsp_getacadver) 15)<br />     (progn<br />         ..............  ;;R14<br />     )<br />     (progn<br />         .............  ;;R15 (2000,200I, 2002)<br />     )<br /> )<br /> [/font]<br />

pdesign

感谢老大，但我实在太菜了，还是不太懂，能不能详细一点？最好给个完整的代码。不胜感激。呵呵。。。。

XDSoft

最初由 pdesign 发布
[B]感谢老大，但我实在太菜了，还是不太懂，能不能详细一点？最好给个完整的代码。不胜感激。呵呵。。。。 [/B]

上面已经不能再完整了啊

pdesign

是不是这样：
(defun $xdlsp_getAcadVer ()
  (atof (getvar "acadver"))
)

if  (< ($xdlsp_getacadver) 15)
    (progn
        ..............  ;;R14
    )
(arxload"a.arx")
(princ)
    (progn
        .............  ;;R15 (2000,200I, 2002)
    )
(arxload"b.arx")
(princ)

XDSoft

最初由 pdesign 发布
[B]是不是这样：
(defun $xdlsp_getAcadVer ()
  (atof (getvar "acadver"))
)

if  (< ($xdlsp_getacadver) 15)
    (progn
        ..............  ;;R14
    )
(arxload"a.arx")
(princ)
    (progn
  ... [/B]

是R14版本处理,你把相应的代码替换上面 .......;R14那行.
是2002版本的代码, 你替换上面的 ......;R15那行.

pdesign

好的，谢谢老大