함수설명

세 점이 같은 선상에 있는지의 여부를 판단

 

구성

(xi:Colinear-p p1 p2 p3)

    p1, p2 p3 : point

    반환: T or nil

 

 

예제)

(if
   (and
      (setq pt0 (getpoint "\n 첫번째 점 지정"))
      (setq pt1 (getpoint "\n 두번째 점 지정"))
      (setq pt2 (getpoint "\n 세번째 점 지정"))
   )
   (xi:Colinear-p pt0 pt1 pt2)
)