함수설명
세 점이 같은 선상에 있는지의 여부를 판단
구성
(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)
)
'Lisp & Tips > Lisp 제작용 XiCAD 함수' 카테고리의 다른 글
파일 중복 회피를 위한 번호 붙임 xi:FileNameAutoNum (0) | 2023.03.05 |
---|---|
객체 삭제하기 xi:Erase (0) | 2023.03.05 |
객체 선택 xi:Entsel (0) | 2023.03.01 |
문자입력 대화상자2 xi:EditBox2 (0) | 2023.03.01 |
문자입력 대화상자 1 xi:EditBox1 (0) | 2023.03.01 |