分享 计算器

xj6019

老师都这么多人提意见不能用了，我今天抱着试试的态度，确认了一下，还是不行啊，您可以把代码再做的更通用一点吗，拾取标注直接计算，很好，我也想用用，您抽空搞搞优化一下，更新一下代码吗，有劳有劳！！

xj6019

他们都说的0.75 是个什么梗啊，我这里也有，你可以为大家再弄弄吗

xj6019

尝试了一圈下来，能删的删，能改的改，最后还是不行，真搞不了啦，楼主赶紧弄弄吧，主要问题就在插入算式和插入结果上面，只要一点插入就直接报错，水平有限，搞不定了，只能期待您动手了，您抽空看看，优化一下吧，相信大家都在期待着

xj6019

参照8楼的意见修改后，可以使用了，不过还是建议把您的代码更新一下，避免大家下载后没法直接用，避免多绕路嘛，是吧

xj6019

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

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

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

bing00

VLX骗人，用不了

p-3-ianlcc

下載下來的lsp也無法正常使用
指令: EE
; 錯誤: 損壞的引數類型: streamp nil

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

de158168

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

命令: 0.750000

命令: 0

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

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

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

lxl217114

这个可以实现原位计算么？