高飞鸟老师你好，这里有一个你的表达式程序，你看是否能修改下
本帖最后由 highflybir 于 2019-5-25 07:47 编辑高飞鸟老师您好，这里有一个您的表达式程序，您看是否能修改下，如图图纸里面有表达式计算式了，能否在您的程序上加一点功能，输入tt，选择表达式，形成结果，如下
本帖最后由 xyp1964 于 2025-2-8 20:58 编辑
(defun c:tt ()
"文本计算式计算"
(setq vvv (xyp-LispVer)
fn-arx (cond ((>= vvv 2013) "geomcal.crx")
((< vvv 2013) "geomcal.arx")
)
)
(if (not (member fn-arx (arx)))(arxload fn-arx) )
(setq i -1)
(if (setq ss (ssget '((0 . "text"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq tx (xyp-DXF 1 s1))
(if (setq a (cal (xyp-CalFormat tx)))
(xyp-SubUpd s1 1 (strcat tx "=" (vl-princ-to-string a)))
)
)
)
(princ)
)
这个很简单呀，cal函数求值，替换刷新就行了 xyp1964 发表于 2023-9-17 16:24
相当好用的文本计算，可以直接利用文本进行运算，在图面注解、表示，对我帮助很大！
页:
[1]