Avançar para o conteúdo principal

Lisp - Autocad

Eis um LISP simples, no qual se podem observar alguns conceitos básicos de programação, neste caso específica para Autocad.
Guardar o código como Exemplo.lsp (ficheiro de texto simples, com extensão lsp). Depois arrastar para cima de uma janela com um desenho de Autocad. Na linha de comandos escrever "Exemplo". A saída deverá ser um texto com as coordenadas do ponto escolhido.


Here is a simple LISP, in which you can observe some basic programming concepts, in this case specific to Autocad.
Save the code as Exemplo.lsp (plain text file, with lsp extension). Then drag it up to a window with an Autocad drawing. At the command prompt type "Exemplo." The output should be a text with the coordinates of the chosen point.


;Programa de exemplo

(defun c:Exemplo ()
  (princ "_____ Clique um ponto _____")
  (setq ponto1 (getpoint "\n Clique no desenho ?: "))
  (setq pt1x (car ponto1))
  (setq pt1y (cadr ponto1))
  (setq pt1z (caddr ponto1))
  (princ " Coordenadas xx -> ")
  (princ (rtos pt1x 2 2))
  (princ)
  (princ " yy -> ")
  (princ (rtos pt1y 2 2))
  (princ)
)

Etiquetas:

Comentários

Enviar um comentário

Obrigado pelo seu contacto.

Mensagens populares deste blogue

C# - Viadutos Excel - ISPOL

C# - Viadutos Excel - ISPOL Ler dados do Excel e passar a informação para o ISPOL é um ganho de produtividade e organização. Desta vez, apresento uma utilidade que lê um ficheiro Excel, e transforma os dados para o menu de estruturas do ISPOL. Partindo de um Excel organizado, por pks eixos e espessuras da estrutura etc... como o seguinte: Elaborei um programita em CSharp: Este programa funciona em modo "DOS" não tem uma interface gráfica de janelas: O programa cria os ficheiros necessários, o Excel pode estar organizado por eixos, e o programa guarda um ficheiro para cada eixo: O resultado depois de abrir o ficheiro em ISPOL é o seguinte: Com as alterações ao projecto pode-se manter um ficheiro de apresentação e controlo em Excel.
Enviar um comentário
Ler mais

Politica de privacidade das aplicações colocadas na Play Store do Google

Politica de privacidade das aplicações colocadas na Play Store do Google. As aplicações não recolhem qualquer dado do utilizador nem a armazenam ou partilham com terceiros. Não recolhem a localização nem a armazenam ou partilham com terceiros. Alguma informação sobre os utilizadores que possa chegar ao programador por via da Play Store, será tratada de acordo com toda a confidencialidade, e não fornecida a terceiros. Obrigado.
Enviar um comentário
Ler mais

ISPOL - Areas de linhas fechadas CAD + ISTRAM

ISPOL - Areas de linhas fechadas CAD + ISTRAM Por vezes em CAD deparamos com alguns problemas em determinar as áreas de linhas que aparentemente estão fechadas ou contíguas, mas na verdade não estão. Mostro a introdução do ISTRAM num fluxo de trabalho de medição de áreas em CAD. Vista 3D do exemplo Como se mostra na primeira imagem, gerei uma rotunda de forma rápida em ISPOL. Em CAD, suponhamos que queremos medir as áreas em planta de pavimentos, passeios... Depois de uma limpeza e algum tratamento ao picar na área que aparentemente está fechada, que poderia representar a berma ou um passeio, temos um aviso comum no CAD, as linhas não têm continuidade. Neste caso em mais de uma situação, e na figura, apenas para a "área inferior". Linhas em CAD Podemos introduzir no fluxo de trabalho o ISTRAM, se a ele tivermos acesso. Podemos fazer um copy paste directo (linhas) do CAD para o ISTRAM. As mesmas linhas em ISTRAM Um primeiro passo pode ser filtrar e tratar o desenho, unindo de
Enviar um comentário
Ler mais