Autolisp Bisectriz

dudas y consultas sobre AutoCad

Moderador: Moderadores

Responder
oscoag
En prácticas
Mensajes: 8
Registrado: Lun Mar 10, 2008 12:29 pm

Autolisp Bisectriz

Mensaje por oscoag » Lun Nov 24, 2008 7:11 pm

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

Avatar de Usuario
Afga
Moderador
Moderador
Mensajes: 886
Registrado: Lun Sep 04, 2006 4:10 pm

Mensaje por Afga » Mar Nov 25, 2008 12:36 pm

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

)
 

Responder