동일 선상의 점 판단

조작 설명서

세 점이 같은 선상에 있는지 확인

구성

(xi: 동일선상의 p p1 p2 p3)

p1, p2 p3: 포인트

반환: T 또는 Null

예)

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