Rutina autolisp para escaleras en perfil

[Fgs]

Hola. Necesito una rutina para hacer escaleras en perfil para ahorrar tiempo en Autocad genérico, simple.
Agradezco ayuda si disponen de ella.
Gracias.

[Fgs]

Bueno, nunca hay que dar las cosas por perdidas.

RUTINA

Código: Seleccionar todo

(defun C:ESCA ()
  (setq pbx (getvar "pickbox"))
  (setq osnp (getvar "osmode"))
  (command "_setvar" "PICKBOX" 0)
  (command "_setvar" "OSMODE" 0)
  (setq P1 (getpoint "\nPunto de arranque:"))
  (setq DSY (getdist "\nAltura a salvar:"))  
  (setq DSX (getdist "\nLongitud a salvar:"))
  (setq CAN (getint "\nN§ de escalones:"))
  (setq SEN (getint "\nIzq[2] Dcha[1]:"))
  (setq DS1 (- (/ DSY CAN) 0.03))
  (setq DS2 0.05)
  (setq DS3 0.03)
  (setq DS4 (+ (/ DSX CAN) 0.05))
  (while (> CAN 0)
      (setq P2 (polar P1 (/ PI 2) DS1))
      (command "_LINE" P1 P2 "")
      (setq P1 P2)
      (if (= SEN 1)
         (setq P2 (polar P1 PI DS2))
      )
      (if (= SEN 2)
         (setq P2 (polar P1 0 DS2))
      )
      (command "_LINE" P1 P2 "")
      (setq P1 P2)
      (setq P2 (polar P1 (/ PI 2) DS3))
      (command "_LINE" P1 P2 "")
      (setq P1 P2)
      (if (= SEN 1)
         (setq P2 (polar P1 0 DS4))
      )
      (if (= SEN 2)
         (setq P2 (polar P1 PI DS4))
      )
      (command "_LINE" P1 P2 "")
      (setq P1 P2)
      (setq CAN (- CAN 1))
  )
       (command "_setvar" "PICKBOX" PBX)
       (command "_setvar" "OSMODE" OSNP)
  (princ))

[ArmandoRolon]

Puedes crear una rutina simple en AutoLISP para escaleras en perfil utilizando comandos básicos como LINE, POLYLINE y ARRAY para definir los peldaños y el trazado de la escalera. Una rutina básica podría generar una serie de líneas o polígonos con ángulos y distancias predeterminadas. Si te interesa, puedo ayudarte a crear una rutina específica.