Selecionar o que está dentro

[jomar_filho]

Bom dia a todos.

Pessoal, imaginem que eu tenho um mapa e quero copiar apenas uma parte que está no dentro de um limite criado por mim. ex: crio uma polyline fechada para delimitar o que realmente preciso e quero copiar apenas o que está dentro dessa figura. Qual a ferramenta que devo utilizar?

Desde já, agradeço-lhes pela ajuda.

[LuKlein]

Oi Jomar,

Fiz uma pesquisa pelo google e acho que encontrei o que você quer:
http://www.google.com.br/search?source=ig&hl=pt-BR&rlz=&q=sele ct+objects+in+autocad&btnG=Pesquisa+Google#hl=pt-BR&sclient=psy-ab&q=select+what+is+inside+pline+in+autocad&oq=select+what+is+inside+pline+in+autocad&aq=f&aqi=&aql=&gs_l=serp.3...49520.55228.0.55347.31.29.0.2.2. 1.240.5614.0j17j11.28.0...0.0.LTgpy2izUNI&pbx=1&bav=on.2,or.r_gc.r_pw.r_qf.,cf.osb&fp=ebda6df61f1f1dba&biw=1920&bih=979

Um dos resultados que encontrei:
http://www.cadtutor.net/forum/showthread.php?44382-select-inside-of-a-polyline
Veja que é necessário que o Express Tools esteja instalado.

A rotina é esta abaixo, copie e cole no bloco de notas e salve como ics.lsp:

(defun C:ICS (/ en ss lst ssall tmp head)
;;InSide Contour Select
;;!!!! REQUIRED EXPRESS TOOLS
(vl-load-com)
(if (and (setq en (car (entsel "\nSelect contour: ")))
(wcmatch (cdr (assoc 0 (entget en))) "*POLYLINE")
) ;_ end of and
(progn
(setq lst (ACET-GEOM-OBJECT-POINT-LIST en 1e-3))
(setq lst (mapcar '(lambda (x) (list (car x) (cadr x))) lst))
(while lst
(setq head (car lst)
tmp (cons head tmp)
lst (vl-remove-if
'(lambda (pt) (equal pt head 1e-6))
(cdr lst)
) ;_ end of vl-remove-if
) ;_ end of setq
) ;_ end of while
(setq lst (reverse tmp)) ;_ end of setq
(ACET-SS-ZOOM-EXTENTS (ACET-LIST-TO-SS (list en)))
(command "_.Zoom" "0.95x")
(if (setq ss (ssget "_CP" lst))
(sssetfirst ss ss)
) ;_ end of if
) ;_ end of progn
) ;_ end of if
) ;_ end of defun
(princ "\nType ICS")

Testei no AutoCAD 2012.

[LuKlein]

Oi Jomar,

Fiz uma pesquisa pelo google e acho que encontrei o que você quer:
http://www.google.com.br/search?source=ig&hl=pt-BR&rlz=&q=sele ct+objects+in+autocad&btnG=Pesquisa+Google#hl=pt-BR&sclient=psy-ab&q=select+what+is+inside+pline+in+autocad&oq=select+what+is+inside+pline+in+autocad&aq=f&aqi=&aql=&gs_l=serp.3...49520.55228.0.55347.31.29.0.2.2. 1.240.5614.0j17j11.28.0...0.0.LTgpy2izUNI&pbx=1&bav=on.2,or.r_gc.r_pw.r_qf.,cf.osb&fp=ebda6df61f1f1dba&biw=1920&bih=979

Um dos resultados que encontrei:
http://www.cadtutor.net/forum/showthread.php?44382-select-inside-of-a-polyline
Veja que é necessário que o Express Tools esteja instalado.

A rotina é esta abaixo, copie e cole no bloco de notas e salve como ics.lsp:

(defun C:ICS (/ en ss lst ssall tmp head)
;;InSide Contour Select
;;!!!! REQUIRED EXPRESS TOOLS
(vl-load-com)
(if (and (setq en (car (entsel "\nSelect contour: ")))
(wcmatch (cdr (assoc 0 (entget en))) "*POLYLINE")
) ;_ end of and
(progn
(setq lst (ACET-GEOM-OBJECT-POINT-LIST en 1e-3))
(setq lst (mapcar '(lambda (x) (list (car x) (cadr x))) lst))
(while lst
(setq head (car lst)
tmp (cons head tmp)
lst (vl-remove-if
'(lambda (pt) (equal pt head 1e-6))
(cdr lst)
) ;_ end of vl-remove-if
) ;_ end of setq
) ;_ end of while
(setq lst (reverse tmp)) ;_ end of setq
(ACET-SS-ZOOM-EXTENTS (ACET-LIST-TO-SS (list en)))
(command "_.Zoom" "0.95x")
(if (setq ss (ssget "_CP" lst))
(sssetfirst ss ss)
) ;_ end of if
) ;_ end of progn
) ;_ end of if
) ;_ end of defun
(princ "\nType ICS")

Testei no AutoCAD 2012.

[jomar_filho]

Oi, Lu! Tudo bem?

Então quer dizer que não há uma ferramenta nativa no AutoCAD para isso?

Abraços.

[LuKlein]

Oi Jomar,

O que tem mais próximo a isso é o FASTSEL, das Express, que seleciona tudo que um objeto "tocar", mas não o que está "dentro" ou "fora" no caso de uma pline fechada.

[LuKlein]

Oi Jomar,

O que tem mais próximo a isso é o FASTSEL, das Express, que seleciona tudo que um objeto "tocar", mas não o que está "dentro" ou "fora" no caso de uma pline fechada.

[jomar_filho]

Não estou conseguindo descobrir como acionarei essa ferramenta. Você pode ajudar-me?

Obrigado mais uma vez, Lu.

[LuKlein]

Você precisa carregar o lisp, através do comando APPLOAD, então após carregar digita ICS, pressiona ENTER e seleciona a PLINE.
Lembra que as Express Tools precisam estar instaladas no seu AutoCAD.

[LuKlein]

Você precisa carregar o lisp, através do comando APPLOAD, então após carregar digita ICS, pressiona ENTER e seleciona a PLINE.
Lembra que as Express Tools precisam estar instaladas no seu AutoCAD.

[jomar_filho]

Perfeito. Funcionou. Obrigado mais uma vez, Lu. Abraços e que Deus a abençoe.