2021.2.24更新说明：
1、增加对CAD尺寸标注、属性字、CAD表格（只能点选，用的nentselp穿透）、图块内文字（只能点选，用的nentselp穿透）、天正文字等的支持
2、增加动态插入文字（A旋转）、增加插入算式快捷键（见lisp注释 命令DD、d2~d4）
3、DLL文件和历史记录文件位置可以在lisp里面修改（见lisp注释）
4、理论上支持CAD2007、2008(没测试)，有问题请反馈。
no function definition: GC:AGRECORD
错误，缺少这个函数啊
CAD2020测试的结果
edsion24 发表于 2021-2-24 16:16
CAD2020测试的结果
你确定一下DLL和历史记录文件是否放到正确的位置
使用说明：
1、压缩包内文件放到：CAD安装目录\Support\阿甘计算器 （DLL文件和历史记录文件位置可在lisp里面修改，不会lisp的就不要改了，以免出错）
学习学习了,谢谢分享，又更新啦
5.400+8.200=13为啥计算出来的数小数点后面没有了
另；需望增加对带数字的属性块的计算
szx025 发表于 2021-2-28 15:04
5.400+8.200=13为啥计算出来的数小数点后面没有了
另；需望增加对带数字的属性块的计算
我这边计算没问题 5.400+8.200=13.6
你是不是修改了小数保留位数？是拾取的什么对象里面的数字？
属性块内文字计算，你自己加一下
在这句：
((wcmatch ent "ATTDEF") (setq text (cdr (assoc 2 ed))));属性字(提取“标记” 组码2)
后增加：
((wcmatch ent "ATTRIB") (setq text (cdr (assoc 1 ed))));属性块内文字
print1985 发表于 2021-2-28 17:54
我这边计算没问题 5.400+8.200=13.6
你是不是修改了小数保留位数？是拾取的什么对象里面的数字？
谢谢，print1985的热心指导，非常完美。
有个小问题表达式：(-5.050)+(-9.1)=-14.15>>>>计算结果：-14.15 !!!!!计算器窗口未启动，无法保存历史记录!!!!!，后面这个提示是啥问题
szx025 发表于 2021-3-1 08:22
谢谢，print1985的热心指导，非常完美。
有个小问题表达式：(-5.050)+(-9.1)=-14.15>>>>计算结果：-14 ...
用ag或agg启动界面 启动了界面才能保持历史记录
因为我一般不用保存历史记录 就不用启动界面 纯lisp也是能计算的
如果你讨厌这个提示 把lisp里面对应的语句删掉就是