分享 计算器
本帖最后由 sharetow 于 2019-12-26 20:23 编辑工程量计算、手动修改标注时都需要用到计算器； 此计算器可提取标注与文字对象计算。 如有bug请留言。
本帖最后由 sharetow 于 2019-12-20 10:38 编辑
bai2000 发表于 2019-12-20 10:08
EE运行不了啊？
在调整了，30分钟后去1楼下载 (defun LL:TuC(LL_C1 LL_C2 LL_C3 LL_C4)
(if (not(tblobjname "layer" LL_C1))
(command "-layer" "n" LL_C1 "C" LL_C2 LL_C1 "L" LL_C3 LL_C1 "LW" LL_C4 LL_C1 "")
)
(if(not(tblsearch "style" "th"))
(command "-style" "th" "romane.shx,hztxt.shx" 0 0.75 0 "n" "n" "n")
)
)
(defun LL:Text(ll_t1 ll_t2 ll_t3 ll_t4 ll_t5)
(entmake (list
'(0 . "TEXT")
(cons 1 ll_t1)
(cons 7 "th")
(cons 8 ll_t2)
'(10 0 0 0)
(cons 11 ll_t3)
(cons 40 ll_t4)
(cons 41 0.75)
(cons 50 0)
(cons 72 ll_t5)
(cons 73 (1+ ll_t5))
'(100 . "AcDbText")
)
)
)
提点小的想法，可以优化一下代码，文字和数字组合情况下，提取数字的时候可以参照阿甘计算器，任何位置和格式都可以提取的好，然后增加一个选项，插入的时候要不要保留提取的文字内容部分，这样的话方便一些统计的时候吧，比方说AAA10+ AAA10=AAA20,最后可以直接插入AAA20,设置个过滤条件就行，文字相同的情况下执行，文字不同就不用执行了
第二点 面板希望增加一个选项可以常数计算，有很多时候需要平分一些数值方便，还是举例：100+100=200，得到200后面板可+-*/ 选一个，然后对一个输入的常数进行运算，比如200分5份，可以直接得到4，这样会很方便。
只是建议而已，您可以抽空的时候完善一下，谢谢！ EE运行不了啊？ 要建立文件夹和配置文件方可运行 linheyuanpcb 发表于 2019-12-20 10:35
要建立文件夹和配置文件方可运行
修改了，不用单独配置了 哪里复制来的，多余的符号都没删除干净呀 烟盒迷唇 发表于 2019-12-21 09:09
哪里复制来的，多余的符号都没删除干净呀
自己工具箱复制的啊，，，，，，参考阿甘计算器写的 不能插入结果,提示
指定基准点：-style 输入文字样式名或 [?] <Standard>: kld-t
新样式。
指定完整的字体名或字体文件名 (TTF 或 SHX): <txt>: ros1.shx,hztxt.shx
字体无法使用。
命令: 0
命令: 0.750000
命令: 0
命令: n 未知命令“N”。按 F1 查看帮助。
命令: n 未知命令“N”。按 F1 查看帮助。
命令: n 未知命令“N”。按 F1 查看帮助。 大神你好，能投提供一个选择米还是毫米未单位的选择啊 麻烦楼主把源程序修改完整再重新发上来
** Error: no function definition: LL:ZT **
** Error: no function definition: LL:DXF_R **
目前就发现这两个函数没有，