请问一下，这个求差时候为何算出来是相反的值？

lml2023

请问一下，这个求差时候为何算出来是相反的值？

比如22.5   11.5   求出来是-10，用11.5-22.5=10？

2. (defun c:QH (/ en en_data i list1 lst ss txt_add)
   
3.   (setq ss (ssget '((0 . "text")(1 . "~*[~--9]*"))))
   
4.   (setq i 0)
   
5.   (setq lst nil)
   
6.   (repeat (sslength ss)
   
7.     (setq en_data (entget (setq en (ssname ss i))))
   
8.     (setq list1 (cdr (assoc 1 en_data)))
   
9.     (setq lst (cons list1 lst))
   
10.     (setq i (1+ i))
    
11.   )
    
12.   (setq txt_add (apply '+ (mapcar 'read lst)))
    
13.       
    
14.   (command "text" "non" pause "" "" (vl-princ-to-string txt_add) )
    
15.   (prin1)
    
16. )
    
17. 
    
18. 
    
19. 
    
20. (defun c:QC (/ en en_data i list1 lst ss txt_add)
    
21.   (setq ss (ssget '((0 . "text")(1 . "~*[~--9]*"))))
    
22.   (setq i 0)
    
23.   (setq lst nil)
    
24.   (repeat (sslength ss)
    
25.     (setq en_data (entget (setq en (ssname ss i))))
    
26.     (setq list1 (cdr (assoc 1 en_data)))
    
27.     (setq lst (cons list1 lst))
    
28.     (setq -i (1+ i))
    
29.   )
    
30.   (setq txt_add (apply '- (mapcar  'read lst)))
    
31.       
    
32.   (command "text" "non" pause  "" "" (vl-princ-to-string txt_add) )
    
33.   (prin1)
    
34. )

(defun c:QH (/ en en_data i list1 lst ss txt_add)<br />   (setq ss (ssget '((0 . "text")(1 . "~*[~--9]*"))))<br />   (setq i 0)<br />   (setq lst nil)<br />   (repeat (sslength ss)<br />     (setq en_data (entget (setq en (ssname ss i))))<br />     (setq list1 (cdr (assoc 1 en_data)))<br />     (setq lst (cons list1 lst))<br />     (setq i (1+ i))<br />   )<br />   (setq txt_add (apply '+ (mapcar 'read lst)))<br />        <br />   (command "text" "non" pause "" "" (vl-princ-to-string txt_add) )<br />   (prin1)<br /> )<br /> <br /> <br /> <br /> (defun c:QC (/ en en_data i list1 lst ss txt_add)<br />   (setq ss (ssget '((0 . "text")(1 . "~*[~--9]*"))))<br />   (setq i 0)<br />   (setq lst nil)<br />   (repeat (sslength ss)<br />     (setq en_data (entget (setq en (ssname ss i))))<br />     (setq list1 (cdr (assoc 1 en_data)))<br />     (setq lst (cons list1 lst))<br />     (setq -i (1+ i))<br />   )<br />   (setq txt_add (apply '- (mapcar  'read lst)))<br />        <br />   (command "text" "non" pause  "" "" (vl-princ-to-string txt_add) )<br />   (prin1)<br /> )

飞雪神光

若不对选择集进行排序 则默认后生成的图元在前 代码中cons 又将顺序导致 例 按文字生成顺序  11.5 22.5 选择集中顺序为 22.5 11.5 cons后又为  11.5 22.5 因此在相减时 就是按实际的图元生成顺序相减

xj6019

求和无所谓顺序，求差，这么批选，结果肯定是乱套的，根本也没法用吧

lml2023

xj6019 发表于 2023-10-27 12:41
求和无所谓顺序，求差，这么批选，结果肯定是乱套的，根本也没法用吧

啊哈，那咋整

lml2023

飞雪神光 发表于 2023-10-27 12:36
若不对选择集进行排序 则默认后生成的图元在前 代码中cons 又将顺序导致 例 按文字生成顺序  11.5 22.5 选 ...

谢谢，指教，我调试试