Olá pessoal, essa aula seria sobre tratamento de erros, porém percebi que não seria legal dar essa aula sem antes ensinar como enviar mensagens para o usuário em Autolisp, essa aula é muito simples porem de extrema necessidade.
Função PROMPT
Essa função envia uma mensagem em formato texto (string) na linha de comando.
Sintaxe:
(Prompt <mensagem para o usuário>)
Exemplo:
(Defun c: pp()
(setq pt1 (getpoint “\nClique sobre o primeiro ponto: “))
(setq pt2 (getpoint “\nClique sobre o segundo ponto: “))
(command “line” pt1 pt2 “”)
(Prompt “\nA linha foi desenhada com sucesso!”)
)
Função PRINC, PRIN1 e PRINT
Essas funções costumam ser ensinadas em cursos de Autolisp junto com as funções de mensagens porém isso será feito de forma diferente nesse curso, voltaremos a falar delas novamente na aula de tratamento de arquivos de dados.
Agora basta saber que sempre que desejarmos encerrar um comando e não queremos ter aquele nil chato que aparece no fim basta usar o (princ) no final de nossos comandos.
Exemplo:
(Defun c: pp()
(setq pt1 (getpoint “\nClique sobre o primeiro ponto: “))
(setq pt2 (getpoint “\nClique sobre o segundo ponto: “))
(Command “line” pt1 pt2 “”)
(Princ)
)
Função ALERT
Exibe uma mensagem na tela forçando o usuário a ler pois para continuar a execução do programa o usuário será obrigado a pressionar o botão de OK.
Sintaxe:
(Alert <mensagem para o usuário>)
Exemplo:
(Defun c:ag()
(setvar “osmode” 4)
(Alert “Atenção clique no ponto central do arco.”)
(setq pt1 (getpoint “\nClique no centro do arco: “))
)
Atenção, devemos usar a função Alert quando for necessário enfatizar algo não devemos usa-la em demasia no programa.
Essa aula foi bem simples, porém necessária para continuarmos o nosso curso.
Abaixo segue o link dessa vídeo aula no meu canal Manual de Cad no Youtube.
https://www.youtube.com/watch?v=Oxn4MiRg_-U&feature=youtu.be
Espero que tenham gostado.
Sergio Fernandes
Nenhum comentário:
Postar um comentário