加载几何计算器并计算表达式的值

不一样地设计

感谢楼主分享，看看学习

ht1480

ht1480

早就在用了

2. (defun C:++( / ss i txt txt1)
   
3.   (setvar "cmdecho" 0)
   
4. (setq ss (ssget '((0 . "text"))))
   
5. (setq i (sslength ss))
   
6. (setq txt "0")
   
7. (if (> i 0)
   
8.   (progn
   
9.   (while (> i 0)
   
10.      (setq i (- i 1))
    
11.      (setq txt1 (cdr (assoc 1 (entget (ssname ss i)))))
    
12.       (setq txt (strcat txt1 "+" txt))
    
13.     ))
    
14.   )
    
15. (prin1 txt)
    
16. (arxload "geomcal")
    
17. (setq txt1 (getpoint""))
    
18. (entmake
    
19.     (list '(0 . "TEXT")
    
20.    (cons 1 (rtos (cal txt) 2 2))
    
21.    (cons 10 txt1)
    
22.    (cons 40 0.8)
    
23.    (cons 11 txt1)
    
24.    (cons 72 1)
    
25.    (cons 73 2)
    
26.    (cons 7 "宋体")
    
27.    (cons 62 1)          
    
28.     ))
    
29. (princ)  
    
30. )

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

LIULISHENG

支持一下楼主

229096767

谢谢分享      

liuhe

66666666666666

beidou1990

是的  我这也才知道的

ymcui

打开看看     

guosheyang

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

与这个不是一回事儿哦

kfh

学习 谢谢分享！