홈/ 질문/Q 106881
다음
진행 중
Lv.0
등록일: 2016-07-05T11:15:33+09:00 카테고리:

원과 원 사이 크로스 접점

제목 없음.png

그림에 보여지듯이 크기가 다른 원이 있을때 대각선으로 접점을 이어주는 리습을 구하고 있습니다.
염치 없지만 부탁드리겠습니다 ㅠㅠ

공유

    관련 있는 질문들

    1 답변

    1. aalan

    2. 검색 해보고 네이버 검색도 해보고 질문 드렸던겁니다.

      (defun c:ccc ( / e1 c1 r1 c2 r2 d1 d2 a1 a2)
       (and
        (setq e1 (car (entsel)))
        (setq e2 (car (entsel)))
        (progn
         (setq c1 (cdr (assoc 10 (entget e1))) r1 (cdr (assoc 40 (entget e1))))
         (setq c2 (cdr (assoc 10 (entget e2))) r2 (cdr (assoc 40 (entget e2))))
         (setq d1 (distance c1 c2) d2 (- r1 r2))
         (setq a1 (angle c1 c2) a2 (atan (sqrt (- (* d1 d1) (* d2 d2))) d2))
         (entmakex (list (cons 0 “LINE”) (cons 10 (polar c1 (+ a1 a2) r1)) (cons 11 (polar c2 (+ a1 a2) r2))))
         (entmakex (list (cons 0 “LINE”) (cons 10 (polar c1 (- a1 a2) r1)) (cons 11 (polar c2 (- a1 a2) r2))))
        )
       )
       (princ)
      )

      찾은게 이거뿐이라서요 ㅠㅠ

      감사합니다~

      • 0