함수 설명
호의 형태로 된 세 점의 진행 방향이 시계방향인지의 판단
구성
(xi:Clockwise-p p1 p2 p3)
p1 : point 좌표
p2 : point 좌표
p3 : point 좌표
반환 : 시계방향: T, 반시계방향: nil
예제)
(if
(and
(setq pt1 (getpoint "\n 첫번째 점 지정"))
(setq pt2 (getpoint "\n 두번째 점 지정"))
(setq pt3 (getpoint "\n 세번째 점 지정"))
)
(if (xi:Clockwise-p pt1 pt2 pt3)
(list pt1 pt2 pt3)
(list pt3 pt2 pt1)
)
)
'Lisp & Tips > Lisp 제작용 XiCAD 함수' 카테고리의 다른 글
숫자에 콤마 넣기 xi:Comma (0) | 2023.03.01 |
---|---|
무명블럭 실제이름 xi:EffectiveName (0) | 2023.03.01 |
객체 테두리 좌표 xi:Boundingbox (0) | 2023.02.26 |
숫자 앞에 0 갯수 일치 xi:AutoFixNum (0) | 2023.02.26 |
함수의 시작과 끝, (xi:StartS) (xi:EndS) ☆☆☆☆☆ (0) | 2023.02.26 |