【源码分享】表达式计算器 for CAD2004

冒个烟圈 · 发表于 2015-7-18 13:12

想问一下，这个for2013吗

czcxxx · 发表于 2015-10-10 09:03

谢谢分享！！！！！！！！！！！！

wayne_myles · 发表于 2018-12-4 06:30

求大大更新我的2014无法使用谢谢大大！

wayne_myles · 发表于 2019-1-10 07:05

2014版本无法使用求更新

yshf · 发表于 2019-1-10 09:03

本帖最后由 yshf 于 2019-1-10 09:05 编辑

对于AutoCAD 2013及更高的版本，只需要将源程序：

(if (member "geomcal.arx" (arx)) nil

(arxload "geomcal.arx" nil)

)

改为：

(if (< (atof (substr (getvar "acadver") 1 4)) 19)

(setq calwjm "geomcal.arx")

(setq calwjm "geomcal.crx")

)

(if (member calwjm (arx))

nil

(arxload calwjm nil)

)

即可

enn09 · 发表于 2019-1-10 13:59

谢谢楼主分享，学习下

wayne_myles · 发表于 2019-1-10 17:46

yshf 发表于 2019-1-10 09:03
对于AutoCAD 2013及更高的版本，只需要将源程序： (if (member "geomcal.arx" (arx)) nil (arxload ...

谢谢大大指点!!!真的成功啦

逍遥无声 · 发表于 2019-12-29 14:58

LIULISHENG · 发表于 2020-2-20 12:06

很好的东东

999999 · 发表于 2020-12-7 00:53

支持支持支持，，谢谢楼主分享

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

[源码] 【源码分享】表达式计算器 for CAD2004