【文字】数字相减

marting

1. (defun c:xdtb_txtnum- (/ a bit e match num1 num2 ss x)
   
2.   (xdrx-begin)
   
3.   (if
   
4.     (and
   
5.       (xdrx-prompt
   
6.         "**计算输出被减数与多个数字的差(能忽略前缀及后缀,小数位跟随所选)**"
   
7.       )
   
8.       (setq e (car (xdrx-entsel "\n选择被减数<退出>:" '((0 . "text")))))
   
9.       (xdrx-entity-redraw e 3)
   
10.       (setq match "[-]?[0-9]+(\\.[0-9]+)?")
    
11.       (setq num1 (car (xdrx-string-regexps
    
12.                         match
    
13.                         (xdrx-getpropertyvalue e "textstring")
    
14.                       )
    
15.                  )
    
16.       )
    
17.       (setq bit        (if (setq a (xdrx-string-find num1 "."))
    
18.                   (strlen (xdrx-string-mid num1 (1+ a)))
    
19.                   0
    
20.                 )
    
21.       )
    
22.       (setq num1 (atof num1))
    
23.       (setq ss (xdrx-ssget
    
24.                  "\n请选取减数(注意:被减数重选忽略)<退出>:"
    
25.                  '((0 . "text"))
    
26.                )
    
27.       )
    
28.     )
    
29.      (progn (ssdel e ss)
    
30.             (mapcar
    
31.               '(lambda (x)
    
32.                  (if (setq num2        (car (xdrx-string-regexps
    
33.                                        match
    
34.                                        (xdrx-getpropertyvalue x "textstring")
    
35.                                      )
    
36.                                 )
    
37.                      )
    
38.                    (progn (setq num1 (- num1 (atof num2))))
    
39.                  )
    
40.                )
    
41.               (xdrx-pickset->ents ss)
    
42.             )
    
43.             (xdrx-entity-redraw e 3)
    
44.             (xdrx-prompt "\n>>数字相减结果为:" (rtos num1 2 bit))
    
45.             (xdrx-text-make
    
46.               '(0 0 0)
    
47.               (rtos num1 2 bit)
    
48.               (xdrx-getpropertyvalue e "textstyle" nil)
    
49.               (xdrx-getpropertyvalue e "textheight")
    
50.             )
    
51.             (xdrx-entity-setpropertiesfrom (entlast) e)
    
52.             (xd::drag:move "\n插入点" (entlast) 5 7)
    
53.      )
    
54.   )
    
55.   (xdrx-entity-redraw e 4)
    
56.   (xdrx-end)
    
57.   (princ)
    
58. )
    
59. 
    

(defun c:xdtb_txtnum- (/ a bit e match num1 num2 ss x)<br />   (xdrx-begin)<br />   (if<br />     (and<br />       (xdrx-prompt<br />         "**计算输出被减数与多个数字的差(能忽略前缀及后缀,小数位跟随所选)**"<br />       )<br />       (setq e (car (xdrx-entsel "\n选择被减数<退出>:" '((0 . "text")))))<br />       (xdrx-entity-redraw e 3)<br />       (setq match "[-]?[0-9]+(\\.[0-9]+)?")<br />       (setq num1 (car (xdrx-string-regexps<br />                         match<br />                         (xdrx-getpropertyvalue e "textstring")<br />                       )<br />                  )<br />       )<br />       (setq bit        (if (setq a (xdrx-string-find num1 "."))<br />                   (strlen (xdrx-string-mid num1 (1+ a)))<br />                   0<br />                 )<br />       )<br />       (setq num1 (atof num1))<br />       (setq ss (xdrx-ssget<br />                  "\n请选取减数(注意:被减数重选忽略)<退出>:"<br />                  '((0 . "text"))<br />                )<br />       )<br />     )<br />      (progn (ssdel e ss)<br />             (mapcar<br />               '(lambda (x)<br />                  (if (setq num2        (car (xdrx-string-regexps<br />                                        match<br />                                        (xdrx-getpropertyvalue x "textstring")<br />                                      )<br />                                 )<br />                      )<br />                    (progn (setq num1 (- num1 (atof num2))))<br />                  )<br />                )<br />               (xdrx-pickset->ents ss)<br />             )<br />             (xdrx-entity-redraw e 3)<br />             (xdrx-prompt "\n>>数字相减结果为:" (rtos num1 2 bit))<br />             (xdrx-text-make<br />               '(0 0 0)<br />               (rtos num1 2 bit)<br />               (xdrx-getpropertyvalue e "textstyle" nil)<br />               (xdrx-getpropertyvalue e "textheight")<br />             )<br />             (xdrx-entity-setpropertiesfrom (entlast) e)<br />             (xd::drag:move "\n插入点" (entlast) 5 7)<br />      )<br />   )<br />   (xdrx-entity-redraw e 4)<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

yuren008

做个对论坛有益的人。

小小的人

没看明白什么意思  能用在哪里

newer

小小的人 发表于 2020-6-30 11:10
没看明白什么意思  能用在哪里

你想做减法的时候啊

既然青春留不住

moranyuyan

为什么不做个能加能减的

jzf1987

谢谢分享！！！！！！！！！！！！！！

liu-he

666666666666666666666