求助：表达式文本的计算输出

stalin

求助lisp程序：批量选择cad文件中的算术表达式文本，程序运行能计算出结果。然后文本形式输出在文件中。如：[15+(101-1)*1.2]*2，然后自动输出来为=270。

二哥

怎么没有人回答啊？

二哥

(DEFUN C:VFG()
  (princ "\n计算表达式的值并将计算结果赋给选择的文字")
  (setq obt (ssget '((-4 . "<AND")
                                            (-4 . "<AND")
                       (0 . "TEXT")
                       (-4 . "AND>")
                                     (-4 . "<NOT")
                           (0 . "LINE")
                (-4 . "NOT>")
     (-4 . "AND>"))  )
  )
;输入表达式，并计算表达式
(if (null cal)(arxload "geomcal"))
(setq bdsh1 (ssget '((0 . "text"))))
(setq bdsh  (entget (ssname 1 bdsh1)))
(setq Vbdsh  (cal (strcat bdsh)))
  
;将计算得到的数值覆盖文字
(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

阿酱

zongshi meiyou  hen shunlide shiqing

freeok

这个希望能研究出来！！！

永不言弃