홈/ 질문/Q 193651
다음
진행 중
익명
등록일: 2025-01-15T16:11:12+09:00 카테고리:

TTR 한번에 쓰는 명령어 혹은 리습이 있을까요?

제목 그대로입니다.

두 선에 접하는 원을 수백개 그리는데 조건이 동일하지 않아 매번 C-T-선 클릭클릭-엔터 과정을 반복하고 있습니다.

제가 써클 명령어를 CC로 바꿔뒀기 때문에 CCT 이렇게 세번이나 쳐야하는 상황이네요.

버튼 세개 과정을 하나로 줄이고 싶은데 방법이 있을까요?

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    4 답변

    1. aalan
    2. Lv.25
      (수정됨)

      두라인 한번선택으로 직경값 연속입력
      (defun c:test ()
      (princ “n첫 번째 접점 선택: “)
      (setq pt1 (getpoint))
      (if pt1
      (progn
      (princ “n두 번째 접점 선택: “)
      (setq pt2 (getpoint))
      (if pt2
      (while t
      (progn
      (princ “n원을 그릴 직경 입력: “)
      (setq diameter (getreal “n직경 입력 (0을 입력하면 종료)연속적 입력: “))
      (if (= diameter 0) ; 0을 입력하면 종료
      (progn
      (princ “n프로그램을 종료합니다.”)
      (exit)
      )
      (progn
      (setq radius (/ diameter 2.0))
      (command “circle” “ttr” pt1 pt2 radius)
      )
      )
      )
      )
      )
      )
      )
      (princ)
      )

      • 0