캐드 분류
홀 크기 입력 리습
컨텐츠 정보
- 11 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하십니까
항상 도움 많이 받습니다.
홀에 치수를 넣어주지만
다양한 크기의 홀이 있으면 치수만으로는 구별이 힘들어질 때가 있어
홀 센터 부근에 그 지름 사이즈를 입력해서 넣고 싶습니다.
그래서 홀을 클릭하면 그 사이즈에 맞는 레이어와 색상이 정하여 텍스트로 넣을 수 있는 리습이 있을까 해서 글 남겨봅니다.
관련자료
댓글 4
/ 1 페이지
기남씨님의 댓글
간단한거 같으니, 고수분들중에 금방 만들어주실분이 있으실 것 같지만, 저는 아래님 블로그자료실의 리습 쓰고 있습니다.
https://blog.naver.com/warfire114/222499780117 https://blog.naver.com/warfire114/222623303216
기남씨님의 댓글
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) )
군고구님의 댓글
(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) )
메카피아 출처로 사용중인 리습인데 지시선 출력이 아니라 레이어와 색상이 설정된 텍스트로 출력이 가능하게 수정가능할까요?
