반응형 Centroid1 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 다음 반응형
