Autolisp Bisectriz

[oscoag]

Alguien me puede pasar una rutina aotolisp que dibuje bisectrices entre lineas y que funcione en Autocad 2009
Gracias.

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

)