Angled Tee

[javier-perez1956746375]

Hello This is Javier
I am trying to create a program that draws an angle tee. I want to use the function (DTR), but my program fails to run properly. Please help me understand what I am doing wrong in my program. I understand that the stem in not implemented yet but its only the first part of the program. Wen I run the program it draws a weird shape.
Thanks to anyone that can help me with my learning curve.

Javier

[Opie]

Your Angled-Tee2 routine needs to actually call the DTR routine. For each of your four polar function calls, update the angle with a call to DTR with the desired degree angle.

[BIG-AL]

As all the angles are at 90 degrees etc it simpler to work directly in radians.

90= (/ pi 2.0)
180 = pi
270 = (* pi 1.5)

or
in a autoload library

(setq a90 (/ pi 2.0))
(setq a270 (* pi 1.5))
(setq a45 (/ pi 4.0))

(setq pt2 (polar pt1 a90 dist))

[devitg.89838]

Así debe quedar

 (setq p1 (POLAR IP (DTR 0) OF));This will create a point p1 form the initial point in the direction of 0 a distance of OF;
  (setq p2 (polar p1 (DTR 90) T1));This will create a point p2 form p1 in the direction of 90 up a distance of T1;
  (setq p3 (polar p2 (dtr 180) CL));This will create a point p3 from p2 in the direction of 180 to the left of p2 a distance of CL;
  (setq p4 (polar p3 (DTR 270) T1));This will create a point p4 form p3 in the direction of 270  down a distance of T1;

Pero para el caso de la T en angulo distinto de 90 , te conviene hacer una tabla en XLS y luego guardarla comos CSV . Y con un LISP lo haces de un solo golpe.

[devitg.89838]

un ejemplo de los dos primeros perfiles , estan en mm .