홈/ 질문/Q 188083
다음
진행 중
군고구
Lv.1
등록일: 2023-11-03T08:54:23+09:00 카테고리:

홀 크기 입력 리습

안녕하십니까
항상 도움 많이 받습니다.
홀에 치수를 넣어주지만
다양한 크기의 홀이 있으면 치수만으로는 구별이 힘들어질 때가 있어
홀 센터 부근에 그 지름 사이즈를 입력해서 넣고 싶습니다.
그래서 홀을 클릭하면 그 사이즈에 맞는 레이어와 색상이 정하여 텍스트로 넣을 수 있는 리습이 있을까 해서 글 남겨봅니다.

공유

    관련 있는 질문들

    답변을 남겨주세요

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

    아직 계정이 없으신가요?

    4 답변

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

      간단한거 같으니, 고수분들중에 금방 만들어주실분이 있으실 것 같지만,
      저는 아래님 블로그자료실의 리습 쓰고 있습니다.

      https://blog.naver.com/warfire114/222499780117
      https://blog.naver.com/warfire114/222623303216

      • 0
      • Lv.1

        다변 정말 감사합니다.
        다만 제가 원하는 기능이 아닙니다..
        써클을 클릭하면 지름이 텍스트로 나와서 원하는 위치에 넣을 수 있는 리습입니다.

        • 0
        • Lv.6

          dimstyle에서 치수선이랑 치수보조선 억제한다음에, 치수기입하고 분해해버리면 텍스트만 남을 거 같은데 리습없이 하려면, 저렇게 한번 해보시고,

          리습은 아래걸로 한번 해보세요.
          구글 검색해서 찾은거 살짝 변경만 했는데 되는지 안되는지 테스트는 못해봤습니다.
          (defun c:test ()
          (setq obj (car (entsel “n홀을 선택: “)))
          (if (and obj (= (cdr (assoc 0 (entget obj))) “CIRCLE”))
          (progn
          (setq circleCenter (cdr (assoc 10 (entget obj)))
          circleRadius (cdr (assoc 40 (entget obj)))
          textPosition (getpoint “nSpecify text insertion point: “))

          (command “_text” textPosition “” (rtos circleRadius 2 2))
          )
          (prompt “n선택객체가 원이 아닙니다.”)
          )
          (princ)
          )

          • 0
          • Lv.1

            (defun c:HD(/ #os #a #b dia k dp n txt ep ep1 ep2 p2 df)
            (setvar “cmdecho” 0)
            (setq df (getvar “dimlfac” ))
            (setq #os (getvar “osmode”))
            (setvar “osmode” 512)
            (setq #a (getpoint “n≫≫≫구멍 외경을 선택하세요:”))
            (setq p2 (getpoint #a “n≫≫지시선 포인트 :”))
            (setvar “osmode” #os)
            (if (setq #b (osnap #a “cen”))
            (progn
            (setq dia (*(*(distance #a #b )2.0)df))
            (initget “T D”)
            (setq k (getkword “n≫ 관통… / [D]p : “))
            (if (= k “D”)
            (progn
            (setq dp (getint (strcat “n≫ 깊이 : “)))
            )
            )
            (setq n (getint “n수량: “))

            (if (or (= n nil)(= n “”)(= n “1”))
            (progn
            (if (or (= k nil) (= k “T”))
            (setq txt (strcat “%%C” (rtos dia) ” HOLE”)))
            (if (= k “D”)
            (setq txt (strcat “%%C” (rtos dia) ” HOLE DP=” (rtos dp))))
            )
            (progn
            (if (or (= k nil) (= k “%%C”))
            (setq txt (strcat (rtos n) “-” “%%C” (rtos dia) ” HOLE”)))

            (if (= k “D”)
            (setq txt (strcat (rtos n) “-” “%%C” (rtos dia) ” HOLE DP=” (rtos dp))))
            )
            )
            (setvar “osmode” 0)
            (command “qleader” #a p2 “” “” txt “”)
            (setvar “osmode” #os)
            )
            )
            (princ)
            )

            메카피아 출처로 사용중인 리습인데
            지시선 출력이 아니라
            레이어와 색상이 설정된 텍스트로 출력이 가능하게 수정가능할까요?

            • 0