减数程序（源码）（参考学习用）

【KAIXIN】

2. ;功能: 在屏幕上点取两个数, 用第一个数减去第二个数,并放回第二个数的地方, 保留两位小数
   
3. (defun C:KK( / ent1 el1 ent2 el2 txt1 txt2 txt ent)
   
4.   (setvar "CMDECHO" 0)
   
5.   (setq ent1 (car (entsel "\n请选取第一个数:<Exit>")))
   
6.   (if (/= ent1 nil)
   
7.     (progn
   
8.       (setq el1 (entget ent1))
   
9.       (if (= "TEXT" (cdr (assoc 0 el1)))
   
10.         (progn
    
11.           (setq txt1 (cdr (assoc 1 el1)))
    
12.           (setq n 1)
    
13.         (while (/= n nil)
    
14.           (setq ent2 (car (entsel "\n请选取第二个数:<Exit>")))
    
15. 
    
16.           (if (/= ent2 nil)
    
17.             (progn
    
18.               (setq el2 (entget ent2))
    
19.               (if (= "TEXT" (cdr (assoc 0 el2)))
    
20.                 (progn
    
21.                   (setq txt2 (cdr (assoc 1 el2)))
    
22.                   (setq txt (rtos (- (atof txt1) (atof txt2)) 2 2))
    
23.                   (setq ent (subst (cons 1 txt) (assoc 1 el2) el2))
    
24.                   (entmod ent)
    
25.                 )
    
26.                 (princ "\n第二个数不是文字，请重选：")  
    
27.               )
    
28.             )
    
29.           )
    
30. 
    
31.           (if (= ent2 nil) (setq n nil))
    
32.         )
    
33.         )
    
34.         (princ "\n第一个数不是文字，请重选：")  
    
35.       )
    
36.     )
    
37.   )
    
38.   (redraw)(princ)
    
39. )
    

;功能: 在屏幕上点取两个数, 用第一个数减去第二个数,并放回第二个数的地方, 保留两位小数<br /> (defun C:KK( / ent1 el1 ent2 el2 txt1 txt2 txt ent)<br />   (setvar "CMDECHO" 0)<br />   (setq ent1 (car (entsel "\n请选取第一个数:<Exit>")))<br />   (if (/= ent1 nil)<br />     (progn<br />       (setq el1 (entget ent1))<br />       (if (= "TEXT" (cdr (assoc 0 el1)))<br />         (progn<br />           (setq txt1 (cdr (assoc 1 el1))) <br />           (setq n 1)<br />         (while (/= n nil)<br />           (setq ent2 (car (entsel "\n请选取第二个数:<Exit>")))<br /> <br />           (if (/= ent2 nil)<br />             (progn<br />               (setq el2 (entget ent2))<br />               (if (= "TEXT" (cdr (assoc 0 el2)))<br />                 (progn<br />                   (setq txt2 (cdr (assoc 1 el2)))<br />                   (setq txt (rtos (- (atof txt1) (atof txt2)) 2 2))<br />                   (setq ent (subst (cons 1 txt) (assoc 1 el2) el2))<br />                   (entmod ent)<br />                 )<br />                 (princ "\n第二个数不是文字，请重选：")  <br />               )<br />             )<br />           )<br /> <br />           (if (= ent2 nil) (setq n nil))<br />         )<br />         )<br />         (princ "\n第一个数不是文字，请重选：")  <br />       )<br />     )<br />   )<br />   (redraw)(princ)<br /> )<br />

该贴已经同步到 【KAIXIN】的微博

lioun4105

正好需要，谢谢

vlisp2012

呵呵，很好很强大。

梦与现实交替

真好 真好啊

434939575

极品好源码可惜我水平低[em0]

guanxin5325637

谢谢分享了!

dalin1985

下来学习一下

yoyoho

感谢分享学习!

qcw911

感谢分享学习!

叮咚

看看。学习一下

改了一下，整了个循环

;功能: 在屏幕上点取两个数, 用第一个数减去第二个数,并放回第二个数的地方, 保留两位小数
(defun C:KK (/ ent1 el1 ent2 el2 txt1 txt2 txt ent)
  (setvar "CMDECHO" 0)
  (setq ent1 (car (entsel "\n请选取第一个数:<Exit>")))
  (if (/= ent1 nil)
    (progn
      (setq el1 (entget ent1))
      (if (= "TEXT" (cdr (assoc 0 el1)))
        (progn
          (setq txt1 (cdr (assoc 1 el1)))
          (setq n 1)
          (while (/= n nil)
            (setq ent2 (car (entsel "\n请选取第二个数:<Exit>")))

            (if        (/= ent2 nil)
              (progn
                (setq el2 (entget ent2))
                (if (= "TEXT" (cdr (assoc 0 el2)))
                  (progn
                    (setq txt2 (cdr (assoc 1 el2)))
                    (setq txt (rtos (- (atof txt1) (atof txt2)) 2 2))
                    (setq ent (subst (cons 1 txt) (assoc 1 el2) el2))
                    (entmod ent)
                  )
                  (princ "\n第二个数不是文字，请重选：")
                )
              )
              (setq n nil)
            )

                                        ; (if (= ent2 nil) (setq n nil))
          )
        )
        (progn
          (princ "\n第一个数不是文字，请重选：")
          (c:kk)
        )
      )
    )
  )
  (redraw)
  (princ)
)