esta es mi primera rutina desde hace lustros ja ja ja. seria la version 1. estoy preparando la version 1.1 ja ja ja.
Esta rutina obtiene la mediatriz entre dos puntos.
seguiremos con el tema y aprendiendo. espero.
No se, he pensado que quizás la deje tal como está. de esta forma es mas amplia su aplicación. Una duda que me ha surgido hace unos días.
como puedo poner un enlace a un fichero en mi blogg, no tengo megaupload de pago, y no deseo copiar,pegar texto. he visto algo en el blog de ricardo, creo.
y me gustaría algo parecido.
Código: Seleccionar todo
;rutina para obtener la mediatriz entre dos puntos.
(defun C:mediatriz ()
(setq pt1 (getpoint "introduce primer punto de linea: "))
(terpri)
(setq pt2 (getpoint "introduce segundo punto de linea:"))
(terpri)
(SETQ refnt0 (GETVAR "osmode"))(SETVAR "osmode" 0)
(setq ang (angle pt1 pt2))
(setq distotal (distance pt1 pt2))
(setq dismed (/ distotal 2))
(setq ptomed (polar pt1 ang dismed))
(setq pt3 (polar ptomed (+ ang (/ pi 2)) 500))
(command "lineax" ptomed pt3 "")
(setvar "osmode" refnt0)
)