폴리라인의 내부에 있는 객체들 일괄선택하는 방법
컨텐츠 정보
- 250 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
폴리라인이 사각형의 형태로 있고 그 안에 객체들이
관련자료
o레드망고o님의 댓글
(defun GetPolyVtx(EntList) (setq VtxList '()) (foreach x EntList (if (= (car x) 10) (setq VtxList (append VtxList (list (cdr x)))) ) ) VtxList )
(defun c:test () (setq OldVarList (list "osmode" "cmdecho" "cmddia" "filedia")) (setq OldVarValue (mapcar 'getvar OldVarList)) (mapcar 'setvar OldVarList'(0 0 0 0)) (setq sel (ssget (list (cons 0 "Lwpolyline")))) (setq k 0) (repeat (sslength sel) (setq ss (ssname sel k)) (setq en (entget ss)) (setq pt_list (GetPolyVtx en)) (setq sel_add (ssadd)) (setq sel_pt (ssget "WP" pt_list)) (if sel_pt (progn (setq j 0) (repeat (sslength sel_pt) (ssadd (ssname sel_pt j) sel_add) (setq j (1+ j)) ) ) ) (setq k (1+ k)) ) (vl-cmdf "pselect" sel_add "") (mapcar 'setvar OldVarList OldVarValue) (princ) )
이렇게 한번 해보세요.