홈/ 질문/Q 106556
다음
진행 중
Lv.0
등록일: 2016-05-05T14:26:09+09:00 카테고리:

외형선 추출 다중 선택

(defun c:nc( / doc mspace ent vobj matrix copyobj ss1 en1)
  (vl-load-com)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
        mspace (vla-get-ModelSpace doc)
  )
  (setq ss1 (ssadd))
  (while (/= (setq ent (nentselp “nSelect object within a block: “)) nil)
    (setq vobj (vlax-ename->vla-object (car ent)))
    (setq matrix (caddr ent))  
    (setq copyobj (car (vlax-invoke doc ‘copyobjects (list vobj) mspace)))
    (vla-transformby copyobj (vlax-tmatrix matrix))
    (vla-update copyobj)
    (setq en1 (entlast))
    (redraw en1 3)
    (ssadd en1 ss1)
  )
  (if ss1
    (if (> (sslength ss1) 0)
      (command “MOVE” ss1 “” pause)
    )
  )
  (princ)
)
외형선 추출 리습인데 이 리습은 단일 선택밖에 안되는데 다중선택으로 만들어 주시면 감사하겠습니다.
부탁드립니다.~~!
라인도 만들어주시고 혹시 폴리라인도 가능하시면 만들어 주세요 ^^*
공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.21

      뭔가 잘못 알고 계시네요 외형선 추출리습이 아니라  블럭내부객체 복사 리습입니다 

      • 0

    3. 수야님 반갑습니다.

      블럭내부객체 복사 리습인데 잘못 알았네요
      클릭을 다중으로 할수 있게끔 리습을 수정이 안될까요?
      • 0
    4. Lv.21

      현재 다중선택은 되고있습니다 혹시 다중이라는게 드래그 선택이라면 리습 특성상 불가능합니다  (상식적으로 생각해도 블럭내부객체를선택하는건데 드래그가 된다면 블럭 자체를 잡겠죠 ㅎㅎ)

      • 0

    5. 네. 감사합니다.

      • 0