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

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

如题，有这样的语句吗？


包括，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

本帖最后由 vectra 于 2017-9-1 08:34 编辑

[已解答] cad版本查询 lisp

[已解答] 如何用Lisp判断当前CAD是32位的还是64位的？

如何通过LSP 语言查看系统是64位还是32位

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

学习了               

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

学习了

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

学习了，要加载arx，不同的cad加载不同的
页: [1]
查看完整版本: lisp可否判断CAD版本，从而加载不同程序？