2ª Aula - 1 de Outubro de 2012

Esta aula foi dedicada à criação de alguns comandos em linguagem "lisp" no programa "notepad ++" e à sua aplicação no programa "AutoCad".

Foram utilizados comandos como por exemplo:
"defun" - definir função
"car" - para seleccionar o primeiro elemento de uma lista
"cdr" - para seleccionar todos os elementos menos o primeiro de uma lista
"cadr" - para seleccionar o 2º elemento de uma lista
"caddr" - para seleccionar o 3º elemento de uma lista
"@1<120" - para definir um ângulo de 60º a partir do ângulo interno de um ângulo raso.


 Para começar foi realizado o comando para a criação de um quadrado com lado variável, definido por:

(defun qua (lado)
(setq pt1 (getpoint "qual é o ponto de inserção? "))
(setq pt2 (list (+ lado (car pt1)) (cadr pt1)))
(setq pt3 (list (car pt2) (+ lado (cadr pt2))))
(setq pt4 (list (car pt1) (cadr pt3)))
(command "line" pt1 pt2 pt3 pt4 "c")
)

Em seguida a realização de um circulo de raio variável com o comando:

;esta macro desenha circulos com qualquer raio
;dando ao utilizador a oportunidade
;de escolher o ponto de inserção
(defun cir (raio)
     (setq pt1 (getpoint "defina o centro do circulo "))
     (command "circle" pt1 raio)
     )
    

A criação de um triângulo equilátero de qualquer lado:

(defun tri (lado)
     (setq pt1 (getpoint "qual o ponto de inserção? "))
     (setq pt2 (list (+ (car pt1) lado) (cadr pt1)))
     (command "line" pt1 pt2 (strcat "@" (rtos lado) "<120") "c")
     )
    
e a realização de um pentágono através do comando "polygon", com 5 lados, ponto de inserção e ponto que define um dos lados do polígono.
Todos estes comandos foram depois gravados no computador.