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

)