Tenha uma nova experiência ao navegar no Fórum pelo computador de forma integrada ao portal principal. Acesse o seguinte link: https://www.autolisp.com.br/board/. Entretanto para dispositivos móveis recomendamos acessar este outro link: https://www.autolisp.com.br/forum/

Facilitar trabalho com pontos no autocad!!!!

Dúvidas sobre o AutoCAD...

Moderador: Moderadores

Responder
Avatar do usuário
Wilson_ecv
Bronze 1/3
Bronze 1/3
Mensagens: 116
Registrado em: Seg 18 Out 2004 12:00:00 am
Localização: Florianópolis-SC

Facilitar trabalho com pontos no autocad!!!!

Mensagem por Wilson_ecv » Ter 18 Jan 2005 1:31:29 pm

:)
Pessoal, gostaria de saber se alguém sabe como eu posso fazer para inserir uma lista de pontos (coordenadas x , y, e devida identicação dos pontos) de uma tabela do excel, ou outro programa qquer, no autocad.
Por exemplo, eu gero uma lista de pontos no excel ns quais constam, numero do pontos, coordenadas x e y. Passo esses dados para o autocad e todos os pontos são inseridos no autocad.
Isso facilita e muito para quem trabalha com coordenadas UTM, entre outras, em projetos topográficos.
Se por acaso alguém tiver algum aplicativo, lisp, etc, que possa ajudar eu pesso que envie para meu mail: [email protected]
Quaisquer outros aplicativos que auxiliem projetos topográficos (curvas de níves, cortes) se tiverem também podem enviar!!!!!!!

Um grande abraço e até mais!!!!! :lol:

Wilson Ricardo

Avatar do usuário
Rogerio
Master
Master
Mensagens: 2034
Registrado em: Ter 23 Mar 2004 12:00:00 am

Mensagem por Rogerio » Qua 19 Jan 2005 10:50:54 am

Adilson, procure no Google por:

points import autolisp

No momento não tenho nenhuma aqui pra te passar.

Boa sorte.
Abraço,

Rogério

Confia ao SENHOR as tuas obras, e teus pensamentos serão estabelecidos. Provérbios - 16 v. 3
Leia: http://www.espada.eti.br/n2093.asp

Avatar do usuário
Wilson_ecv
Bronze 1/3
Bronze 1/3
Mensagens: 116
Registrado em: Seg 18 Out 2004 12:00:00 am
Localização: Florianópolis-SC

Mensagem por Wilson_ecv » Qua 19 Jan 2005 12:30:10 pm

Vou dar uma olhada e depois comento ok!!!!!
VALEU!

Avatar do usuário
Rogerio
Master
Master
Mensagens: 2034
Registrado em: Ter 23 Mar 2004 12:00:00 am

Mensagem por Rogerio » Qua 19 Jan 2005 12:51:18 pm

Wilson, errei seu nome. Desculpe.

Avatar do usuário
Rogerio
Master
Master
Mensagens: 2034
Registrado em: Ter 23 Mar 2004 12:00:00 am

Mensagem por Rogerio » Qua 19 Jan 2005 3:50:47 pm

Cosegui montar uma. Só que tem um problema: ela não lê a primeira linha do arquivo de texto.

A primeira linha tem que ser em branco.

Se alguém puder descobrir por quê....

O arquivo .txt (salve com qualquer nome, a lisp abre um quadro para procurar)


644.82999088,-552.93198314,0
945.29395438,-393.7427647,0
268.34502611,-791.71581081,0
532.60851561,-672.32389898,0
1289.19849255,-509.51674357,0
898.23333818,-715.73913856,0
0.46149506,-683.17770988,0
-93.65974321,-419.06832345,0
76.48249632,-223.69973536,0
268.34502611,-35.5670252,0
691.89061294,54.88139492,0
1068.37557771,-173.04862185,0
586.90923247,-357.56339905,0
286.44526896,-411.83244952,0

A lisp:
Comando inicial: GPL

;;GET POINTS LIST - GPL
(defun C:GPL (/ F STR FSETQ COMMA CHAR I STR2 X STR1 COUNT Y Z )
(setq fn (getfiled " Selecione arquivo de pontos (.txt)" "" "txt" 8)
f (open fn "r")
str (read-line f)
plist nil
) ;_ end of setq
(while (/= str EOF)
(setq str (read-line f))
(if str
(progn
(setq pt (get-pt str))
(setq plist (append plist (list pt)))
) ;_ end of progn
) ;_ end of if
) ;_ end of while
(setq f (close f))
plist
) ;_ get-ptlist

(defun get-pt (str1)
(setq comma (chr 44)
str2 ""
count 1
i 0
) ;_ end of setq
(repeat 2
(repeat (strlen str1)
(setq char (substr str1 (setq i (1+ i)) 1))
(if (/= char comma)
(setq str2 (strcat str2 char))
(progn
(if (= count 1)
(progn
(setq x (atof str2))
(setq str1 (substr str1 (1+ i)))
(setq i 0)
(setq count 2)
(setq str2 "")
) ;_ end of progn
(progn
(setq y (atof str2))
(setq str1 (substr str1 (1+ i)))
(setq z (atof str1))
) ;_ end of progn
) ;_ end of if
) ;_ end of progn
) ;_ end of if
) ;_ end of repeat
) ;_ end of repeat
(setq pt (list x y z))
(command "undo" "group")
(foreach pt (command "Point" pt))
(command "undo" "end")
) ;_ end of get-pt
Abraço,

Rogério

Confia ao SENHOR as tuas obras, e teus pensamentos serão estabelecidos. Provérbios - 16 v. 3
Leia: http://www.espada.eti.br/n2093.asp

Avatar do usuário
Rogerio
Master
Master
Mensagens: 2034
Registrado em: Ter 23 Mar 2004 12:00:00 am

Mensagem por Rogerio » Qua 19 Jan 2005 7:13:09 pm

Bem, como eu disse, eu montei. Peguei um pedaço de uma lisp a acrescentei a função Foreach, que eu não sei usar direito ainda, mas perguntei e me ajudaram.

Agora, fiquei em dúvida numa coisa: por que a lisp nao lê a primeira linha do arquivo .txt?

Isso já aconteceu com outras lisps que eu já testei que lê arquivos de texto.

A propósito, quando for ler o arquivo .txt, cuide para que ele não esteja sendo editado, pois se estiver dá erro.
Abraço,

Rogério

Confia ao SENHOR as tuas obras, e teus pensamentos serão estabelecidos. Provérbios - 16 v. 3
Leia: http://www.espada.eti.br/n2093.asp

Avatar do usuário
Rogerio
Master
Master
Mensagens: 2034
Registrado em: Ter 23 Mar 2004 12:00:00 am

Mensagem por Rogerio » Qua 19 Jan 2005 11:04:51 pm

Um link ótimo sobre o assunto:

http://www.digitalcad.com/articles/view ... ?id=6023-1

Faça o download de xyxpoint.zip e de book1.zip.

O comando inicial é XYZtoPoint.

http://images.digitalmedianet.com/2001/ ... zpoint.zip

http://images.digitalmedianet.com/2001/ ... /Book1.zip
Abraço,

Rogério

Confia ao SENHOR as tuas obras, e teus pensamentos serão estabelecidos. Provérbios - 16 v. 3
Leia: http://www.espada.eti.br/n2093.asp

Avatar do usuário
hugopaulo
Master
Master
Mensagens: 1873
Registrado em: Dom 29 Fev 2004 12:00:00 am

Mensagem por hugopaulo » Qua 19 Jan 2005 11:43:28 pm

Rogerio escreveu:Bem, como eu disse, eu montei. Peguei um pedaço de uma lisp a acrescentei a função Foreach, que eu não sei usar direito ainda, mas perguntei e me ajudaram.

Agora, fiquei em dúvida numa coisa: por que a lisp nao lê a primeira linha do arquivo .txt?

Isso já aconteceu com outras lisps que eu já testei que lê arquivos de texto.

A propósito, quando for ler o arquivo .txt, cuide para que ele não esteja sendo editado, pois se estiver dá erro.
Rogerio

Observe que o AutoLisp usa Option Base 0 para listas. Assim o 1o. termo tem o índice 0.

Dê uma olhada naquele tópico do Robson - Condição IF - que destrambelhou em muitas coisas paralelas. Leia com atenção algumas das rotinas postadas que lêm sem problema o 1o. termo do arquivo.

Um abraço!
hugopaulo
AutoLISP Não É LISP ==> VISUAL LISP não é Linguagem

Avatar do usuário
Rogerio
Master
Master
Mensagens: 2034
Registrado em: Ter 23 Mar 2004 12:00:00 am

Mensagem por Rogerio » Qui 20 Jan 2005 9:17:08 am

Valeu Hugo. Vou dar uma olhada.
Abraço,

Rogério

Confia ao SENHOR as tuas obras, e teus pensamentos serão estabelecidos. Provérbios - 16 v. 3
Leia: http://www.espada.eti.br/n2093.asp

Avatar do usuário
ronaldo
Concreto
Concreto
Mensagens: 58
Registrado em: Dom 01 Fev 2004 11:00:00 pm

Mensagem por ronaldo » Qui 20 Jan 2005 9:53:36 am

eu acho que não precisa desta complicação toda!
Não lembro mais como é que funciona, mas o autocad lê diretamente arquivos externo no formato CDF (números separados or vírgula).
ronaldo

Responder