Rutina lisp para sacar una pendiente y colocar un texto?

[69]

Pues primero un saludo y me presento al foro, intentare ayudar en la medida de mis posibilidades y conocimientos, salú

pues he buscado por el foro y no he encontrado nada, mis conocimientos en lisp son muy limitados pero creo q no seria complicado hacer esa rutina por lo cual seguro q existe, si alguno la conoce agradeceria me comentara donde conseguirla, un saludo de nuevo y gracias de antemano

ah bueno la rutina seria esa, colocar un texto encima de una linea una vez sacada su pendiente, es una tonteria pero molaria jeje

[josemacad]

Utilizo esta rutina para rotular pendientes
Un Saludo

Código: Seleccionar todo

;;; JUAN CARLOS SANDI HERRERA 
;;; San Jose, Costa Rica, Octubre 2006 
;;;-------------------------- 
;;; Rota el sistema de coordenadas segun se especifica (+) o (-) la pendiente 
;;;despues de rotar el sistema se dibuja lo que se necesite en esa pendiente. 
(DEFUN C:PENDIENTE
   (/ OSOLD PT1 PT2 PT3 PT4 V0 VP VPP VX VY) 
   (GRAPHSCR) 
   (SETQ 
      VP(GETREAL"\n (+) (-)PENDIENTE :") 
      VPP(RTOS VP 2 3) 
      VY(ABS VP) 
      V0 0 
      VX 100 
      PT1(LIST V0 V0) 
      PT2(LIST VX V0) 
      PT3(LIST V0 VY) 
      PT4(LIST VX VY) 
      OSOLD(GETVAR"OSMODE") 
   ) 
   (SETVAR"OSMODE"0) 
   (IF(<VPP> VPP"0")(COMMAND"_.UCS""3"PT1 PT4 PT3)) 
   (prompt"\nDibuja linea: ") 
   (command"_.line""\\""\\" "") 
   (SETVAR"OSMODE"OSOLD) 
   (command"_.ucs""_p") 
  (prin1) 
)

[69]

muchas gracias lo probare

un saludo

[ARKitool]

Hola,

Aquí tienes otra solución, el programa ARKITool es gratuito y tiene una función llamada ARQ-RAMPA que te puede ser útil, aquí te dejo el vídeo:



Un saludo.