lisp可否判断CAD版本，从而加载不同程序？

尘缘一生 · 发表于 2017-9-1 06:12:23

如题，有这样的语句吗？

包括，32位，64位和不同版本，都分开，然后，IF。。。。。哪么的怎么。。。。。，

jun353835273 · 发表于 2017-9-2 22:51:15

(defun c:autoload (/ acadver arxver)
(setq acadver (atoi (getvar "acadver")))
(cond
((= acadver 16) ;;判断CAD版本是否为 2004~06
(if (setq arxver(findfile "D:\\API.R16.x32.arx")) (and(arxload arxver)(alert "已经成功加载!"))(alert "没有找到文件!")) ;; for CAD04~06
)
((= acadver 17) ;;判断CAD版本是否为 2007~09
(if (setq arxver(findfile "D:\\API.R17.x32.arx")) (and(arxload arxver)(alert "已经成功加载!"))(alert "没有找到文件!")) ;; CAD07~09
)
((= acadver 18) ;;判断CAD版本是否为 2007~09
(if (setq arxver(findfile "D:\\API.R18.x32.arx"))
(and (arxload arxver)(alert "已经成功加载!"))(alert "没有找到文件!")) ;; CAD10
)
)
(princ)
)

vectra · 发表于 2017-9-1 08:29:08

fan_zh · 发表于 2017-9-1 09:12:53

学习了

盐水鹅大麦粥 · 发表于 2017-9-5 10:17:06

学习了

流动的清泉 · 发表于 2017-12-12 10:53:23

学习了，要加载arx，不同的cad加载不同的

账号		自动登录	找回密码
密码			注册

[提问] lisp可否判断CAD版本，从而加载不同程序？