Revimos mais alguns conceitos sobre o Autolisp e o Autocad logo no início da aula.
Falámos também sobre a próxima fase do trabalho que vai consistir em criar os interiores do trabalho entregue previamente.
De seguida, falámos sobre um novo comando LOFT que faz extrudes com caminhos, e demos o exemplo de 2 circunferências nos topos e um quadrado entre elas, e a forma ligava as figuras.
Até ao final da aula, melhorámos o trabalho entregue anteriormente e desenvolvê-lo de maneira a ter os interiores e os vãos que vai também ser acabado em casa.
terça-feira, 18 de abril de 2017
sexta-feira, 7 de abril de 2017
Trabalho Nº1 - Tridimensionalização do quadro de K. Malevitch
Entrego então, o GIF do processo:
E as 3 imagens finais:
terça-feira, 4 de abril de 2017
Aula 7 - 04.04.2017
Foi-nos dada uma explicação sobre o auto lisp, as noções básicas e a maneira de o criarmos. Devemos fazer sempre um esquema prévio para sabermos o que queremos fazer. O auto lisp funciona por variáveis, constituídas por letras ou letras com números.
Foi-nos dito também que o autocad faz operações aritméticas, escrevendo por exemplo:
SOMA - (+ 4 7)
SUBTRAÇÃO - (- 8 3)
MULTIPLICAÇÃO - (* 3 9)
DIVISÃO - (/ 24 3)
RESTO - (rem 21 4)
POTÊNCIA - (expt 14 3)
O programa inicia-se sempre com a definição da função:
(defun c:retan (/ p1 p2 p3 p4) - esta frase define a função que se quer usar no autocad
(setq p1 (getpoint "\nfirst corner of rectangle: ")) - p1 é o primeiro ponto do retângulo
(setq p3 (getpoint "\nsecondcornerofrectangle: ")) - p3 é o segundo ponto do retângulo
(setq p2 (list (car p1)(cadr p3))) - p2 é dado pelas coordenadas de p1 e p3 (x1;y3)
(setq p4 (list (car p3)(cadr p1))) - p4 é dado pelas coordenadas de p3 e p1 (x3;y1)
(command "line" p1 p2 p3 p4 "c")
(princ)
)
Colocámos o que escrevi a laranja no notepad ++ e guardamos como um ficheiro .lisp arrastando o ficheiro para o autocad. Escrevemos o comando retan no autocad e ele cria o comando:
De seguida, fomos reduzir o número de passos necessários para fazer um zoom extents
E colocando no autocad, basta escrever ZE e carregar enter.
Para quebrarmos uma linha pelo ponto médio, criamos um novo comando chamado QB:
Foi-nos dito também que o autocad faz operações aritméticas, escrevendo por exemplo:
SOMA - (+ 4 7)
SUBTRAÇÃO - (- 8 3)
MULTIPLICAÇÃO - (* 3 9)
DIVISÃO - (/ 24 3)
RESTO - (rem 21 4)
POTÊNCIA - (expt 14 3)
O programa inicia-se sempre com a definição da função:
(defun c:retan (/ p1 p2 p3 p4) - esta frase define a função que se quer usar no autocad
(setq p1 (getpoint "\nfirst corner of rectangle: ")) - p1 é o primeiro ponto do retângulo
(setq p3 (getpoint "\nsecondcornerofrectangle: ")) - p3 é o segundo ponto do retângulo
(setq p2 (list (car p1)(cadr p3))) - p2 é dado pelas coordenadas de p1 e p3 (x1;y3)
(setq p4 (list (car p3)(cadr p1))) - p4 é dado pelas coordenadas de p3 e p1 (x3;y1)
(command "line" p1 p2 p3 p4 "c")
(princ)
)
Colocámos o que escrevi a laranja no notepad ++ e guardamos como um ficheiro .lisp arrastando o ficheiro para o autocad. Escrevemos o comando retan no autocad e ele cria o comando:
De seguida, fomos reduzir o número de passos necessários para fazer um zoom extents
E colocando no autocad, basta escrever ZE e carregar enter.
Para quebrarmos uma linha pelo ponto médio, criamos um novo comando chamado QB:
Fomos ver quais os valores para cada tipo de Osmode (tal como o 2 corresponde ao midpoint, o center é 4, etc)
Subscrever:
Comentários (Atom)