找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2530|回复: 36

[原创] lisp+c#混合编程之--无边框超小界面计算器(阿甘计算器) 2021.2.24更新

[复制链接]

已领礼包: 28个

财富等级: 恭喜发财

发表于 2021-1-15 21:22:10 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
本帖最后由 print1985 于 2022-5-17 10:22 编辑


对不起各位,因最近发现本人发的个别插件、源码被人挂网上贩卖,虽然没啥技术含量,但是也是花了时间做的。为了不被后面的二手贩子继续利用,忍心下架所有成品插件,敬请理解,确实需要本插件的朋友可以给我留言。




计算器录屏.gif

2021.2.24更新

2021.2.24更新

2021.2.24更新

启动快捷键ag,可修改

启动快捷键ag,可修改


放到CAD安装目录\Support\阿甘计算器

放到CAD安装目录\Support\阿甘计算器


弄了个lisp+c#混合编程的计算器给大家玩玩
lisp负责运算,c#提供界面(和DCL对话框比较,最大的好处就是可以按回车键直接计算,不用点按钮了)
无边框非模态对话框,界面小巧,可以非常方便的放到命令栏,不碍眼,也可以关闭
计算结果自动复制到剪贴板,历史记录自动保存,可手动输入计算,也可选择文字自动计算

使用说明:
1、压缩包内文件放到:CAD安装目录\Support\阿甘计算器 (DLL文件和历史记录文件位置可在lisp里面修改,不会lisp的就不要改了,以免出错)
2、加载lsp文件(加载lsp后dll文件会自动加载)
3、启动命令:ag。其余计算快捷键见lsp文件内说明

使用技巧:
1、手动计算:在计算窗口内输入表达式,按回车键计算;
   结果以红字显示,如再输入数字结果自动清除,输入运算符号则结果保留(符合使用习惯);
   回车键可直接清除红色结果;
   Del键清除计算框全部内容。
2、双击历史记录可重新计算。
3、自动计算:按+、-、×、÷按钮,然后选择CAD文字自动计算。

本人lisp、c#都是入门级,计算器没有过多的功能(实在写不出来),只为方便使用而已。部分代码来自论坛,感谢各位大神
有什么问题欢迎反馈,PS:测试前请做好图纸备份,以免致命错误。
2021.1.20更新说明:
1、精简为2个版本(CAD2009~2012版)(CAD2013~2021版),理论上都支持,有问题请反馈;
2、启动快捷键ag或agg,ag可以修改,见lisp。

2021.2.24更新说明:
1、增加对CAD尺寸标注、属性字、CAD表格(只能点选,用的nentselp穿透)、图块内文字(只能点选,用的nentselp穿透)、天正文字等的支持
2、增加动态插入文字(A旋转)、增加插入算式快捷键(见lisp注释 命令DD、d2~d4)
3、DLL文件和历史记录文件位置可以在lisp里面修改(见lisp注释)
4、理论上支持CAD2007、2008(没测试),有问题请反馈。


评分

参与人数 2D豆 +25 收起 理由
Lisphk + 5 很给力!经验;技术要点;资料分享奖!
XDSoft + 20 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 914个

财富等级: 财运亨通

发表于 2021-1-16 05:26:53 | 显示全部楼层
挺好玩的,赞一个
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 225个

财富等级: 日进斗金

发表于 2021-1-16 08:55:39 | 显示全部楼层
谢谢分享!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 10个

财富等级: 恭喜发财

发表于 2021-1-16 09:02:30 | 显示全部楼层
2016有哪个版本啊?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 11个

财富等级: 恭喜发财

发表于 2021-1-16 10:54:16 | 显示全部楼层
这个厉害,有低版本的吗
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

发表于 2021-1-16 11:26:10 | 显示全部楼层
咨询个问题,假如说数字中间同时带着字母x和*,这个判断了么,比如说12*3x5是判断为12x3x5,还是判断为123x5,还是判断为12x35
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 4690个

财富等级: 富可敌国

发表于 2021-1-16 15:37:16 | 显示全部楼层
谢谢分享,厉害了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 28个

财富等级: 恭喜发财

 楼主| 发表于 2021-1-16 16:17:29 | 显示全部楼层
bai0371 发表于 2021-1-16 09:02
2016有哪个版本啊?

可以试试2014版。如果不行,你可以上传cad安装目录下的这几个文件(不一定全部都有,有几个传几个),我编译了你试试,我没2016测试不了。
其它版本的如果有需要,也可以发上来我试试,但是不一定保证能用。
QQ截图20210116161419.png

点评

2016版的四个文件已传  详情 回复 发表于 2021-1-20 12:13
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 28个

财富等级: 恭喜发财

 楼主| 发表于 2021-1-16 16:25:13 | 显示全部楼层
本帖最后由 print1985 于 2021-1-19 13:13 编辑
xujinhua 发表于 2021-1-16 10:54
这个厉害,有低版本的吗

CAD2007、2008和2013可以试试这个,我没装,试不了,不知道能不能用。
2021.1.19增加一个CAD2017版
这几个版本能否使用请反馈


阿甘计算器(CAD2007 2008版).rar

8.72 KB, 下载次数: 16, 下载积分: D豆 -1 , 活跃度 1

32位

阿甘计算器(CAD2013版).rar

8.82 KB, 下载次数: 14, 下载积分: D豆 -1 , 活跃度 1

64位

阿甘计算器(CAD2017版).rar

8.82 KB, 下载次数: 19, 下载积分: D豆 -1 , 活跃度 1

64位

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 28个

财富等级: 恭喜发财

 楼主| 发表于 2021-1-16 16:29:30 | 显示全部楼层
ehcapa 发表于 2021-1-16 11:26
咨询个问题,假如说数字中间同时带着字母x和*,这个判断了么,比如说12*3x5是判断为12x3x5,还是判断为123x5 ...

字母x会忽略,不会识别为*号
当然 如果你要用字母x代替*号,可以自行修改lsp里面的正则表达式部分
需要更多功能的都可以自行修改lsp内容
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 11个

财富等级: 恭喜发财

发表于 2021-1-16 21:27:56 | 显示全部楼层
print1985 发表于 2021-1-16 16:25
CAD2007、2008和2013可以试试这个,我没装,试不了,不知道能不能用

谢谢你!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 10个

财富等级: 恭喜发财

发表于 2021-1-20 12:13:51 | 显示全部楼层
本帖最后由 bai0371 于 2021-1-20 12:25 编辑
print1985 发表于 2021-1-16 16:17
可以试试2014版。如果不行,你可以上传cad安装目录下的这几个文件(不一定全部都有,有几个传几个),我 ...

2016版的四个文件传不上去
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 28个

财富等级: 恭喜发财

 楼主| 发表于 2021-1-20 17:28:41 | 显示全部楼层
bai0371 发表于 2021-1-20 12:13
2016版的四个文件传不上去

1楼已更新,(CAD2013~2021版)理论上支持2016
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2021-1-21 10:17:45 | 显示全部楼层
跟大神学习学习!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 28个

财富等级: 恭喜发财

 楼主| 发表于 2021-2-24 13:55:58 | 显示全部楼层
2021.2.24更新说明:
1、增加对CAD尺寸标注、属性字、CAD表格(只能点选,用的nentselp穿透)、图块内文字(只能点选,用的nentselp穿透)、天正文字等的支持
2、增加动态插入文字(A旋转)、增加插入算式快捷键(见lisp注释 命令DD、d2~d4)
3、DLL文件和历史记录文件位置可以在lisp里面修改(见lisp注释)
4、理论上支持CAD2007、2008(没测试),有问题请反馈。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 10:21 , Processed in 0.487442 second(s), 62 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表