Aula - 29/09/12

A aula teve como base a criação de:

• Quadrado com ponto de origem, ou como opção um ponto determinado;

(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")
)

• Circulo com ponto de origem, ou como opção um ponto determinado;

(defun cir (r)
(setq pt1 (getpoint "Qual o centro do circulo "))
(command "circle" pt1 r)
)

• Poligono com ponto de origem, ou como opção um ponto determinado;

(defun pol (nl)
(setq pt1 (getpoint "Qual é o primeiro ponto do lado? "))
(setq pt2 (getpoint "Qual é o segundo ponto do lado? "))
(command "polygon" nl "e" pt1 pt2)
)

• Triangulo com ponto de origem, ou como opção um ponto determinado;

(defun tri (lado)
(setq pt1 (getpoint "\n Qual o ponto de inserção? "))
(setq pt2 (list (+ lado (car pt1)) (cadr pt1)))
(command "line" pt1 pt2 (strcat "@" (rtos lado)  "<120") "c")
)

• Criação de um rectangulo com ponto de origem, ou como opção um ponto determinado;

(defun recr2 (lado)
(setq pt1 (getpoint "Qual é o ponto de inserção do rectangulo? "))
(setq pt2 (list (+ (car pt1) (* lado (sqrt 2))) (cadr pt1)))
(setq pt3 (list (car pt2) (+ (cadr pt2) lado)))
(setq pt4 (list (car pt1) (cadr pt3)))
(command "pline" pt1 pt2 pt3 pt4 "c")
)

Aula - 22/09/2012

• Visionamento de um filme, Tinking Machines The Creation of the Computer

• Iniciação do Autocad com aprendizagem de alguns comandos:

1. Line  - Quadrado com origem no ponto 0,0 com 1cm de aresta
   line 0,0 1,0 1,1 0,1

    2.   Circle - Circulo com origem no ponto 0,0 com um r=1

circle 0,0 1

            3.  Autolisp -  função "a", para a criação de um circulo

                     (defun a (r) (command "circle" "0,0" r))

                     Command=(a 1,5)