안녕하세요.
주로 판금용전개도를 그리고 있는 초보입니다.
이등변 삼각형을 그려야 하는데 각도와 밑변길이는 모르고
등변의 길이와 높이만 알고 있는 상태에서
공식 구할 필요 없이 캐드로 정확하게 그릴 수 있는 방법이 없나용?ㅠㅠ
2시간째 여기저기 헤매고 이것저것 다해봐도 답이 안나와서
여기 가입하고 처음으로 문의글을 올려봅니다 ㅠㅠ
고수님들 부탁좀 드릴게요 ㅠㅠ
공유
비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.
해당 질문을 신고하는 이유를 간단히 입력해주세요.
해당 답변을 신고하는 이유를 간단히 입력해주세요.
해당 유저를 신고하는 이유를 간단히 입력해주세요.
흠….바로 생각나는게
리습은 고수님들께 패쓰~ ㅎ
이등변 삼각형은 등변의 길이가 같기때문에 등변의 길이와 높이만 나와있으면 한개를 그리고 나면 바로 미러시키면 이등변삼각형이 되는겁니다. 공식이 필요없는게 아니고 이등변삼각형은 공식으로 그려지는 것이기 때문에 정의만 이해하고 계시면 쉽지 않나 생각되네요
그러게요..
허접하게 만들어 봤습니다.
수고하세요~
밑변거리 = (루트 (빗변거리^2 – 높이^2)) x 2 입니다.
빗변거리 = C
높이 = H
밑변거리 = A 일때..
리습 수식으로 하면
(setq a (* 2 (sqrt (- (expt C 2) (expt H 2)))))
(defun c:xx (/ $isp0 $C $H)
(setq $isp0 (getpoint “n 찌거봐 삽입헐디~~ : “))
(setq $C (getreal “n빗변길이 월매여~~ : “))
(while (> (setq $H (getreal “n높이가 월매여~~ : “)) $C)
(prompt “높이가 빗변보다 크자너~~”)
)
(command “_pline” $isp0
(list (- (car $isp0 ) (sqrt (- (expt $C 2) (expt $H 2)))) (- (cadr $isp0) $H))
(list (+ (car $isp0 ) (sqrt (- (expt $C 2) (expt $H 2)))) (- (cadr $isp0) $H))
“C”
)
)
; list로 풀어 봤습니다