单行文字的四则运算

feng582304

之前在论坛里看到有讨论四则运算的，俺刚好也要用到，就做了一个，大家一起玩玩看，呵。
用法：用单选文字写出等式，比如“1+（2*（3/（4-5）））=”，运行命令后会在等式后面写出结果“-5”

;======================计算等式======================
(defun c:ys ( / ss ss1 n txt po doc p1 p2 nn hi )
  (setq doc (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
  (setq ss1 (ssget '((0 . "text"))))
  (setq nn 0)
  (repeat (sslength ss1)
    (vla-getboundingbox  (vlax-ename->vla-object (ssname ss1 nn)) 'p1 'p2)
    (setq p1 (vlax-safearray->list p1))
    (setq p2 (vlax-safearray->list p2))
    (setq po (list (+ 100 (car p2)) (cadr p1) 0))
    (setq ss (vla-get-textstring (vlax-ename->vla-object (ssname ss1 nn))))
    (setq hi (vla-get-height (vlax-ename->vla-object (ssname ss1 nn))))
    (setq n 1)
    (setq txt "")
    (repeat (strlen ss)
      (cond
        ((and (> (ascii (substr ss n 1)) 47) (< (ascii (substr ss n 1)) 58))
         (setq txt (strcat txt (substr ss n 1)))
         )
        ((= (substr ss n 1) ".")
         (setq txt (strcat txt "."))
         )
        ((or (= (substr ss n 1) "X") (= (substr ss n 1) "*") (= (substr ss n 1) "x"))
         (setq txt (strcat txt "*"))
         )
        ((= (substr ss n 1) "+")
         (setq txt (strcat txt "+"))
         )
        ((= (substr ss n 1) "-")
         (setq txt (strcat txt "-"))
         )
        ((= (substr ss n 1) "/")
         (setq txt (strcat txt "/"))
         )
        ((= (substr ss n 1) "(")
         (setq txt (strcat txt "("))
         )
        ((= (substr ss n 1) ")")
         (setq txt (strcat txt ")"))
         )
        )
      (setq n (1+ n))
      )
    (princ txt)
    (if (null cal)(arxload"geomcal"))
    (vla-addtext doc (rtos (c:cal txt) 2 2) (vlax-3d-point po) hi)
    (setq nn (1+ nn))
    )
  (princ)
  )

luntan666

进来看看，顺便顶下....

/fendou结构绘图

超级大的核桃

支持，我正好需要，谢谢楼主

hzyhzjjzh

谢谢楼主