홈/ 질문/Q 112593
다음
진행 중
욱디내꺼디
Lv.0
등록일: 2020-10-13T18:02:56+09:00 카테고리:

폴리라인의 내부에 있는 객체들 일괄선택하는 방법

폴리라인이 사각형의 형태로 있고 그 안에 객체들이 

있습니다. 이걸 일일이 드래그 하는 방법 말고 한번에
폴리라인을 선택하면 모두 잡힌다던가 이러한
방법으로 모두 잡아내는 방법이 있을까하여 질문 남깁니다,
답변 부탁드리겠습니다.
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0

      (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)
      )

      이렇게 한번 해보세요.

      • 0
    3. Lv.0

      잘됩니다. 감사합니다!!!

      • 0