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

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

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

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

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

早就在用了

(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

提示: 作者被禁止或删除内容自动屏蔽

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

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

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

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

打开看看

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

谢谢楼主的分享

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

几何计算器

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

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

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

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

谢谢你的分享

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

看看是个啥

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

谢谢你的分享

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

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

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

谢谢你的分享

账号		自动登录	找回密码
密码			注册

500w008 500w008 当前离线积分 6427 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	发表于 2023-3-30 08:36 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

[经验] 加载几何计算器并计算表达式的值