分享 计算器

sharetow

工程量计算、手动修改标注时都需要用到计算器；      此计算器可提取标注与文字对象计算。            如有bug请留言。

sharetow

bai2000 发表于 2019-12-20 10:08
EE运行不了啊？

在调整了，30分钟后去1楼下载

moshouhot

(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")
           )
  )
)

xj6019

提点小的想法，可以优化一下代码，文字和数字组合情况下，提取数字的时候可以参照阿甘计算器，任何位置和格式都可以提取的好，然后增加一个选项，插入的时候要不要保留提取的文字内容部分，这样的话方便一些统计的时候吧，比方说AAA10+ AAA10=AAA20,最后可以直接插入AAA20,设置个过滤条件就行，文字相同的情况下执行，文字不同就不用执行了

第二点   面板希望增加一个选项可以常数计算，有很多时候需要平分一些数值方便，还是举例：100+100=200，得到200后面板可+-*/ 选一个，然后对一个输入的常数进行运算，比如200分5份，可以直接得到4，这样会很方便。

只是建议而已，您可以抽空的时候完善一下，谢谢！

bai2000

EE运行不了啊？

linheyuanpcb

要建立文件夹和配置文件方可运行

sharetow

linheyuanpcb 发表于 2019-12-20 10:35
要建立文件夹和配置文件方可运行

修改了，不用单独配置了

烟盒迷唇

哪里复制来的，多余的符号都没删除干净呀

sharetow

烟盒迷唇 发表于 2019-12-21 09:09
哪里复制来的，多余的符号都没删除干净呀

自己工具箱复制的啊，，，，，，参考阿甘计算器写的

maiko

不能插入结果,提示
指定基准点：-style 输入文字样式名或 [?] <Standard>: kld-t
新样式。
指定完整的字体名或字体文件名 (TTF 或 SHX): <txt>: ros1.shx,hztxt.shx
字体无法使用。
命令: 0

命令: 0.750000

命令: 0

命令: n 未知命令“N”。按 F1 查看帮助。

命令: n 未知命令“N”。按 F1 查看帮助。

命令: n 未知命令“N”。按 F1 查看帮助。

664571221

大神你好，能投提供一个选择米还是毫米未单位的  选择啊

kedenggao

麻烦楼主把源程序修改完整再重新发上来
** Error: no function definition: LL:ZT **

** Error: no function definition: LL:DXF_R **
目前就发现这两个函数没有，