Escalera en Autolisp

(defun C:ESCA () (setq pbx (getvar "pickbox")) (setq osnp (getvar "osmode")) (command "_setvar" "PICKBOX" 0) (command "_

Views 78 Downloads 1 File size 17KB

Report DMCA / Copyright

DOWNLOAD FILE

Recommend stories

AutoLisp

The AutoLisp Tutorials AutoLisp Written and Compiled by Kenny Ramage [email protected] http://www.afralisp.com Co

95 3 1MB Read more

Programas en AutoLISP

72 66 524KB Read more

tutorial AutoLISP

73 0 964KB Read more

Autolisp Gera

25 0 783KB Read more

AUTOLISP PGRM

40 2 3MB Read more

Tema AutoLISP

70 4 477KB Read more

escalera

82 4 81KB Read more

Escalera

1. ESCALERAS La escalera de concreto es una losa dentada e inclinada, que nos permite subir o bajar de un nivel a otro.

57 1 118KB Read more

Escalera

ANALISIS DE CARGA ESCALERA Diagrama de la escalera III. Analisis de carga del entrepiso III.1. tramo inclinado III.1.1

101 0 59KB Read more

Escalera

27 0 3MB Read more

Author / Uploaded
DavyLlanosSanchez

Citation preview

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