Semana 12

Semana  12

23ª Aula (01/12/2015) 

•  faltei a aula

24ª Aula (03/12/2015)

• fazer um corte de um tubo AutoCAD

circle enter

0,0

0.5

cline enter

vertical

horizontal

offset enter

0.25

spline

novo offset com 0.125

• Criação de uma macro para fazer o tubo.

Notepad++ / textwrangle

(defun c:tubo () 

(setq p1 (getpoint "Qual o primeiro ponto?\n"))

(setq p2 (getpoint "Qual o segundo ponto?\n"))

(setq p4 (polar p1 (angle p1 p2) (* (distance p1 p2) 0.5)))

(setq p3 (polar p1 (- (angle p1 p2 ) (/ pi 4)) 

                   (* (* (distance p1 p2) 0.25)(sqrt  2))))

(setq p5 (polar p4 (+ (angle p1 p2 ) (/ pi 4)) 

                   (* (* (distance p1 p2) 0.25)(sqrt  2))))

(setq p6 (polar p4 (- (angle p1 p2 ) (/ pi 4)) 

                   (* (* (distance p1 p2) 0.25)(sqrt  2))))

(command "pline" p1 p3 p4 p5 p2 p6 p4 "")

(command "pedit" "last" "fit" "")

)