Entrega do pormenor construtivo e macro

Pormenor
Pormenor JPG
Pormenor em AutoCAD
PDF

Macro

Macros

Corte de um tubo

(defun c:ctubo ()

(setq p1 (getpoint "\n qual e o primeiro ponto do corte?"))

(setq p2 (getpoint "\n qual e o segundo ponto do corte?"))

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

(setq p4a (polar p1 (angle p1 p2) (* (distance p1 p2) 0.25)))

(setq p6a (polar p1 (angle p1 p2) (* (distance p1 p2) 0.75)))

(setq p4 (polar p4a (- (angle p1 p2)(/ pi 2)) (* (distance p1 p2) 0.125)))

(setq p6 (polar p6a (- (angle p1 p2)(/ pi 2)) (* (distance p1 p2) 0.125)))

(setq p5 (polar p6a (+ (angle p1 p2)(/ pi 2)) (* (distance p1 p2) 0.125)))

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

Perfil

(defun perfil (altura largura)

(setq p1 (getpoint "\n qual e o primeiro ponto do perfil?"))

(command "ucs" "n" p1)

(command "rectangle" p1 (list altura largura))

(command "ucs" "")

)

13ª Semana

Continuação da criação de macros para auxiliar a construção dos pormenores.

12ª Semana

Criação de macros para auxiliar a construção dos pormenores.

Pormenor construtivo e macro

Realizarei o seguinte pormenor construtivo

E a macro correspondente ás porcas representadas no mesmo pormenor.