Leaderboard
Popular Content
Showing content with the highest reputation on 01/06/2020 in Posts
-
Looks similar to the solution previously provided.1 point
-
why not just enable polarmode or orthomode? coding is superfluous? (defun c:tt ( / p1 x) (and (setq p1 (getpoint "\nPunto inicial: ")) (setq x (getdist p1 "\nLongitud de Apoyo: ")) (vl-cmdf "_DIMLINEAR" "_non" p1 "_non" (polar p1 0 x) (mapcar '+ p1 (list 0 (* x -0.5 )) ) ) ) (princ) )1 point