[求助]：如何自动识别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
  )
)

aeo

一般用cond.
(cond ((= ?? 14) (ARXLOAD "A.ARX"))
         ((= ?? 15)...)
    ...)

或:
(if a (if b (if c 0 1)2)3)

就是vba的 if ..then ..ElseIf...ElseIf...Else...

陌生人

以前还真没研究过这个，下面的不知道对否，望指教
(getvar "acadver")
r14没试
"15.06"               
"16.0s (LMS Tech)"

vl方法，
(vla-get-Version (vla-get-application (vlax-get-acad-object)))
返回值同上

另外，贴一个参考

1. 
   
2. VBA 类别名:
   
3. AcadApplication
   
4. 
   
5. 创建方法:
   
6. 对于VB:
   
7. GetObject("AutoCAD.Application.16")
   
8. CreateObject("AutoCAD.Application.16")
   
9. 对于AutoCAD VBA:
   
10. 不适用。应用程序始终可用。
    
11. 
    
12. 访问途径:
    
13. Application 属性
    
14. 
    
15. 
    
16. 与Application对象相关联的属性主应用程序窗口的特性。这些方法控制当前加载的外部应用程序与接口对象的加载或列表。
    
17. 
    
18. 活动的文档 (AutoCAD 图形) 可使用 ActiveDocument 属性来访问。
    
19. 
    
20. 要从VBA访问Application 对象，可使用 Thisdrawing.Application。要从VB中访问 Application 对象，可使用 Visual Basic 函数 GetObject 或 CreateObject。
    
21. 
    
22. 如果 AutoCAD 正在运行，GetObject 函数将会得到当前的 AutoCAD Application 对象。当同时运行了多个 AutoCAD 进程， GetObject 函数返回Windows 运行对象表中第一个 AutoCAD 实例。请查阅 Microsoft Visual Basic 文档的  Running Object Table (ROT) 和 GetObject 函数 (以获得确认GetObject返回操作的详细信息)。
    
23. 
    
24. 使用版本相关的 ProgIDs。如果 CreateObject 或 GetObject 函数使用了版本相关的 ProgID，更改函数以适用版本相关 ProgID。例如，用户可更改 CreateObject ("AutoCAD.Application") 为 CreateObject ("AutoCAD.Application.16")来调用AutoCAD 2004。
    
25. 
    
26. Application 对象同时也是 ActiveX 接口的 Global 对象。也就是说 Application 对象的所有方法和属性，都可以用于全局名称空间。
    
27. 
    

复制代码

eachy

最初由 aeo 发布
[B]一般用cond.
(cond ((= ?? 14) (ARXLOAD "A.ARX"))
         ((= ?? 15)...)
    ...)

或:
(if a (if b (if c 0 1)2)3)

就是vba的 if ..then ..ElseIf...ElseIf...Else... [/B]

< 15 的肯定是 R14 系列
< 16 的属于 R2000 & R2002 & R2000i
>= 16 的属于 R2004

用 (atof (getvar "acadver"))

陌生人

这样行不
(atoi (getvar "acadver"))
=14 的肯定是 R14 系列
=15 的属于 R2000 & R2002 & R2000i
= 16 的属于 R2004

xcajcj

R14：
Command: (getvar "acadver")
"14.0"

2002：
命令: (getvar "acadver")
"15.06"

pdesign

这不懂呀。这样行吗？
(atof (getvar "acadver"))
(cond ((< 15) (ARXLOAD "A.ARX")))
(cond ((< 16) (ARXLOAD "b.ARX")))
(cond ((>= 16) (ARXLOAD "c.ARX")))