안녕하세요
기계설계를 하고 있는 엔지니어입니다.
3D 프로그램 ug를 사용해서 설계를 하고 2D 작업만 캐드로 하고 있습니다.
3D에서 2D로 변환 하면 탭이 전부 홀로 변경됩니다.
홀 치수는 M5->4.3파이 M6->5.3파이 등으로 일정하게 나옵니다.
이걸 매번 홀 사이즈 체크해서 하나하나 넣다보니 이젠 정말 지칩니다.
라인 설계 기계하나 하면 도면이 600~1000장이 나옵니다.
이걸 하나하나 작업하다 보니 미쳐 버릴꺼 같습니다.
이렇게 살아오다가 우연히 지인분이 알려주셔서 리습을 알게됐습니다.
첨부한 리습은 홀을 선택하고 블럭을 선택하면 자동으로 그 홀 파이를 계산해서 블럭을 홀 중심에
삽입해주는 리습입니다.
이걸로만으로도 충분히 작업이 많이 빨라졌습니다.
다만 하단에 숨은 선에도 동일한탭이 들어가서 하나하나 확인하다 보니 눈이 빠질꺼 같습니다.
고수님들 도움 부탁드립니다.
현재 리습으로는 홀 선택해서 자동으로 넣는건 가능한데, 여기에 추가로 선종류를 선택도 할 수 있게 부탁드리겠습니다.
테스트 도면과 리습은 첨부합니다.
도와 주시면 감사하겠습니다.
좋은 밤 보내세요.
공유
(defun c:brt( / circle r ss block ip ob adoc lt)
(vl-load-com)
(and
(setq circle (car (entsel “n원 선택:”)))
(if (setq lt (cdr (assoc 6 (entget circle))))
(setq
r (cdr (assoc 40 (entget circle)))
ss (ssget “x” (list (cons 0 “CIRCLE”) (cons 40 r) (cons 6 lt)))
block (car (entsel “n붙여넣을 블럭 선택:”))
)
(setq
r (cdr (assoc 40 (entget circle)))
ss (ssget “x” (list (cons 0 “CIRCLE”) (cons 40 r) (cons 6 “Bylayer”)))
block (car (entsel “n붙여넣을 블럭 선택:”))
)
)
(progn
(setq
ip (cdr (assoc 10 (entget block)))
ob (vlax-ename->vla-object block)
adoc (vlax-get (vlax-get-acad-object) ‘activedocument)
)
(vla-startundomark adoc)
(foreach en (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))
(vla-move
(vla-copy ob)
(vlax-3d-point ip)
(vlax-3d-point (cdr (assoc 10 (entget en))))
)
)
(vla-endundomark adoc)
(vlax-release-object adoc)
)
)
(princ)
)
우기로기님 늦은 밤에도 답변 감사합니다.
정말 감사드립니다.
내일부터는 퇴근 시간이 많이 빨라지겠네요.
좋은 일만 생기시길 기원합니다.
다시 한번 감사드립니다.
천재 이십니다. ^^