Página 1 de 1
Autolisp Bisectriz
Publicado: Lun Nov 24, 2008 7:11 pm
por oscoag
Alguien me puede pasar una rutina aotolisp que dibuje bisectrices entre lineas y que funcione en Autocad 2009
Gracias.
Publicado: Mar Nov 25, 2008 12:36 pm
por Afga
Algo que encontré por internet muy sencillito
(DEFUN c:bisec ()
(SETQ pt1 (GETPOINT "Introducir P1:")) (terpri)
(SETQ pt2 (GETPOINT "Introducir P2:")) (terpri)
(SETQ pt3 (GETPOINT "Introducir P3:")) (terpri)
(SETQ r1 (DISTANCE pt1 pt2))
(SETQ r2 (DISTANCE pt2 pt3))
(SETQ r (/ (+ r1 r2) 2))
(SETQ ang1 (ANGLE pt2 pt1))
(SETQ ang2 (ANGLE pt2 pt3))
(SETQ ang (/ (+ ang1 ang2) 2))
(SETQ x (+ (CAR pt2) (* r (COS ang))))
(SETQ y (+ (CADR pt2) (* r (SIN ang))))
(COMMAND "LINEA" pt2 (list x y) "")
)