[编程申请]：谁帮帮忙？

eye

在CAD 中，编写一道LISP程序
可实现对图面中数字的相减。
我经常要统计工程量。

各位老大，请帮帮忙。谢谢。

PLgis

下面的代码已测试通过：

2. 
   
3. (defun c:xj()
   
4.         (setq minuend(getreal "\n被减数="))
   
5.         (setq ss(ssget "x" (list(cons 0 "TEXT"))))
   
6.         (setq n(if ss (sslength ss) 0))
   
7.         (while(> n 0)
   
8.                   (setq n(1- n))
   
9.                 (setq si(ssname ss n)
   
10.                                 st(cdr(assoc 1 (entget si)))
    
11.                                 subtrahend(atof st)
    
12.                 )
    
13.                 (setq minuend(- minuend subtrahend))
    
14.         )
    
15.         (princ "\ndifference=")(princ minuend)
    
16.         (princ)
    
17. )
    

<br /> (defun c:xj()<br />         (setq minuend(getreal "\n被减数="))<br />         (setq ss(ssget "x" (list(cons 0 "TEXT"))))<br />         (setq n(if ss (sslength ss) 0))<br />         (while(> n 0)<br />                   (setq n(1- n))<br />                 (setq si(ssname ss n)<br />                                 st(cdr(assoc 1 (entget si)))<br />                                 subtrahend(atof st)<br />                 )<br />                 (setq minuend(- minuend subtrahend))<br />         )<br />         (princ "\ndifference=")(princ minuend)<br />         (princ)<br /> )<br />

供参考

chenhang1203

用文字修改大师吧，很好用的

eye

先谢谢那位大哥

只是我的要求是：例如图面中有两个数譬如18.2 ，20.3
然后我输入命令
直接用鼠标选取那两个数，并把结果直接写在图中。

先前说得不清楚，有劳各位了。

coolzhb

最初由 chenhang1203 发布
[B]用文字修改大师吧，很好用的 [/B]

是的，文字修改大师可以实现数字的加减乘除运算。
http://www.xdcad.net/forum/showthread.php?threadid=76108

chenhang1203

我看了看，按照楼主的意思，好象文字大师做不到啊，二楼的程序也不对，哪个高手看看？

coolzhb

最初由 chenhang1203 发布
[B]我看了看，按照楼主的意思，好象文字大师做不到啊，二楼的程序也不对，哪个高手看看？ [/B]

文字修改大师可以做到呀，不能做到的就是直接写在图中，我原来的版本就是这样的，但这样不好控制字的层，大小，位置等，所以你拷贝一个文字放在旁边，做结果文字不就得了。

chenhang1203

最初由 coolzhb 发布
[B]

文字修改大师可以做到呀，不能做到的就是直接写在图中，我原来的... [/B]

楼主需要的是用鼠标点取被减数和减数，然后输出差值，文字大师需要复制被减数，然后选择这个复制的被减数，然后用键盘输入减数，得到结果，有点麻烦的。。。

ll_j

最初由 chenhang1203 发布
[B]
楼主需要的是用鼠标点取被减数和减数，然后输出差值，文字大师需要复制被减数，然后选... [/B]

看看ce.lsp

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?threadid=27605">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

chenhang1203

果然好用

zhqchn

试试k sh2003  先生的cad计算器吧，个人觉得满合适的

chenhang1203

楼上推荐的还不错，不过有时操作失误就死了，要小心的选数字。。。

coolzhb

最初由 chenhang1203 发布
[B]
楼主需要的是用鼠标点取被减数和减数，然后输出差值，文字大师需要复制被减数，然后选... [/B]

看来我的文字修改大师得需要加上此功能了！

eye

coolzhb兄的工具好用，但不太适合我说的要求
zhqchn 兄的LSP我也试过，加法做得完美，因为它可以实现多个数相加并标注；
而减法的运算，只能实现多个数同时减去同一个减数并标注
也就是只能是一次甲减去乙，倘若能实现一次甲减去乙再减去丙或更多
那我的问题就基本解决了。

谢谢各位！

hechao

(defun c:jx(/ txt1 nmtxt1 list1 real1 txt2 nmtxt2 list2 real2
               txt3 nmtxt3 list3 real3)
    (setq txt1 (entsel "\n选择第一文字:"))
    (while (or (null txt1) (if txt1 (/= (cdr (assoc 0 (entget (car txt1)))) "TEXT")))
           (setq txt1
                   (entsel "\n没有选中, 重选:")
           )
    )
    (setq nmtxt1 (car txt1))
    (setq list1 (entget nmtxt1))
    (redraw nmtxt1 3)
    (setq real1 (atof (cdr (assoc 1 list1))))

    (setq txt2 (entsel "\n选择第二文字:"))
    (while (or (null txt2) (if txt2 (/= (cdr (assoc 0 (entget (car txt2)))) "TEXT")))
           (setq txt2
                   (entsel "\n没有选中, 重选:")
           )
    )
    (setq nmtxt2 (car txt2))
    (setq list2 (entget nmtxt2))
    (redraw nmtxt2 3)
    (setq real2 (atof (cdr (assoc 1 list2))))
   
    (setq real3 (- real1 real2))

    (setq txt3 (entsel "\n选择第三文字:"))
    (while (or (null txt3) (if txt3 (/= (cdr (assoc 0 (entget (car txt3)))) "TEXT")))
           (setq txt3
                   (entsel "\n没有选中, 重选:")
           )
    )
    (setq nmtxt3 (car txt3))
    (setq list3 (entget nmtxt3))
    (redraw nmtxt3 3)

    (entmod (subst (cons 1 (rtos real3 2 2)) (assoc 1 list3) list3))
)