홈/ 질문/Q 99704
다음
진행 중
고우고
Lv.0
등록일: 2013-11-29T11:52:55+09:00 카테고리:

블록삽입 리습 있나요?

홀 9파이에 어떤 일정한 사각형을 넣을 수 있는 리습이 혹시 있나요?
9파이 홀들이 100개 있다고 가정했을때 전부 드래그 하여 세모나 네모의 블록을 전부 집어 넣어주는
기능이 있는 리습을 구해봅니다.

제가 원하는 리습은

1.도면 전체를 드래그
2.원하는 홀 선택(ex : 9파이,6.8파이,10파이 등등등)
3.삽입하고자 하는 블록 선택(ex : 사각형,삼각형 등등)

도면양이 엄청난데 copy로 집어 넣기에 너무 시간이 많이 걸리네요…ㅠㅠ

혹시 이런 유형의 리습을 가지고 있으신분 있으시면 부탁드려요..

공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0

      코리아 스톰님 정말 감사감사합니다.
      대단하십니다. 제가 원하던 리습입니다.
      아시는 분이면 술이라도 한잔 대접해 드리고 싶은 심정입니다.
      한가지 더 부탁 드려도 될런지
      현재 위에 리습에서 블록을 삽입후에 그 홀들을 모두 지우고 싶은데 원선택해서 그 원을 모두 지울 수 있는 리습도 혹시 가능한지 염치없게도 부탁드려봅니다.
      대단히 감사감사합니다.

      • 0

    3. ;ⓒ Kor_Storm 2013
      (defun c:test( / circle r ss block ip ob adoc)
       (vl-load-com)
       (and
        (setq circle (car (entsel “n원 선택:”)))
        (setq
         r (cdr (assoc 40 (entget circle)))
         ss (ssget “x” (list (cons 0 “CIRCLE”) (cons 40 r)))
         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)
      )

      • 0