Hola. Necesito una rutina para hacer escaleras en perfil para ahorrar tiempo en Autocad genérico, simple.
Agradezco ayuda si disponen de ella.
Gracias.
Hola. Necesito una rutina para hacer escaleras en perfil para ahorrar tiempo en Autocad genérico, simple.
Agradezco ayuda si disponen de ella.
Gracias.
La historia la escribes con tus actos.
Bueno, nunca hay que dar las cosas por perdidas.
(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)
)
La historia la escribes con tus actos.