自定义函数的返回值问题

s1os5210

2. (defun inters->nil (p1 p2 p3 p4 / dum)  
   
3.   (if (inters p1 p2 p3 p4)
   
4.     (setq dum  p2
   
5.           p2  p4
   
6.           p4  dum
   
7.     )
   
8.   )
   
9. )
   
10. (setq p1 '(-50.0 -50.0 0.0)
    
11.       p2 '(50.0 50.0 0.0)
    
12.       p3 '(-50.0 50.0 0.0)
    
13.       p4 '(50.0 -50.0 0.0)
    
14.     )
    
15. (inters->nil p1 p2 p3 p4)
    

(defun inters->nil (p1 p2 p3 p4 / dum)  <br />   (if (inters p1 p2 p3 p4)<br />     (setq dum  p2<br />           p2  p4<br />           p4  dum<br />     )<br />   )<br /> )<br /> (setq p1 '(-50.0 -50.0 0.0)<br />       p2 '(50.0 50.0 0.0)<br />       p3 '(-50.0 50.0 0.0)<br />       p4 '(50.0 -50.0 0.0)<br />     )<br /> (inters->nil p1 p2 p3 p4)<br />

设置变量p1 p2 p3 p4

判断是否有交点，如果有交换p2 p4 的坐标
结果函数运行完，却啥也没发生，哪位大神知道问题在哪里？

飞雪神光

1. (defun inters->nil (p1 p2 p3 p4 / dum)  
   
2.   (if (inters p1 p2 p3 p4)
   
3.     (setq
   
4.       dum p2
   
5.       p2  p4
   
6.       p4  dum
   
7.     )
   
8.   )
   
9.   (list p2 p4)
   
10. )
    
11. (setq
    
12.   p1 '(-50.0 -50.0 0.0)
    
13.   p2 '(50.0 50.0 0.0)
    
14.   p3 '(-50.0 50.0 0.0)
    
15.   p4 '(50.0 -50.0 0.0)
    
16. )
    
17. (setq p2p4 (inters->nil p1 p2 p3 p4))
    
18. (mapcar 'set '(p2 p4) p2p4)
    
19. (print (list p2 p4))
    
20. (princ)

(defun inters->nil (p1 p2 p3 p4 / dum)  <br />   (if (inters p1 p2 p3 p4)<br />     (setq<br />       dum p2<br />       p2  p4<br />       p4  dum<br />     )<br />   )<br />   (list p2 p4)<br /> )<br /> (setq<br />   p1 '(-50.0 -50.0 0.0)<br />   p2 '(50.0 50.0 0.0)<br />   p3 '(-50.0 50.0 0.0)<br />   p4 '(50.0 -50.0 0.0)<br /> )<br /> (setq p2p4 (inters->nil p1 p2 p3 p4))<br /> (mapcar 'set '(p2 p4) p2p4)<br /> (print (list p2 p4))<br /> (princ)

xyp1964

(defun inters->nil (p1 p2 p3 p4 )(if (inters p1 p2 p3 p4 nil)(list p1 p4 p3 p2)(list p1 p2 p3 p4)))