Así debe quedar
Code:
(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.