（XD:GEOM:Collinear-p）判断三点是否共线

Lispboy

1. (defun XD:GEOM:Collinear-p ( p1 p2 p3 )
   
2.     (
   
3.         (lambda ( a b c )
   
4.             (or
   
5.                 (equal (+ a b) c 1e-4)
   
6.                 (equal (+ b c) a 1e-4)
   
7.                 (equal (+ c a) b 1e-4)
   
8.             )
   
9.         )
   
10.         (distance p1 p2) (distance p2 p3) (distance p1 p3)
    
11.     )
    
12. )
    

(defun XD:GEOM:Collinear-p ( p1 p2 p3 )<br />     (<br />         (lambda ( a b c )<br />             (or<br />                 (equal (+ a b) c 1e-4)<br />                 (equal (+ b c) a 1e-4)<br />                 (equal (+ c a) b 1e-4)<br />             )<br />         )<br />         (distance p1 p2) (distance p2 p3) (distance p1 p3)<br />     )<br /> )<br />

shibingcheng

新手学习一下，谢谢！

bbbxxxccclt

新手学习一下，谢谢！

chenbj0

(defun normal (p1 p2 p3)
  (command "_.ucs" "")
  (command "_.ucs" "3" p1 p2 p3)
  (mapcar '- (trans '(0 0 1) 1 0) (trans '(0 0 0) 1 0))
  )

qxlonmsn

感谢大佬的代码!!!!