Question

cad里面如何写一个lsp程序来cad的版本！

cad里面如何写一个lsp程序来cad的版本，并加载对应版本的arx程序！因为有一些工程文件（如arx）需要加载cad对应版本的工程文件，所以需要这样一个lsp判断文件。感谢大家的解答与传教！我的qq1226237887
.cad辅助工具研讨qq群：14248840，欢迎大家加入！

Answer 1

(defun checkver ( / ver arx )
(setq ver (getvar "acadver"))
(cond
((= (substr ver 1 5) "15.06") (setq arx "xxx")) ;;对应 AutoCAD 2002的arx文件
((= (substr ver 1 4) "16.0") (setq arx "xxx")) ;;对应 AutoCAD 2004的arx文件
((= (substr ver 1 4) "16.1") (setq arx "xxx")) ;;对应 AutoCAD 2005的arx文件
((= (substr ver 1 4) "16.2") (setq arx "xxx")) ;;对应 AutoCAD 2006的arx文件
((= (substr ver 1 4) "17.0") (setq arx "xxx")) ;;对应 AutoCAD 2007的arx文件
((= (substr ver 1 4) "17.1") (setq arx "xxx")) ;;对应 AutoCAD 2008的arx文件
((= (substr ver 1 4) "17.2") (setq arx "xxx")) ;;对应 AutoCAD 2009的arx文件
((= (substr ver 1 4) "18.0") (setq arx "xxx")) ;;对应 AutoCAD 2010的arx文件
((= (substr ver 1 4) "18.1") (setq arx "xxx")) ;;对应 AutoCAD 2011的arx文件
)
(arxload arx)
)
(checkver)

新建一文本文件,将以上代码复制进去,存为checkver.lsp后,将它加入到cad的启动加载程序列表中,即可. "xxx"为对应的arx文件,若文件不存在于cad的搜索路径中,则需将完整文件路径名也写上.

Answer 2

在命令行里输入APPLOAD，选择你要加载的程序，点加载就OK了。－－希望对你有帮助，并被采纳！

Answer 3

在ACAD.PGP文件中加载该lsp文件就可

追问

怎么加呢？大虾详细一点！