A aula teve como base a criação de:
- Quadrado com ponto de origem, ou como opção um ponto determinado;
(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;
(setq pt1 (getpoint "Qual o centro do circulo "))
(command "circle" pt1 r)
)
- Poligono com ponto de origem, ou como opção um ponto determinado;
(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;
(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;
(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")
)
Sem comentários:
Enviar um comentário