Sara Gomes: Lição 12

1 Dezembro 2014

Revisões do pormenor em autocad relativamente a escalas, construcção do layout e linhas auxiliares.

LIST - seleccionar ponto da esquadria da janela no layout para verificar factor de escala (ex: 0,2 que corresponde à escala 1/50)
BORDER LINE - Em alternativa à linha quebrada no desenho do pormenor.
SKETCH - Desenho livre.

Revisões de linguagem de programação Lisp para elaboração da macro.

GETPOINT - Lista de valores para os eixos coordenados.
SETVAR - Identificar valor para uma determinada variável.
GETVAR - Chamar valor atribuído à variável.
COMMAND - Chamar qualquer comando de autocad.
POLAR - Coordenadas polares.

; - introdução de um comentário que não fica activo na função apenas para adicionar informações da identificação pessoal de cada aluno, objectivo da macro e explicações sobre a mesma para o utilizador.

Novas aprendizagens para a macro.

Exercício:

Introduzir commando no autocad

(setq turma (list "Sara" "Marta" " João" "Ines" ))

1. (car turma) - chamar primeira variável da lista - "Sara".

2. (cdr turma) - chamar todas as variáveis da lista - "Marta" " João" "Ines".

3. (car (cdr turma)) ou (cadr turma) - chamar segunda variável da lista - "Marta".

4. (caddr turma) - chamar terceira variável da lista - "João".

5. (cadddr turma) - chamar quarta variável da lista - "Ines".

Os nome funcionam como as coordenada x,y,z, para chamar a coordenada x de um ponto uso car, para o y cadr e para o z caddr (adiciono letra "d" conformo pretendo avançar nas corrdenadas do sistemas sendo que na primeira não existe d, na segunda existe um d e na terceira dois d).

(setq p1 (getpoint)) - seleccionar ponto no ecrã - !p1 para chamar o ponto

(setq x (car p1)) - valor de x de p1

(setq y (cadr p1) - valor de y de p1

(setq z (caddr p1) - valor de z de p1

Elaboração de uma macro para desenhar um quadrados com qualquer dimensão de lado (nº real).

;macro que desenha quadrados com qualquer dimensão de lado

;definir nome da função

(defun c:qdd ()

;inserir dimensão do lado que pode ser qualquer número real

(setq lado (getreal "qual a dimensão do lado?" ) )

;ponto de inserção do polígono - origem do sistema de coordenada (p1)

( setq p1 (getpoint "qual o ponto de intersecção?") )

;definir p2 através das suas coordenadas x = x de p1 + dimensão do lado, y = y de p1

(setq p2 (list (+ (car p1) lado ) (cadr p1) ) )

;definir p3 através das suas coordenadas x = x de p1 + dimensão do lado, y = y de p1 + dimensão do lado

(setq p3 (list ( + (car p1) lado ) (cadr p1) lado) ) )

;definir ponto 4 através das suas coordenadas x =x de p1, y = y de p1 + dimensão do lado,

(setq p4 (list (car p1) (+ (cadr p1) lado )) )

:definir segmentos que unam os quatro pontos

(command "line" p1 p2 p3 p4 "c")

)

Desenhvolvimento da macro individual - desenho da textura do betão no interior de uma área rectangular definida pelo utilizador através de um ponto de inserção da textura e um ponto em que a mesma termina, sendo possível alterar a escala.