[分享]计算表达式的值并将计算结果赋给选择的文字

stulsx

;计算表达式的值并将计算结果赋给选择的文字
(DEFUN C:VFG()
;obt 选择的体
;bdsh 输入的表达式
;Vbdsh 表达式的值
;TXT_Vbdsh 转换成文本的表达式的值

;选择物体 1.
(princ "\n计算表达式的值并将计算结果赋给选择的文字")
(setq obt (ssget '((-4 . "<AND")
(-4 . "<AND")
(0 . "TEXT")
(-4 . "AND>")
(-4 . "<NOT")
(0 . "LINE")
(-4 . "NOT>")
(-4 . "AND>")) )
)
;输入表达式，并计算表达式 2.
(if (null cal)(arxload "geomcal"))
(setq Vbdsh (cal (strcat (setq bdsh (getstring "\n输入表达式:")) )))

;将计算得到的数值覆盖文字 3.
(setq TXT_Vbdsh (rtos Vbdsh 2 3)) (setq tpt3 (entget (ssname obt 0)))
(setq pp (cons 1 TXT_Vbdsh))
(setq tpt3x (subst pp (assoc 1 tpt3) tpt3))
(entmod tpt3x)
;
;
(eval Vbdsh)
);end FUN

ttthhh_hb

好东东！

岁月无身

;输入表达式


怎么输入啊？


假如我要得到已经选择的两个数字的乘积，我该怎么输入该表达式呢？


请楼主告知啊，

无痕

输入表达式符合 cad命令‘cal的要求。


可惜楼主的程序


1。不能同时改多个文本


2。不能控制小数位。


3。不能解决’cal 的bug。如：


&gt;&gt; 错误: 整数必须介于 -32768 和 32767 之间.

anston

这个功能在VBA中怎么实现

逍遥无声