홈/ 질문/Q 103111
다음
진행 중
Lv.0
등록일: 2015-01-08T10:52:02+09:00 카테고리:

이등변 삼각형의 두등변의 길이와 높이만 알때 캐드로 그리는 법좀요

안녕하세요.
주로 판금용전개도를 그리고 있는 초보입니다.

이등변 삼각형을 그려야 하는데 각도와 밑변길이는 모르고
등변의 길이와 높이만 알고 있는 상태에서
공식 구할 필요 없이 캐드로 정확하게 그릴 수 있는 방법이 없나용?ㅠㅠ
2시간째 여기저기 헤매고 이것저것 다해봐도 답이 안나와서
여기 가입하고 처음으로 문의글을 올려봅니다 ㅠㅠ
고수님들 부탁좀 드릴게요 ㅠㅠ

공유

    관련 있는 질문들

    6 답변

    1. aalan

    2. 흠….바로 생각나는게

      치수구속조건밖에는 없네요.
      para.png
      • 0
    3. Lv.0
      이등변 삼각형이면 리습으로 가능할듯합니다.
      리습은 고수님들께 패쓰~ ㅎ

      • 0
    4. Lv.0

      이등변 삼각형은 등변의 길이가 같기때문에 등변의 길이와 높이만 나와있으면 한개를 그리고 나면 바로 미러시키면 이등변삼각형이 되는겁니다. 공식이 필요없는게 아니고 이등변삼각형은 공식으로 그려지는 것이기 때문에 정의만 이해하고 계시면 쉽지 않나 생각되네요

      • 0

    5. 그러게요..

      이방법도 있었네요 ㅎㅎㅎ 기능으로만 풀라그랬는데..
      한수 배우고 갑니다^^1.png
      • 0
    6. Lv.0
      (defun c:123 (/ pt1 th aa pt2 dis pt3 pt4 ss)
       
      (setvar “cmdecho” 0)
       
      (setq osm (getvar “osmode”))
       
      (setvar “osmode” 1)
       
      (setq pt1 (getpoint “n 삽입위치 : “) ss t)
       
      (setq aa (getreal “n 등변거리 : “))
       
      (while ss
       
      (if (< (setq th (getreal “n 높이 : “)) aa)
       
      (setq ss nil) (princ “높이가 더크네요? 이등변삼각형 그리기 싫어여? ㅎ”))
       
      )
       
      (setq dis (sqrt (- (expt aa 2) (expt th 2))))
       
      (setq pt3 (polar (polar pt1 4.71238 th) 3.141592 dis))
       
      (setq pt4 (polar pt3 0 (* dis 2)))
       
      (command “pline” pt1 pt3 pt4 “c”)
       
      (setvar “osmode” osm)
       
      (princ)
       
      )

      허접하게 만들어 봤습니다.

      수고하세요~

      • 0
    7. Lv.8

      밑변거리 = (루트 (빗변거리^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로 풀어 봤습니다

      • 0