不一样地设计 发表于 2023-3-29 10:52:43

感谢楼主分享，看看学习

ht1480 发表于 2023-3-29 11:07:16

ht1480 发表于 2023-3-29 11:11:21

早就在用了(defun C:++( / ss i txt txt1)
(setvar "cmdecho" 0)
(setq ss (ssget '((0 . "text"))))
(setq i (sslength ss))
(setq txt "0")
(if (> i 0)
(progn
(while (> i 0)
   (setq i (- i 1))
   (setq txt1 (cdr (assoc 1 (entget (ssname ss i)))))
      (setq txt (strcat txt1 "+" txt))
    ))
)
(prin1 txt)
(arxload "geomcal")
(setq txt1 (getpoint""))
(entmake
    (list '(0 . "TEXT")
   (cons 1 (rtos (cal txt) 2 2))
   (cons 10 txt1)
   (cons 40 0.8)
   (cons 11 txt1)
   (cons 72 1)
   (cons 73 2)
   (cons 7 "宋体")
   (cons 62 1)          
    ))
(princ)
)

LIULISHENG 发表于 2023-3-29 11:29:28

支持一下楼主

229096767 发表于 2023-3-29 11:52:20

谢谢分享      

liuhe 发表于 2023-3-29 12:42:09

66666666666666

beidou1990 发表于 2023-3-29 14:15:37

是的我这也才知道的

ymcui 发表于 2023-3-29 16:15:41

打开看看   

guosheyang 发表于 2023-3-29 17:29:23

ht1480 发表于 2023-3-29 11:11
早就在用了

与这个不是一回事儿哦 :lol

kfh 发表于 2023-3-29 20:29:08

学习 谢谢分享！
页: 1 [2] 3 4 5 6 7 8
查看完整版本: 加载几何计算器并计算表达式的值