guosheyang 发表于 2023-3-29 08:37:56

加载几何计算器并计算表达式的值

本帖最后由 guosheyang 于 2023-3-29 10:14 编辑

      经常看到有的朋友说lisp计算数学综合表达式的值不方便，计算符号在前的写法反人类等等，这里给朋友们分享一个加载几何计算器并计算数学表达式的值（即cal命令）比如 "3*3+56/8+2^3+sqrt(16)+sin(30)"，这样计算很方便。 虽是基本函数，但也会有一些人可能不知道
      **** Hidden Message *****




ht1480 发表于 2023-3-29 11:11:21

早就在用了(defun C:++( / ss i txt txt1)
(setvar "cmdecho" 0)
(setq ss (ssget '((0 . "text"))))
(setq i (sslength ss))
(setq txt "0")
(if (> i 0)
(progn
(while (> i 0)
   (setq i (- i 1))
   (setq txt1 (cdr (assoc 1 (entget (ssname ss i)))))
      (setq txt (strcat txt1 "+" txt))
    ))
)
(prin1 txt)
(arxload "geomcal")
(setq txt1 (getpoint""))
(entmake
    (list '(0 . "TEXT")
   (cons 1 (rtos (cal txt) 2 2))
   (cons 10 txt1)
   (cons 40 0.8)
   (cons 11 txt1)
   (cons 72 1)
   (cons 73 2)
   (cons 7 "宋体")
   (cons 62 1)          
    ))
(princ)
)

500w008 发表于 2023-3-30 08:36:04

kucha007 发表于 2023-4-5 03:22:42

如果不存在则加载计算器：

(if
(not
    (vl-member-if
      '(lambda (x) (member x (arx)))
      '("geomcal.arx" "geomcal.crx")
    )
)
(arxload "geomcal")
)

edsion24 发表于 2023-3-29 08:39:03

打开看看                                          

tigcat 发表于 2023-3-29 08:50:14

谢谢楼主的分享

渠辉 发表于 2023-3-29 08:54:58

几何计算器

Klein 发表于 2023-3-29 09:18:33

本帖最后由 Klein 于 2023-3-29 09:20 编辑

你猜说的应该是（arxload "geomcal") 吧，确实方便，表达式短一大截

xudongchu 发表于 2023-3-29 09:47:16

谢谢你的分享

taoyi0727 发表于 2023-3-29 09:52:41

看看是个啥

yfanzi 发表于 2023-3-29 10:34:03

谢谢你的分享

Atsai 发表于 2023-3-29 10:35:01

回复学习新技巧，谢谢啦！

zhhg_2011 发表于 2023-3-29 10:40:50


谢谢你的分享
页: [1] 2 3 4 5 6 7 8
查看完整版本: 加载几何计算器并计算表达式的值