반응형 angle2 radian 리습에서 각도는 라디안으로 계산한다. 도(º)를 라디안으로 변환하는 함수다.;;(defun KM:RAD ( _DEGREE / deg ang)(setq deg _DEGREE)(setq ang (* pi (/ deg 180.))));; 2025. 9. 8. Find Centroid of reg.Triangle ;;정삼각형의 도심 찾기. 리비전마크 중심으로 텍스트 위치 시키기 위해 개발(defun KM:TRICENTROID ( / OSM p1 p2 mid len) (setq OSM (getvar 'osmode)) (setvar 'osmode 1)(setq ang 0 tc '(0 0 0))(setq p1 (getpoint "\nFirst point: ")) (setq p2 (getpoint "\nSecond point: ")) (setq mid (polar p1 (angle p1 p2) (/ (distance p1 p2) 2.))) ;; mid point of side = 아랫변의 중간점(setq len (* (sqrt 3) (/ (distance mid p2) 3.))) ;; root(3) x length/2 .. 2025. 9. 2. 이전 1 다음 반응형
