홈/ 질문/Q 28156
다음
진행 중
Something went wrong with the plugin API.
등록일: 2002-01-22T09:40:07+09:00 카테고리:

[질문]호의 길이 치수기입법 아시는분

안녕하세요… 추운날씨에 고생들이 많습니다…
이곳에 오시는 모든분 건강조심하시고 항상 행복하시구요..
첨으로 질문 하나 하겠습니다.

치수기입을 하다보니까 수직, 수평, 각도…..등은 입력이 쉽게 되는데
원의 일부 그러니까 호의 길이를 입력하는 방법을 몰겠습니다.

예)반지름 15이고 60도인 호의 길이를 입력할려면..?

옛날 R12사용하던 시절에 써 먹은 기억은 있는데 R14,2000,2002를 쓰는 지금
기억이 안 나네요..(늙었나봐…ㅠ,.ㅠ 아직 26바께 안 먹었는데….)
CADMAS에서 호의 길이를 입력하는 유틸리티가 있긴 하던데… CADMAS를
안 띠우고 쓸 수는 없는가염.????

공유

    관련 있는 질문들

    3 답변

    1. aalan

    2. 호의 각도를 디멘전으로 입력한다음에

      아래 리습을 쓰면 됩니다..

      한방에 쓰는걸 만들었던것도 같은데

      뒤져보니 안보이네요…ㅡㅡㅋ

      2000리습에 깔았다 지운듯 한 기분이..

      불편하시면 쫌 손봐서 쓰세요..

      ;************************디멘전에 길이입력************************************
      (defun c:dc( / t_nil A-B)
      (defun t_nil (a c b d)
      (apply (eval (read (strcat “‘” a))) (MAPCAR ‘(LAMbDA (X) ((eval b) c X)) d))
      )
      (while (not (t_nil “or”
      (cdr (assoc 0 (if (setq a-b (car (entsel “n길이를 구할 object 를 선택하세요.”)))
      (setq a (entget a-b)) nil )))
      =
      ‘(“LWPOLYLINE” “LINE” “POLYLINE” “ARC” “CIRCLE” “SPLINE” “ELLIPSE”)
      )
      )
      )
      (command “lengthen” A-B “”)
      (setq aa_a (RTOS (GETVAR “PERIMETER”) 2 4))
      (princ ” =길이를 입력할 Dimension을 선택하세요.”)
      (setq ss (ssget))
      (command “dim” “newtext” aa_a “p” “” “exit”)
      (PRINC)
      )

      • 0

    3. 님 정말 감사합니다….
      LISP을 사용하니 되는군요….
      하지만 소수점4자리까지 나타나네요…
      저는 1자리만 나타내고 싶은데 그럴려면 어떻게 해야하는지요…??

      DIMSTYLE에서 소수점1자리로 바꿔도 계속 4자리까지 나타나는 이유는 뭔지요..??

      • 0

    4. 천재님의 글
      ————————————
      님 정말 감사합니다….
      LISP을 사용하니 되는군요….
      하지만 소수점4자리까지 나타나네요…
      저는 1자리만 나타내고 싶은데 그럴려면 어떻게 해야하는지요…??

      DIMSTYLE에서 소수점1자리로 바꿔도 계속 4자리까지 나타나는 이유는 뭔지요..??
      ————————————
      (setq aa_a (RTOS (GETVAR “PERIMETER”) 2 4))

      여기서 맨뒤에 4를 1로 바꾸세요…

      • 0