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

stalin · 发表于 2012-12-30 16:03

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

二哥 · 发表于 2013-1-5 18:16

怎么没有人回答啊？

二哥 · 发表于 2013-1-5 18:20

(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

阿酱 · 发表于 2013-1-7 11:43

zongshi meiyou hen shunlide shiqing

freeok · 发表于 2013-9-25 23:52

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

永不言弃 · 发表于 2013-9-27 14:49

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

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

本帖子中包含更多资源