Elipse Tangente A Un Paralelogramo

Este programa en autolisp, aplicable al programa AutoCad, construye una elipse tangente a un paralelogramo.

El programa pide tres puntos de un paralelogramo (el cuarto localcula); y dibuja la elipse correspondiente.




(defun c:elipar ()

(setvar "cmdecho" 0)

(command "_undo" "_begin")(pedirpuntos)

(setq osmo (getvar "osmode")) (setvar "osmode" 0)

(calcularpuntos)

(construccion)

(dibujo)(command "_undo" "_end")

(setvar "osmode" osmo) (setvar "cmdecho" 1) (prin1)

)

(prompt "\nEscriba ELIPAR para empezar larutina") (prin1)

;---------------------------------------------------------------------

(defun pedirpuntos ()

(setq pta (getpoint "\nElija elprimer punto del Paralelogramo: "))

(setq ptb (getpoint "\nElija el segundo punto del Paralelogramo: "))

(setq ptc (getpoint "\nElija el tercer punto delParalelogramo: "))

)

;---------------------------------------------------------------------

(defun calcularpuntos ()(setq dist-ab (distance pta ptb))

(setq dist-bc (distance ptb ptc))

(setq ang-a (angle pta ptb))

(setq ang-b (angle ptb ptc))(setq ptd (polar pta ang-b dist-bc))

(setq pt1 (polar pta ang-a (/ dist-ab 2.0)))

(setq pt2 (polar pt1 ang-b dist-bc))

(setqpt3 (polar pta ang-b (/ dist-bc 2.0)))

(setq pt4 (polar ptb ang-b (/ dist-bc 2.0)))

(setq pt0 (polar pt1 ang-b (/ dist-bc 2.0)))

)...