[求助]：请大家看看我编写的这个Lisp有什么问题？

柔柔

我没仔细看上面的程序，提个思路：
1，找出pa,pb,pc,pd四个点坐标
2，找出真正的pa和pd，所谓真正的点，是指pa，pc不一点就是起点，pb.pd不一定就是终点。这跟直线的方向有关。
3，比较pa-pd直线角度与pa-pb和pc-pd直线角度，如果一致或差180度，OK

Free-Lancer

几何与代数都很重要

2. 
   
3. ;; sp startpoint of line
   
4. ;; ep endpoint of line
   
5. ;; 对两条 Line，如果返回值相等则共线
   
6. (defun Ln_expr (sp ep / v vy vx k b)
   
7.   (setq        v  (mapcar '- ep sp)
   
8.         vx (car v)
   
9.         vy (cadr v)
   
10.   )
    
11.   (cond
    
12.     ((equal vx 0.)
    
13.      (list (car sp))
    
14.     )
    
15.     ((equal vy 0.)
    
16.      (list 0. (cadr sp))
    
17.     )
    
18.     (t
    
19.      (setq k (/ vy vx)
    
20.            b (- (cadr sp) (* k (car sp)))
    
21.      )
    
22.      (list k b)
    
23.     )
    
24.   )
    
25. )

<br /> ;; sp startpoint of line<br /> ;; ep endpoint of line<br /> ;; 对两条 Line，如果返回值相等则共线<br /> (defun Ln_expr (sp ep / v vy vx k b)<br />   (setq        v  (mapcar '- ep sp)<br />         vx (car v)<br />         vy (cadr v)<br />   )<br />   (cond<br />     ((equal vx 0.) <br />      (list (car sp))<br />     )<br />     ((equal vy 0.) <br />      (list 0. (cadr sp))<br />     )<br />     (t<br />      (setq k (/ vy vx)<br />            b (- (cadr sp) (* k (car sp)))<br />      )<br />      (list k b)<br />     )<br />   )<br /> )

xyp1964

先下载xyp_lib.lsp：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268

连线程序：同向相连合并，异向相交整合。