Alguém tem alguma lisp que converta arco em seguimento de reta?
Obrigado
Gesiel
Solucionado! Ir para Solução.
Solucionado por hmsilva. Ir para Solução.
Gesiel
Estou considerando que o arco é de fato um arco, ou seja, existe um ponto equidistante de todos os pontos da "curva".
Um círculo que tenha sido editado com um "trim" e tenha menos do que 360 graus vai ser considerado como um arco...
Em anexo aplicativo para seu uso.
Faça a instalação com o comando "appload".
Com o arquivo aberto rode a macro "Segmentar_arco";
Selecione o arco a trabalhar, não sendo problema outras entidades/objetos terem sido selecionados;
Não podemos selecionar dois arcos ao mesmo tempo;
Defina o número de segmentos que quer;
Tecle "enter";
Bom uso!
Ticiano
============================================================================
Gesiel,
este é um código muito simples, e escrito à pressa, mas faz o que pretendes, muda o nome da função "teste" para aquele que for melhor para ti e slava-o como um ficheiro .lsp
(defun c:test (/ EDATA HND SS) (prompt "\nSeleciona um ARCO para transformar em LINHA: ") (if (setq ss (ssget ":S:L" '((0 . "ARC")))) (progn (setq hnd (ssname ss 0)) (setq edata (entget hnd)) (entmake (list '(0 . "LINE") (cons 8 (cdr (assoc 8 edata))) (cons 10 (vlax-curve-getstartpoint hnd)) (cons 11 (vlax-curve-getendpoint hnd)) ) ) (entdel hnd) );; progn );; if (princ) );; defun
Espero que ajude
Henrique
Olá
Lisp é prático... mas para converter arco em linhas do modo não pratico
Segue os passos
Converta o arco em Polyline com o comando Pedit
PEDIT
Select polyline or [Multiple]: selecione o arco
Object selected is not a polyline
Do you want to turn it into one? <Y> Yes
Enter an option [Close/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype gen/Reverse/Undo]: Enter
O arco será convertido em Polyline
Aplique o comando Flatten
Aba Express Tools / Modify / Flatten objects
Command: Flatten
Select objects to convert to 2d...
Select objects: 1 found
Remove hidden lines? <Yes>:
Nested items = Off Orphaned data = Off
O objeto será convertido em uma polyline em segmentos de linhas.
Para converter em Linhas, aplique o comando Explode
Um abraço e fique bem!
Rosa Katori
rosa-cad.comOlá Rosa!
Quando aplico o Flatten e especifico "Yes" para remover as linhas ocultas o desenho é apagado da tela. Quando especifico "No" os segmentos de linha não aparecem, o objeto continua como estava antes da aplicação do comando Flatten. Já fechei o AutoCAD e abri novamente, desliguei e liguei o notebook, porém, nada resolve. Alguma ideia de como me ajudar?
Obrigada.
olá Fernanda.
Talvez a visualização dos objetos na Viewport estão em modo 3D.
Veja o exemplo
A figura do lado esquerdo mostra uma viewport com os objetos visualizados em modo 3D. A figura do lado direito mostra o resultado do comando Flatten .
1. Antes de aplicar o comando Flatten visualize o arco em "Plan View" ou de "frente para você".
Digite Plan e selecione a opção Current ucs.
Um abraço
Rosa Katori
rosa-cad.comNão encontrou o que está procurando? Pergunte à comunidade ou compartilhe seu conhecimento.