AVION MODELADO

MODELO AVION SEGUNDA GUERRA MUNDIAL

1. OBJETIVOS
Familiarizar al alumno con el modo de programación en autolisp, asi como la utilización de sus herramientas desde la interfase que ofrece Autocaden el Visual LISP editor.
Poner en practica los comandos aprendidos en clase e investigar comandos adicionales que proporcionen al alumno mayores herramientas para la programación en LISP.Programar el plano de un avión japonés de combate de la segunda guerra mundial.

2. PROGRAMA FUENTE
(DEFUN AVION ()
(SETQ PT5 (LIST 1000 12000))
(SETQ PT4 (LIST 1500 9500))
(SETQ PT3 (LIST 15006500))

%ENVERGADURA
(COMMAND "_ARC" "0,0" "1300,4500" PT3)
(COMMAND "_LINE" PT3 PT4 "")
(COMMAND "_ARC" PT4 "1300,11000" "1000,12000")
(COMMAND "_ARC" PT5 "800,12500" "0,13000")(COMMAND "_LINE" PT5 (LIST 0 (NTH 1 PT5)) "")

%ALA
(setq va1 (getint "ingrese el numero de planchas del ala:"))
(COMMAND "_LINE" PT4 (SETQ PTA1 (LIST 10000 9000)) "")
(COMMAND "_LINE" PT3(SETQ PTA2 (LIST (NTH 0 PTA1) 7000))"")
(COMMAND "_ARC" PTA1 (SETQ PTA3 (LIST (+ (NTH 0 PTA1) 1000) 8000)) PTA2)
(SETQ X 1500)
(WHILE (< X 10000)
(COMMAND "_LINE" (LIST X 7250) (LIST X8750) "")
(SETQ X (+ X (/ 8500 va1)))
)
(COMMAND "_LINE" "1500,7250" "11500,7250" "" )
(COMMAND "_LINE" "1500,8750" "11500,8750" "" )
(COMMAND "_TRIM" (LIST 11000 6800) (LIST 100009200) "" "_F" (LIST 11200 6766) (LIST 11200 9200) "" "")
(SETQ X 6500)
(WHILE (< X 10000)
(COMMAND "_LINE" (LIST X 7250) (LIST X 5000) "")
(SETQ X (+ X 500))
)
(COMMAND "_TRIM"(LIST 11000 4000) (LIST 6000 8000) "" "_F" (LIST 11200 5500) (LIST 5500 5500) "" "")

%ALA TRASERA
(COMMAND "_ELLIPSE" "600,0" "600,1600" "2500" )
(COMMAND "_LINE" "0,650" "4000,650" "")(COMMAND "_TRIM" (LIST 5000 0) (LIST 0 4000) "" "_F" (LIST 0 500) (LIST 500 2000) "" "_F" (LIST 3500 0) (LIST 3500 700) "" "")
(SETQ Y 300)
(WHILE (< Y 3000)
(COMMAND "_LINE" (LIST Y 650)...