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" "")

)