Rutina para una mediatriz- mi primera rutina

[Fgs]

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

[Joserra]

Gracias FGS, Aqui va un positivo por el trabajo realizado. , que probare o como mí­nimo formara parte de mis herramientas.

Un saludo

[Fgs]

Gracias Joserra. Me gustarí­a que la probéis. Si no funciona bien o da fallos, me dices y buscaré como corregirla, cuando lo domine un poco.

Estoy en ello. Estoy intentando generar las rutinas que tiene el mechanical en el comando Linea auxiliar.