Alguien me puede pasar una rutina aotolisp que dibuje bisectrices entre lineas y que funcione en Autocad 2009
Gracias.
Autolisp Bisectriz
Moderador: Moderadores
Plannerly ™ La plataforma de gestión BIM ™ SmartLeanBIM® © 2021
Plantillas para crear el Plan de Ejecución BIM (BEP). Cumplimiento de la norma ISO-19650
Plan gratuito en el que puedes acceder a todas las plantillas y si al comprarlo introduces el código DELINEACION obtendrás un 10% de descuentoAlgo 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) "")
)
(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) "")
)
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 52 invitados