Criação de triângulos:
line
0,0
1,0
@1<120
c
(strcat "turma" "E")
(strcat "@" "d" "<120º)
(setq di 1.2)
(rtos di 2 3)
(strcat "@" (rtos di 2 3) "120")
Criação de triângulos equilátero, escolhendo a dimensão de lado e o ponto de inserção:
(defun tri ()
(setq pt1 (getpoint "\nqual o ponto de inserção? "))
(setq di (getreal "\nqual a dimensão do lado do triângulo ")) -----valor do real
(setq pt2 (list (+ (car pt1) di) (cadr pt1)))
(command "line" pt1 pt2 (strcat "@" (rtos di 2 3) "<120) "c")
Mais informações em Not Pad:
(nota - as informações precedentes a "----" são explicações/apontamentos auxiliares.
Definição da linguagem de programação LISP/auto LISP:
Lisp -É uma linguagem de programação funcional desenvolvida para programas
na área da inteligência artificial. É uma linguagem baseada no
conceito de função e baseia-se no processamento de listas.
Daí a LISP ser a abreviatura de "list processing".
Auto LISP - é um dialecto do LISP desenvolvido especificamente para o
AutoCAD. É uma linguagem mais acessível para programar e tem um grau de
abstracção superior ("scripting language").
Características gerais do Auto LISP
Os programas são compostos por uma lista de texto simples, com instruções
sequenciais, guardados normalmente em ficheiros com extensão ".lsp" (ex: "( nome do ficheiro).lsp" ).
Para escrever um programa e elaborar um ficheiro de Auto LISP é necessário um
editor de texto, como por exemplo, o NotPad ou NotPaD ++. Este ultimo possui características que facilita a programação.
Esta linguagem possui vários tipos de elementos, tais como:
Símbolos - exemplo - A, 1 , c
Variáveis - Listas - exemplo: (4,0 3,1 2,2)
ƒ Strings - exemplo: “qual o ponto de inserção?” etc...
ƒ
Funções (comandos) - exemplo: setq , getpoint, command ...
Expressões - São todos os elementos de um programa que permitem efectuar
uma acção.