[原创]数学表达式运算

teykmcqh

好好学习一下，可运用于程序中，谢谢啦！

祥子

要能解决省略前辍0的情况（如1+.2=1.2）那就好了

LLXXZZ

为啥不调用 cal 的命令进行赋值计算呢.

(defun c:jl (/ EP1 EG1 CTEXT1 c)
(vl-load-com)
(if (null cal)(arxload "geomcal"))
(setq EP1 (entsel "选取单行文字计算表达式：" ))
(setq EG1 (entget (car EP1)))
(if (= (cdr (assoc 0 EG1))  "TEXT")
    (progn
      (setq CTEXT1 (cdr (assoc 1 EG1)))
      (setq c (cal CTEXT1))
      (vla-put-textstring (vlax-ename->vla-object (car EP1)) (strcat CTEXT1 "=" (rtos c)))
    )
    ;(princ"  >>>表达式有误，请检查!")
  )
  (prin1)
  )

我以前写的一个.

skynoon

关注一下   

gbhsu

study ......