캐드 분류
외형선 추출 다중 선택
컨텐츠 정보
- 211 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
(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 페이지