Home

RUTINAS EN LISP - Universidad Politécnica de Valencia

1. setq fich open CargaTl tl close fich setq n entget ent setq cap assoc 6 n if nil cap setq entac cons tll n setq entac subst tll cap n entmod entac pgscp LTYPE tl c cid cad st lin w Rutinas LISP Sta OK OCC KOC IRI CO KO A HA A A H HA A AAA A II ORR HAHAHA AAA AA AAA A AAA AH AAA H H H it Xx CARGA SUPERFICIAL UNIFORME VERTICAL 7 7 H H k H H KO COE KOC CC OK IRR A A H KC KO A H HA A AAA AAA HA HAHAHA HHH A AAA KO AAA AH AAA H H H defun acaruv cpscp scpu asigcarp pgscp P 7 H H H OK H H I IRR KAKA KK K H H A CO AH AA AAA A AAA AH AAA AH AAA A AAA AAA AAA AAA AA AAA AAA AAA AAA K MODIFICA EL VALOR DEL FACTOR DE ESCALA DE LAS FUERZAS rj 7 H H H KOC Ck KOCH OK k H A A CO KO AAA A KO A AAA A H AAA AAA AA HAHA AH AAA AAA AAA AAA HA AA HH H H defun actescf conj p nl n2 n3 esc lyr 6 162 EFCiD Manual del usuario setq ef getreal nFactor de escala de cargas conj ssget X list cons 2 TIPEST if nil conj if gt sslength conj 1 prompt Elimine los bloque TIPEST sobrantes progn setq nl ssname conj 0 n2 entnext nl n3 entnext n2 esc entget n3 p cons 1 rtos ef 2 2 entmod subst p assoc 1 esc esc entupd nl progn cpcap setq p getpoint inPunto de inserci n del bloque TIPO DE ESTRUCTURA command LAYER moms TIPOMATS ON TIP
2. progn setq p mapcar list mod 2 mod 2 0 a pin capasei mod p v 1 h 1 and alig NO or niv INF niv Inf niv iNF niv inf 6 78 EFCiD Manual del usuario capasei mod pin v h and alig SI or niv SUP niv Sup niv sUP niv sup progn setq p mapcar list mod 2 mod 2 0 a pin capinfal mod p v 1 h 1 y and alig SI or niv INF niv Inf niv iNF niv inf capinfal mod pin v h TRAZADO DE LA TRAMA DIAGONAL if or NTE dim S NTE dim s dimbarma d command LAYER S STR DIAG cond and alig NO or niv SUP niv Sup niv sUP niv sup diagmall mod pin v h and alig NO or niv INF niv Inf niv iNF niv inf progn setq p mapcar list 0 mod 2 0 mod 2 a pin diagmall mod p v 1 h 1 and alig SI or niv SUP niv Sup niv SUP niv sup capdiaal mod pin v h and alig SI or niv INF niv Inf niv iNF niv inf progn setq p mapcar list 0 mod 2 0 mod 2 a pin capdiaal mod p v 1 h 1 setvar CELTYPE tl Ki INSERCION DE LAS CARGAS EN LA MALLA if tblsearch layer HIP01 nil
3. Insertar un bloque en una capa determinada PRERANA ka Ak KX esee kakak ol aloe oleo bool oe ook E AS ee RAKA K NERA XD EHK ARDA REX KN eh ok HEX RAE ARR SE defun inscapa blk Nombre del bloque cap Nombre de la capa fx Factor de escala a la que se inserta 6 11 Rutinas LISP noecho ir a capa cap if nil fx setq fx 1 0 command _INSERT blk esc fx IRR Ck OC IR CC KO CO KO I H A AH A I KA KOC H AA AA AA HAHAHA KO IIR KO HA AA H AAA H H HA GESTION DE CAPAS ORE KK OEC KOC JE CC A OK A A H A A A AAA A AAA A H AAA AH AAA HHH H qu x FUNCIONES BASICAS FRR KRKE IRR H KC A KO A A A A A A AAA A AAA A H AAA AH AAA AH AAA A HAHA A AAA AA KO AAA AA AAA HH H H Establece una capa como actual La reutiliza y la activa si es necesario E I KE NANA SDE RDA ARARA RA SX Sol MARA AKA NARA sro A RDA NARA ARSA DD ARARA CARA NARA SA ERA R DA defun ir_a_capa cap Nombre de la capa act pl tip c setq act getvar CLAYER pl substr act 1 1 tip substr act 2 3 if or tip cap pl planta progn setq c strcat planta cap command LAYER T c ACT c S c 7 7 7 H k KO COO KOCH OK I ROR H A KO A HA A A AAA A HAHA H IRR HAHAHA KO AAA KO AAA AH AAA K H Desactiva la capa de una determinada entidad RUE EXE MARKA HRD H KANA RANA seo ol ol ER RA KARA NARA soll ol HERDS KAMNA NARA NARAK RDA ARA NARA ER AH F defun C AA 5 c setq c
4. NTE mod n NTE mod S NTE mod s prompt in Desea que el programa le proponga modulos de acuerdo con la NTE EAE S N setq NTE mod getstring if or wcmatch NTE mod S wcmatch NTE mod s progn setq lh tipobar 2 Ime ab sob m qi bl abl if and nil 1h 0 1h progn setq lh nth 1h 1 lm mod car modmalla Ima Ime car lh last lh if car lh last Ih progn prompt n La NTE EAE recomienda un modulo entre prinl car Ih prompt y prinl last 1h prompt metros if mod nil progn prompt in Dada la longitud de los lados el modulo prompt mas apropiado seria de prinl mod prompt metros progn prompt in Las dimensiones de los lados son tales que no hay ninguna prompt in dimension dentro del intervalo aconsejado que se adecue a ambas setq NTE mod N mod nil progn prompt in Dadas las caracteristicas de la malla la NTE EAE prompt in sugiere como modulo mas adecuado prinl car Ih prompt metros setq NTE mod N if 0 1h prompt in Combinaci n m trica no contemplada en la NTE EAE 86 if or wcmatch NTE mod N wcmatch NTE mod n 6 72 EFCiD Manual del usuario progn prompt n La longitud del lado mayor introducida es de prinl ima prompt metros prompt y la del lado menor de prinl ime prompt met
5. sec DP Anor SE EE AA R RFA sae GRE R is setq f IPE dim substr dim 2 360 E FRRO a a a setq f IPN dim substr dim 2 sec F Fo SPSS aa a a TRA esate setq f PHO dim substr dim 2 v 1 ca nom while ca I setq ca substr dim v 1 v 1 v setq dim strcat substr dim 1 v 2 yn substr dim v sec G E EE setq f PHC dim substr dim 2 v 1 ca r while ca I setq ca substr dim v 1 v 1 v setq diml substr dim 1 v 2 dim substr dim v v 1 ca on while ca I setq ca substr dim v 1 v 1 v setq dim strcat diml yn substr dim 1 v 2 yn substr dim v 6 26 EFCiD Manual del usuario sec H A PSST SSE RS UAR EE setq f PHR dim substr dim 2 v 1 ca m while ca I setq ca substr dim v 1 v 1 v setg diml substr dim 1 v 2 dim substr dim v v il ca on while ca I setq ca substr dim v 1 v 1 v setq dim strcat diml y substr dim 1 v 2 yn substr dim v sec I Y SAG apas AGA A setg f 2UPN dim substr dim 2 sec J NN A ee Y S ynn A setg f TE dim substr dim 2 v 1 ca m while ca C setq ca substr dim v 1 v 1 v setg diml substr dim 1 v 2 dim substr dim v v 1 ca on while ca I setq ca substr dim v 1
6. tetra pl p2 p3 p5 tetra pl p4 p5 p3 tetra p3 p6 p5 p4 avisoUNDO pgosm pgscp pgcap defun c pr3 pr3 6 90 Rutinas LISP EFCiD Manual del usuario ROCCO IIR KO HEC OK OO OK CC OK CORO A A HA A A AAA A AAA A AAA A AH AAA AH AAA AAA AA AH AAA A HH OR HHAH HHH FUNCION DIBUJA SOLIDOs TETRAEDROs LLENANDO PRISMA CUADRANGULAR FRR H H RAI OK ORC HE OK AKA H CORO KO A A H A AAA A AAA A AH AAA AH AAA AH AAA AAA AA AH HHAH HHAH HHH HHH defun pr4 pl p2 p3 p4 p5 p6 p7 p8 osm cprev noecho cposm cpscp cpcap r fmi setq pl getpoint In Primer vertice Base de 4 vert p2 getpoint pl n Segundo vertice Base de 4 vert p3 getpoint p2 n Tercer vertice Base de 4 vert p4 getpoint p3 n Cuarto vertice Base de 4 vert p5 getpoint p4 n Primer vertice Superior de 4 vert p6 getpoint p5 In Segundo vertice Superior de 4 vert p7 getpoint p6 in Tercer vertice Superior de 4 vert p8 getpoint p7 in Cuarto vertice Superior de 4 vert tetra pl p2 p4 p5 tetra p2 p3 p4 p7 tetra p2 p7 p6 p5 tetra p4 p5 p7 p8 tetra p2 p4 p5 p7 avisoUNDO pgosm pgscp pgcap defun c pr4 pr4 FRR I H k H H I RR I IR RIOR A A KC H H KO A A AAA A HA AA A AAA AH AAA KK AAA AH AH AAA A HAHA HH DIBUJA UN SOLIDO A PARTIR DE SUS OCHO VERTICES CROCO ORC RA I RR IR RI H H A H A H A AH AAA A AAA A AAA A AH AAA AH AA AH AA AA AAA AAA HAHAHA AH AA HH
7. VACIADO DE VARIABLES INNECESARIAS setq pl nil p2 nil ori nil pro nil ab nil L nil lm nil apo nil pp nil gl nil bi nil abl nil q2 nil b2 nil ab2 nil mt nil ma nil ts nil ti nil tdt nil tda nil cst nil 6 77 Rutinas LISP m nil td nil lh nil NTE mod nil dim nom nil Ace dif nil CALCULO DE PARAMETROS PARA EL TRAZADO DE LA MALLA setvar OSMODE 0 setq h fix Ima 0 01 mod v fix ime 0 01 mod Ima nil ime nil prompt in El numero de modulos horizontales es de if or niv INF niv Inf niv iNF niv inf prinl h 1 prinl h prompt y el de verticales de if or niv INF niv Inf niv iNF niv inf prinl v 1 prinl v setq 1 getvar CLAYER setvar UCSICON 0 Desactiva el s mbolo del SCP TRAZADO DE LA TRAMA SUPERIOR setg tl getvar CELTYPE if or NTE dim S NTE dim s dimbarma s if not wcmatch 1 STR CSUP command LAYER S STR CSUP if or niv INF niv Inf niv iNF niv inf progn setq p mapcar list 0 7 mod 2 0 mod 2 a pin capasei mod p v 1 h 1 capasei mod pin v h TRAZADO DE LA TRAMA INFERIOR if or NTE dim S NTE dim s dimbarma i command LAYER S STR CINF cond and alig NO or niv SUP niv Sup niv sUP niv sup
8. if equal tt 6 command INSERT apoye6 pl if equal tt 7 command INSERT apoye7 pl mn if equal tt 8 command INSERT apoye8 pl if equal tt 9 command INSERT apoye9 pl if equal tt 10 command INSERT apoyel0 pl if equal tt 11 command INSERT movfe pl pgosm j PFR I IRR CK OC IR RI RR A A AA A AAA A KO A AAA A AH AAA AAA AA AAA A AAA AA KO AAA A HA AA e H H Px Er DE INSERTA EL BLOQUE ASOCIADO A UNA ZAPATA CENTRADA j 7 H H RO ROO OOOO OK e H A RR CO KC A AAA A H AAA AH AAA AH AAA AH HHAH AAA AA KO AAA AA AAA HH H H defun C zcen pl osm noecho cposm r fin setq pl getpoint nBase del Soporte r non command INSERT zapc SC 1 p1 0 pgosm OOOO ROO OOOO OOOO AK HH A A AAA REK AAA AH AA AA HAHA KO AH AAA AAA AH AAA HHAH PRE gk INSERTA EL BLOQUE ASOCIADO A UNA ZAPATA DE MEDIANERA rj KA KAKA RR I RR IKI H COR OK A AA A A AAA A AAA A H AAA defun C zmed pl osm noecho cposm r_fin setq pl getpoint nBase del Soporte r_non command INSERT zapbl SC 1 pi pgosm rj 7 H H H OK KO I KK COE CK e H A H RC CC A A AAA OK A AH AAA AH AAA AH AAA AAA HAHAHA AA AAA AAA AH AAA HH H H EF NEE INSERTA EL BLOQUE ASOCIADO A UNA ZAPATA DE ESQUINA RRR E A IR RI H OK e H A KO COO A A AAA A AAA A H AAA A AAA AAA AA HAHA KO AA AAA A AAA AH AAA HH H H defun C zesq pl
9. if vc 0 setq lp cons pl lp setq vv 0 vc 0 nv length lp ctr T while ctr if equal p2 nth vv lp 0 03 setq vv vv 1 if vv nv setq ctr nil if vc 1 setq ctr nil setq vc 1 if vc 0 setq lp cons p2 lp setq vv 0 vc 0 nv length lp ctr T while ctr if equal p3 nth vv Ip 0 03 setq vv vv 1 if vv nv setq ctr nil if vc 1 setq ctr nil setq vc 1 if vc 0 setq lp cons p3 1p setq vv 0 vc 0 nv length lp ctr T while ctr if equal p4 nth vv lp 0 03 setq vv vv 1 if vv nv setq ctr nil if vc 1 setq ctr nil setq vc 1 if vc 0 setq lp cons p4 lp setq v v 1 6 147 VN Rutinas LISP setq lp reverse lp lp cdr lp lp cdr lp v 0 repeat length lp command COPY bl pin nth v lp setq v v 1 entdel bl 6 5 2 V nculo de tipo ideal Las rutinas que se transcriben a continuaci n permiten introducir en el modelo BLOQUES que representan v nculos ideales o bien relajar total o parcialmente las ligaduras entre algunos elementos 7 K FUNCIONES PARA GENERAR VINCULOS DE LA ESTRUCTURA CON EL CONTORNO F Y DEFINIR LAS LIGADURAS INTERNAS ENTRE BARRAS Y NUDOS iapoyh INSERCION DE UN APOYO HABITUAL iapoye INSERCION DE UN APOYO ESPECIAL chblok1 CAMBIO A BLOQUE DE APOYOS ESPECIALES chblok2 CAMBIO A BLOQUE DE APOYOS HABITUALES
10. setq mat ssname ssget X m entnext mat nom mat cdr assoc 1 entget m gi 21 41 list cons 2 MATERIAL i CREACI N DEL NOMBRE DEL TIPO DE LINEA CORRESPONDIENTE AL DIMENSIONADO setq num mat cdr assoc 1 entget entnext m mat chr 64 atoi num mat pi rtos fix dim 2 0 p2 substr rtos dim 2 1 strlen rtos dim 2 1 tl strcat F mat 0 I pl I p2 CREACI N Y CARGA DEL NUEVO TIPO LINEA if nil tblsearch LTYPE tl progn crearl tl cargaTl tl setq fich open close fich setvar CELTYPE tl c cid cad st lin w kk ke oe b o e o e o 70 oe e o e o e oe e ce e oe e 3 e oe e ce e ce e 36 e oe e c e e e oe QE e e ce e G e c e ce e ce e 7606 c e ce e ce e e e e e e KARAKA apar it INSERCION DE LAS CARGAS PUNTUALES EN UNA MALLA ESPACIAL SEGUN NTE EAE 7 kk ke k e oe e oe e oe e oe e ok e oe e e RARA e ce e oe RARA e e e e e ce e ce e 9 se 36 e ck e e e e e e e ce e ce e ce e e e e e b e e e e e 3k e e e e e AH defun insfuema mod pin v h sob m i d p r s cprev setq m mod mod sob 1000 d 10 while lt i 1 h setq i 1 i d fix i 0 5 1 h p mapcar 1 v list mod 1 i d 1 h mod d 0 0 pin cond or i 1 d IP h FAB Cbr B JJ m Lr B ALAN progn setq p trans p 1 0 command UCS X 90 setq p trans p O 1 r mapcar list 0 0 0 1 0 0 p
11. OI tll cons 6 tl T setq EL BE Est mo progn prompt nNo es posible asignar las propiedades activas prompt nSe trata de elementos de distinto tipo 6 122 EFCiD Manual del usuario progn if nil tblsearch LTYPE tl progn CreaTl tl CargaTl tl setq fich open c cid cad st lin w close fich while not setq conj ssget setq v 0 repeat sslength conj setq ent ssname conj v n entget ent cond and tip 1 LINE cdr assoc 0 n setq cap assoc 6 n if nil cap setq entac cons tll n setq entac subst tll cap n entmod entac and tip 2 3DFACE cdr assoc 0 n setq cap assoc 6 n if nil cap setq entac cons tll n setq entac subst tll cap n entmod entac and tip 3 POLYLINE cdr assoc 0 n setq cap assoc 6 n if nil cap setq entac cons tll n setq entac subst tll cap n entmod entac setq v v 1 p 7 7 H H H ORO kk CHE KOC HC OK CO OK CC A A H AH AA AA A AH AAA A H AAA AH AAA A HAHA KO A HA KO AAA AH AAA HHH PROPIEDADES DE UN MATERIAL GENERICO j 7 7 H ORC kk CO KOC KO COO OK H H A H OK A HA A A AAA A H AAA RIO AA AAA AH AAA HHH defun matgener n setq nommat getstring nNombre del Material PE setq module getreal nModulo de Young E Kp cm2 setq poiss getreal nCoeficiente de Poisson ERII setq dens getre
12. cadr pf cadr poi n11 zn caddr pf caddr poi nli X xn car poi y yn cadr poi z zn caddr poi repeat nll setq pf list x y z command LINE poi pf setq poi pf x x xn y y yn z z zn 6 81 Rutinas LISP setq x11 x1 x11 yll yl vili z11 z1 z11 poi list x11 yll z11 x22 X2 2x22 y22 y2 y22 222 t z2 z22 pf list x22 y22 z22 Piston ies a DEE direccion paralela a 2 3 setq x1 car p2 car pij nll yl cadr p2 cadr pl nl1 zl caddr p2 caddr p1 nil x2 car p3 car p4 n11 y2 cadr p3 cadr p4 nil z2 caddr p3 caddr p4 nl1 poi pl pf p4 x11 car pl y11 cadr pl z11 caddr pl x22 car p4 y22 cadr p4 z22 caddr p4 nr nll 1 repeat nr setq xn car pf car poi n12 yn cadr pf cadr poi n12 zn caddr pf caddr poi n12 X xn car poi y yn cadr poi z zn caddr poi repeat n12 setq pf list x y z command LINE poi pf setq poi pf X x xn y y yn z z zn y setg x11 xl x11 yll yl vili z11 zl z11 poi list x11 yll z11 x22 x2 x22 y22 y2 y22 z22 t 22 222 pf list x22 y22 z22 avisoUNDO pgosm pgscp pgcap defun cuadril phip defun C phip phip 6 82 EFCiD Manual del usuario FIR H H H IRR I OK H A 3 H A H IRR IR KO AA A A AAA pee
13. command ELLIPSE pl p2 Rz setvar OSMODE om setvar CLAYER cl siH RR I Ck KO E OK OC HE OK IRR COR H A I H A H AA A AH AA A H AAA AAA AA HAHA AH AAA A AAA AA AAA AAA HH H H Obtenci n de las solicitaciones sobre la secci n ORE KK OEC KO COH H A H k H A A H H OK A AA A AH HA A A H AAA H AAA A AAA A HAHAHA HA AA KO AAA A HA AA HHAH defun nmm noecho scp_cdg setq N getreal nAxil en kg Mz getreal nMomento seg n el eje OZ en kg cm My getreal nMomento segin el eje OY en kg cm ez 0 ey 0 solicit rtos N 2 0 rtos Mz 2 0 rtos My 2 0 rtos ez 2 2 rtos ey 2 2 6 136 EFCiD Manual del usuario defun C NMM nmm defun nee p noecho r non scp cdg setq N getreal nAxil en kg p getpoint nSeleccione el punto de aplicaci n del axil if p nil setq ez getreal nExcentricidad en la direcci n Z en cm ey getreal nExcentricidad en la direcci n Y en cm setq ez car p ey cadr p setq Mz N ey My N ez solicit rtos N 2 0 rtos Mz 2 0 rtos My 2 0 rtos ez 2 2 rtos ey 2 2 defun C NEE nee RRR I KR HE KC CHECK RIOR CO OK A AAA A AAA Inserci n del cuadro de solicitaciones AR E RASA APR AAE EE ERER kak e hE see ee aio a oko E ORRE LA EPEA kakak oe Soe eo bs bak LERIDA RSA defun solicit tN tMz tMy tez tey p Punto inserci n cuadro solicitaciones noecho n
14. defun altp pin hi hl p setq hl list nth O pin nth 1 pin p h1 nth 2 pin hi ROCCO CK OCHO COCHE OK IRR A A A KO AH A A AAA A H AA A H AAA AH AAA AH HHAH HH AA H AAA AAA AH AAA HHH 6 7 Rutinas LISP pe E PRODUCTO VECTORIAL z devuelve la lista Ip pl p2 p3 FRI KK OE OK RI H A H COCOA KO AAA A AAA A AAA A AH AAA A AAA A KAKA KA AAA AAA AA AAA AAA A HHAH defun provec vl 7 Vector en formato lista x1 yl z1 v2 Vector en formato lista x2 y2 z2 xl yl z1 x2 y2 z2x y Z lp setq xl nth O vi yl nth 1 v1 z1 nth 2 vl setq x2 nth 0 v2 y2 nth 1 v2 z2 nth 2 v2 setq x yl z2 z1 y2 y z1 x2 x1 z2 Zzoc pexXLcy2 yl ox2 J setq lp list x y z OOO I KO CHECK RI ORR A H H AA AH A KO A AAA A AAA A AAA A AAA A AH AAA AA AAA HAHA OR KO EO HHAH HH PRODUCTO DE UNA MATRIZ 3X3 POR UN VECTOR devuelve una lista con las tres componentes del vector EP DIET JIA SSS ELAND AKS SR KA se olde OE ol KARA obo oe oben KX FEDE LKA RANA EK NIA oer ASE ARARA RA ANSA D RSA KA defun prod3x1 mt matriz en forma de lista fila x columna A tjeme 41 12 13 21 22 23 31 32 323 vv vector que multiplica a la matriz s1 s2 s3 ix setq sl nth O mt nth 0 vv sl sl 4 nth 1 mt nth 1 vv sl sl 4 nth 2 mt nth 2 vv setg s2 4 nth 3 mt nth O vv s2 s2 4 nth 4 mt nth 1 vv s2 s2 4 nth 5 mt nth 2 vv setg s3 4
15. defun scp cdg orig om o c noecho setq om getvar OSMODE r non noH command LAYER ON REGION OFF SOMBREADO setq secc car entsel nSeleccione una regi n setvar UCSICON 0 command UCS prop reg setq orig list zcdg ycdg o list 0 0 E ssget X list cons 2 SISTREF command UCS M orig command UCS X 180 0 prop reg r non if Z c nil command ERASE c command INSERT SISTREF o escblk escblk 0 0 setq sistref YZCDG setvar OSMODE om siH defun C CDG scp cdg OOOO RO ROO KOC HE OK ORC OK ORC A KC KK A A AH AAA H AAA A AAA A HAHA KO IR KO AAA AH AAA HH H H Cambia al SCP de direcciones principales e inserta bloque ejes orientados PER TR EAI SANS RELA LORD IIA RIA ka ON SN FAHA SLA DELLE H RDA RANSA A abcr A VRD ASA RA VS rama ka AS A 6 134 EFCiD Manual del usuario defun ejes ppales 7 C CL o om el e2 v ca noecho setq om getvar OSMODE r_non noH command LAYER ON REGION setq secc car entsel setvar UCSICON 0 command UCS prop reg setq orig list zcdg ycdg command UCS M orig command UCS X 180 0 prop reg setq v 1 ca W el Vi while ca setq ca substr el v 1 v 1 v setq ell inSeleccione una regi n atof substr el 1 v Capa actual al iniciar la rutina Origen del Sist
16. setq h atof substr xe b 100 ye h 100 command INSERT tip tip PHR setq d dim v il ca ow tip BxH while ca x setq ca substr d v v tv 1 setq b d substr d v ca m v 1 while ca myn atof substr d 1 di v 2 X xe Y ye Z lon pto ang substr dim 14 1 di v 2 1 di v 2 X xe Y ye Z lon pto ang 1 v 2 setq ca substr d v 1 v v 1 6 46 EFCiD Manual del usuario setq h atof substr d 1 v 2 xe b 1000 ye h 1000 command INSERT tip X xe Y ye Z lon pto ang tip PHC lr c C C C C C c D C C setq d dim v 1 ca nn tip BxH while ca x setq ca substr d v 1 v v 1 setq b atof substr d 1 v 2 xe b 1000 ye b 1000 command INSERT tip X xe Y ye Z lon pto ang tip PHO RA ae PS EA setq d dim v 1 ca m tip CIRC while ca x setq ca substr d v 1 v v 1 setq b atof substr d 1 v 2 xe b 1000 command INSERT tip X xe Y xe Z lon pto ang ORCI RC k KO HE KOC IR C C OK KO AAA A AAA A AH AAA AH AAA AH AAA AH HHAH AAA AH KO AAA AH AAA HHH DIBUJA EL VOLUMEN DE UN ELEMENTO FINITO SUPERFICIAL CON ESPESOR CORO IRA I KO C IR de H A H COO HH A A AAA A H AAA AH AAA AH AAA HAHAHA AH AAA AA AAA HA AA AAA AH HH defun dv3dc ln
17. COLOR 2 zx COLOR ngn px COLOR 4 HIPO1 COLOR mom HIPO2 COLOR 6 HIPO3 COLOR 7 CIM RIO defun capasstr pl c setq c strcat F pl ip pl iy pl ig pl HIPO1 pl HIP02 pl U HIPO3 pl command LAYER NEW c 6 24 EFCiD Manual del usuario ROCCO RR I RE IR IRR H H KO RRA MUESTRA LAS CARACTERISTICAS DE LA SECCION DE UNA BARRA p 7 7 H H H H H H H KC CK OC OK CC KO H A A KO AH A A AAA defun tl gt props ln act ca dim diml dim2 dim3 f gir mat pins sec tl v diano noecho setq tl cdr assoc 6 In pins list 000 if ByLayer tl setq tl nil if nil tl setq sec progn setq sec substr tl 1 1 mat itoa ascii substr tl 2 1 64 gir substr tl 3 v ah ca m lon 1 strlen tl while and ca C ca I ca Q ca v lon setq ca substr gir v 1 v 1 v setq gir strcat substr gir 1 v 2 dim substr tl 2 v 1 cond sec A setq f RECTANGULAR dim substr dim 2 v 4 ca nm while ca C setq ca substr dim v 1 v 1 4 v setq dim strcat bxh substr dim 1 v 2 y substr dim v sec B setq f CIRCULAR dim strcat D substr dim 2 6 25 Rutinas LISP sec G F p Se AAA IE setq f HEB dim substr dim 2
18. actualiza pK Ok KO ROCK RIK CORO KO COR OK A A H A A OC A HA A A H AAA AH AA AA HAHA HAHA AAA AA AAA AH AAA HH H H PIDE DATOS SECCION CIRCULAR HUECA rj 7 H H CC KK OEC KOCH H A H e H A A CO KO AAA A AAA A H AAA H AAA AH HAHA HAHA KO AA AAA AAA AA HA AA HH H H defun insechuc d er setq d getreal nDiametro seccion cm er getreal nEspesor seccion cm nomsec CIRC HUECA dimsec strcat Dxe rtos d 2 0 x rtos er 2 1 actualiza RR IIR H He H oe KARE CC r CC A KO I A A AAA A AH AA A HEC AAA PIDE DATOS SECCION EN T RR I IRR IRR OK I H COR OK A A H A A A H A A HA A A H AAA AH AAA A HAHA HAHA AAA AA AAA AH AAA HH H H defun insecte br hr bri hrl setq br getreal nAncho secc alas cm hr getreal nCanto total cm bri getreal nAncho alma cm hri getreal nCanto alas cm nomsec TE dimsec strcat BxHxalmaxala rtos br 2 0 yn rtos hr 2 0 yn rtos bri 2 1 yn rtos hri 2 1 actualiza 6 116 EFCiD Manual del usuario CROCO I k KO HE KOC HK COCOA A A RA H AAA HHH it PIDE DATOS SECCION EN NERVIO EN T FORJADO UNIDIRECCIONAL CROCO ORC ROO OOOO ORO RR CK I A A AAA A H AAA H AAA AH AAA A HAHA AH AA AA AAA AA AAA AAA A HHH defun insectef br hr bri hrl setq br getreal nAncho secc alas cm hr getreal nCanto total cm bri getreal nAncho alma cm hri getreal nCanto alas cm nomsec NERVIO d
19. bormoll BORRA LOS BLOQUES BALASTO QUE EXISTAN EN UN PUNTO abas ASIGNACION BLOQUE BALASTO SIN BORRAR LOS QUE EXISTAN prompt Cargando las utilidades de CIMENTACION n FIR IRR HEC KOC HEC OK CORO OK CK RARA it INSERTA BLOQUES DE ZAPATAS COMBINADAS ZCOMB o ZCOMBE CROCO IRR IRR OK RI ORR CC KO IIR KO A AAA A AH OK AH AAA A AH HHAH AAA AA AAA AAA AH AAA HHH defun zco tt pl p2 p3 po dl noecho scpu cposm r_fin setq pl getpoint nBase Primer Soporte setq p2 getpoint pl nBase Segundo Soporte r non setq p3 trans pl 1 0 VectorZ pl p2 setq po trans p3 0 1 setq dl distance pl p2 if equal tt 1 command INSERT ZCOMB po XYZ 1 3 0 6 d1 0 if equal tt 2 command INSERT ZCOMBE po XYZ 1 3 0 6 dl 0 if equal tt 5 command INSERT ZCOMBB po XYZ 1 3 0 6 dl 0 if equal tt 3 command INSERT ZCORR po XYZ 1 2 1 dl 0 if equal tt 4 command INSERT ZCOBR po XYZ 1 2 1 dl 0 scpu pgosm p NAKAKAKABA KAKA KC CHECK RI KC KO AH A A RARA JERA INSERTA APOYOS GENERICOS PLANOS FRR ORC k KO CK A IRI H KA RRR A A A AAA A H AAA H AAA AH AAA HAHAHA X OR AA AAA AAA AH AAA HHH defun inapoyp tt pl osm noecho cposm r fin setq pl getpoint in Base Soporte r non if equal tt 0 command INSERT apoypg pl if equal tt 1 command INSERT apoypl pl if equal tt 2 command INSERT
20. princ Interejes princ b0 princ Armadura princ sim princ Gamma f princ gf scpu setq nv 0 bb 0 0 pi getpoint nPrimer Apoyo lap list pl lg list bb lg list bb lp list bb la list bb lluz list bb an 10 0 bb an princ n Ancho Apoyo cm lt princ bb princ gt setg an getreal if eg eval an nil setg an bb setg lan list an pp 1 while pp nil setg p2 getpoint pl nSiguiente Apoyo pp p2 if pp nil progn setg nv 1 nv bb an princ n Ancho Apoyo cm lt princ bb princ gt setg an getreal if eg eval an nil setg an bb bb lap lluz fckk fykk oma 6 171 princ n EXTREMO INICIAL setq bb g princ n Carga Permanente princ bb pine m setq g getreal if eq eval g nil setq g bb setq bb q princ n Carga Variable princ bb prince gt setq q getreal if eq eval q nil setq q bb setq bb cpl princ n Carga Puntual princ bb princ setq cpl getreal if eq eval cpl nil setq cpl bb if gt cpl 0 0 progn setq bb a Rutinas LISP KN m2 KN m2 KN princ n Posicion Carga Puntual a Ext IZQ m lt princ bb princ setq p3 getpoint pl nMarque Posicion setq a distance pl p3 if lt a 0 15 setq a 0 setq lap con
21. repeat nel dibs20 cor20 ppi pj pk pl pii pjj pkk pll setq ppi pj pl pk xe x xn y ty yn z z zn pj list x y z Kal x1 xxn yl yl yyn zl F zl zzn pk list x1 yl z1 setq pii pjj pll pkk ats xs xnl ys ys ynl zs zs znl pjj list xs ys zs xsl xsl xxnl ysl ysl yynl zsl zs1 zznl pkk list xsi ysi zsl Rutinas LISP ORR KK IR ORO OK CROCO CO KO A H A KO A A HA A H AA A AH HAHA HAHA KO AA H AAA AAA AH AAA EE FUNCION PARA LLENAR UN VOLUMEN CON SOLIDOS FRR OK KO CK OC r CC KO CC KO A HA A KO A A AAA A H AA AA AAA A KO EO EE defun m8 pi p2 p3 p4 p5 p6 p7 p8 niz ni3 pbl pb2 pb3 pb4 psl ps2 ps3 psf3 psf4 pssl pss2 osm cprev noecho cposm cpscp cpcap r fmi setq pl getpoint nBASE Primera esquina p2 getpoint pl nBASE Segunda esquina nll getint nNumero elementos en lado 1 2 p3 getpoint p2 nBASE Tercera esquina nl2 getint nNumero elementos en lado 2 3 p4 getpoint p3 nBASE Cuarta esquina ps getpoint p4 nSUPERIOR Punto 1 p6 getpoint p5 nSUPERIOR Punto 2 p7 getpoint p6 nSUPERIOR Punto 3 p8 getpoint p7 nSUPERIOR Punto 4 nl3 getint in Numero de elementos en altura r non setq nh nl3 1 pbi pl pb2 p2 pbf3 p3 pbf4 p4 6 96 nh nt nii ps4 pbf3 pbf4 EFCiD Manual del usuario repeat n13 setq nh nh 1 pssl pfrac pbl p5 nh pss2 pfrac pb2 p6 nh psf3
22. s1 1 setq o mapcar list 0 0 0 mod 0 0 pin repeat sl setq o mapcar list 0 0 mod 2 0 0 o po Tid repeat h setq r 0 r q mapcar list mod mod r 0 0 p command LINE p q setq p q setq o mapcar list 0 0 0 mod 0 0 pin repeat s2 setq o mapcar list 0 0 mod 2 0 0 o po az repeat h setq r 0 e q mapcar list mod mod r 0 0 p command LINE p q setq p q OOO C OK OCHO RRR OK RI RR A A A H A A HA A KO A AAA A II OR AAA A AAA AAA AAA AAA AH I OR HHAH HHAH HH TRAZADO BARRAS DIAGONALES DE UNA MALLA ESPACIAL ALIGERADA NTE EAE ORE H H KO H I I H H H oe OK ORC KO H H A HHH AA AAA A AAA A AAA A H AAA A AAA AH AAA H AAA KO AAA OR AA HHAH AH defun capdiaal mod pin v h pl p2 p3 p4 p5 i di d2 d3 d4 p q d cprev setq pl pin p2 mapcar list mod 0 0 0 0 pl p3 mapcar list 0 0 mod 0 0 pl p4 mapcar list mod mod 0 0 pl p5 mapcar list mod 2 mod 2 0 a pl i d 6 66 EFCiD Manual del usuario command LINE p1 p5 setq dl entlast command LINE p5 p4 setq d2 entlast command LINE p2 p5 setq d3 entlast command LINE p5 p3 setq d4 entlast while i h v setq i 1 i d fix 7 0 5 AD p mapcar list 0 mod d mod 0 0 pin q mapcar list mod i d h 0 0 0 0
23. x mapcar o list 0 05 sin ang 0 05 cos ang s mapcar qq list 0 05 sin ang 0 05 cos ang ang ang 180 3 1415 command LAYER S negat command CHANGE entlast p LT tlin defun c neg neg P KAKA I k KO CK OO OK CORO OC OK A AAA A AAA A H AAA H AAA AH AAA A HAHA AAA AA AAA AAA AAA AAA HHH DIBUJA LAS ARMADURAS DE NEGATIVO Hi pa punto del apoyo ang angulo de orientacion de la armadura en radianes i Fi diametro armadura ar posicion de armadura 1 2 o 3 EFCiD Manual del usuario 7 li ld z izq der p pat patt longitud izq mt es cadena texto longitud derecha mt cadena texto 0 prolonga 1 patilla 0 prolonga 1 patilla punto de insercion del negativo patilla doblada en metros patilla en texto RI H H H H CK ORC HOOK RI AH H A AH KO HAHA RA defun dibneg pa arl El if lt 15 h setq pat 0 10 patt 10 1 lt 20 h setq pat 0 15 patt 15 1 lt 26 h setq pat 0 20 patt 20 if lt 30 h setq pat 0 25 patt 25 if lt 35 h setq pat 0 30 patt 30 if lt 40 h setq pat 0 35 patt 35 if lt 45 h setq pat 0 40 patt 40 if lt 50 h setq pat 0 45 patt 45 command LAYER if ar 1 ang fi ar li ld izq der p pl ar2 arm fid a i d o q r s sl angl pat patt tlin ult gm textarm setq p pola
24. 3_CARA x zy z y 3 CARA pl xy zy x ROCK CORO k KO IRR IR RI A CO H A A H AA A AAA A H AAA H AAA AH AA AA AAA AH AAA AA KO AAA A HA AA HH H H ES F X GENERA UN ZUNCHO EN BORDE DE RECUADRO RETICULAR CON ABACOS P 7 7 H H OK H IR RA CK e H A OK A A A OK A AAA A AAA A H AAA AH AAA A AAA A HAHA A AAA AAA AA AAA AH AAA HH H H defun c ZUNB pl p2 pill p22 px py lrr fr flr bb pp cprev noecho cposm cpscp cpcap scpu r_fmi setq fr 0 15 pl getpoint nLADO RECUADRO Primer extremo pp pi while pp nil if pp nil progn setq p2 getpoint pl An Segundo extremo bb fr princ n Abaco fraccion de la luz lt princ bb 6 112 EFCiD Manual del usuario princ gt setq fr getreal if eq eval fr nil setq fr bb setq flr 1 fr r non setq 1 getvar CLAYER lrr strcat 1 zun command LAYER N lrr S rr setq p11 puntint pl p2 fr p22 puntint pl p2 fir px puntint pl pil 0 25 py puntint pl pil 0 5 command LINE pl px command LINE px py command LINE py p11 nnlin pli p22 6 setq px puntint p22 p2 0 5 py puntint p22 p2 0 75 command LINE p22 px command LINE px py command LINE py p2 command LAYER S 1 r fmi setq pl getpoint nLADO RECUADRO Primer extremo pp pi avisoUNDO pgosm pgscp pgcap 6 3 M dulo para describir
25. 6 127 6 5 M dulo de aplicaci n de V nculos con el contorno y descripci n de Ligaduras entre II i L ISO 6 142 6 5 1 V nculos de tipo constructivo eenenenenznnnnnnennenzn eee 6 142 6 5 2 V nculo de tipo ideal 6 148 6 6 M dulo de aplicaci n de Cargas 6 152 6 6 1 Funciones para aplicar Cargas directamente sess 6 152 6 6 2 Funciones para aplicar Cargas a trav s de los forjados 6 164 6 7 M dulo de C lculo y Trazado de Forjados 6 167 EFCID Manual del usuario 6 Rutinas del Entorno de Diseno Con el objeto de facilitar la personalizaci n del uso del entorno de Diseno del programa EFCID se incluye el c digo fuente de las rutinas que lo componen y que est n escritas en el lenguaje Visual LISP Todas las rutinas que a continuaci n se presentan ellas forman parte del programa de C lculo y Diseno de estructuras EFCiD v 7 20 2003 Este es un programa Registrado cuyos derechos pertenecen a la Universidad Polit cnica de Valencia Copyright Universidad Polit cnica de Valencia Departamento M M C y Teor a de Estructuras Grupo I D I Grupo de Calculo y Diseno Estructural en Edificaci n CiD Autores AGUSTIN PEREZ GARCIA amp ADOLFO ALONSO DURA Contacto aperezg mes upv es aalonsodemes upv es Domicilio Camino de Vera s n 46021 VA
26. apoye4 esc 1 p 0 if aph APOEG command INSERT apoyeg esc 1 p 0 if aph BALASTO command INSERT balasto esc 1 p 0 pgosm ROCCO H H kk KO IR RI H A H RI RK AE A KO AH KO A H AAA AH AAA AH AAA KK AI IRR II IR KO AAA it INSERCION DE UN APOYO ESPECIAL FRR I k KO I RR AI H A H H H A A A H A A H AA IR AAA A AH AAA AH AAA A AAA AH HH AA AAA AH AAA AAA HHAH HHH defun iapoye ape p apn Tipo de apoyo habitual cposm if ape MAS chblok2 progn setvar OSMODE 1195 setq p getpoint n nUbicaci n del vinculo seleccionado r_non if ape APOYP5D command INSERT apoyp5d esc 1 p 0 if ape APOYP5I command INSERT apoyp5i esc 1 p 0 if ape APOYP6D command INSERT apoyp d esc 1 p 0 if ape APOYP6I command INSERT apoyp6i esc 1 p O if ape APOYP10 command INSERT apoyp10 esc 1 p O if ape APOYP8 command INSERT apoyp8 esc 1 p 0 if ape APOE5 command INSERT apoye5 esc 1 p 0 if ape APOE6 command INSERT apoye6 esc 1 p O if ape APOE7 command INSERT apoye7 esc 1 p 0 if ape APOE8 command INSERT apoye8 esc 1 p 0 if ape APOE9 command INSERT apoye9 esc 1 p 0 if ape BALASTO command INSERT balasto esc 1 p 0 pgosm ORO IRR AK r EC r CC OK AAA RARA
27. cos 1 04719 cordones setq pl p cordon pl imo nmo setq pl list car p prf cadr p imo 2 last p can cordon pl imo nmo 1 setq pl mapcar p list 2 prf 0 0 cordon pl lmo nmo diagonales setq ip f list car p prf cadr p imo 2 last p can diag i f Imo nmo setq i mapcar p list 2 prf 0 0 f list car p prf cadr p imo 2 last p can 6 61 Rutinas LISP diag i f lmo nmo montantes setq pl p p2 list car p 2 prf cadr p last p mont pl p2 lmo nmo avisoUNDO pgosm pgscp pgcap defun c celtri2 celtri2 RII KO II KC OK IRR A A AA AA I OK A H AAA AH AAA AH AAA AAA AAA AAA AAA KO AAA AA AAA HH H H GENERACION DE UNA CERCHA CUADRADA TRIDIMENSIONAL TIPO 3 gr 7 H H H KO H He OK COCHE A H e H A OK A A HA A A AAA A HHAH A H AAA AAA AH AAA AAA HAHAHA AH KO AAA AA AAA HH H H defun celtri3 can lmo luz nmo p 1 cprev noecho cposm cpscp cpcap r_non setq 1 getvar CLAYER if not wcmatch 1 STR command LAYER T STROL ON STRO1 S STRO1 setq p getpoint nPunto de inserci n de la cercha luz getdist p n nLuz entre apoyos nmo getint nNumero de particiones can getdist n nCanto de la cercha prf getdist n nAncho de la cercha lmo luz nmo cordones setq p
28. defun eschem dim cond dim 100 setq xe 0 10 dim 120 setq xe 0 12 dim 140 setq xe 0 14 dim 160 setq xe 0 16 dim 180 setq xe 0 18 dim 200 setq xe 0 20 dim 220 setq xe 0 22 dim 240 setq xe 0 24 dim 260 setq xe 0 26 dim 280 setq xe 0 28 dim 300 setq xe 0 30 dim 320 setq xe 0 30 dim 340 setq xe 0 30 dim 360 setq xe 0 30 dim 400 setq xe 0 30 dim 450 setq xe 0 30 dim 500 setq xe 0 30 dim 550 setq xe 0 30 dim 600 setq xe 0 30 T setq xe 1 00 ER CORO ROO OOOO OR ROO OOOO AAA A H HA A H AAA AH AAA A HAHA AH HA AO EE A HHH SELECCIONA EL BLOQUE Y ESCALA DE UNA SECCION DADA Y LO DIBUJA CR C ROCK H H H KA KAKA KA H A KO AE A A H A A H A A AAA A H AA A AH AA H AAA AA HAHA AH AAA AH AAA AAA AH AAA HHH defun dibsec tip dim lon ang b ca d h xe ye pto v setq pto list 0 0 lon 2 cond tip IPE po o setq dim atof dim ye dim 1000 xe escipe dim command INSERT tip X xe Y ye Z lon pto ang tip IPN ys EA setq dim atof dim ye dim 1000 xe escipn dim command INSERT tip X xe Y ye Z lon pto ang tip HEA ie SS SSS Yf a Y a setq dim atof dim ye dim 1000 xe eschea dim command INSERT tip X xe Y ye Z lon pto ang tip HEB Qe
29. substr d v 1 1 v substr d 1 substr d v eu 2 7 setq d dim v ca while ca setq ca v setq po ul u2 u3 pi d ca V while Z setq ca v 1 mon nx substr d v 1 1 v gn Iw Iw Iw substr d 1 substr d v mon v 2 1 ca x substr d v 1 1 v setq p2 substr d 1 v 2 p3 substr d v sec 2UPN setq p0 I ul o pi dim sec TE setq d substr dim 14 v 1 ca o 6 34 Rutinas LISP EFCiD Manual del usuario while ca x setq ca substr d v 1 v 1 v setq po J ul C u2 C u3 I u4 I pl substr d 1 v 2 d substr d v ca v 1 while ca x setq ca substr d v 1 v 1 v setq p2 substr d 1 v 2 d substr d v ca v 1 while ca x setq ca substr d v 1 v 1 v print substr d 1 v 2 setq p3 rtos 10 atof substr d 1 v 2 2 0 p4 rtos 10 atof substr d v 2 0 sec RECT HUECA setq d substr dim 7 v 1 ca while ca x setq ca substr d v 1 v 1 v setq pO K ul C u2 C u3 I pl substr d 1 v 2 d substr d v ca v 1 while ca x setq ca substr d v 1 v 1 v setq p2 substr d 1 v 2 p3 rtos 10 atof substr d v 2 0 sec CIRC HUEC
30. v 1 v setq dim2 substr dim 1 v 2 dim substr dim v v 1 ca on while ca I setq ca substr dim v 1 v 14 v 6 27 setq dim3 dim dim sec K RECT HUECA setq f substr dim 1 v 3 substr dim v strcat BxHxalmaxala dimi ny dim2 y dim3 y substr dim 1 1 strlen dim dim substr dim 2 v ca while ca C setq ca V setq diml dim V ca substr dim v 1 1 v substr dim 1 v 2 substr dim v 1 mon while ca I setq ca V setq dim2 dim dim sec L CIRC HUECA setq f substr dim v 1 1 v substr dim 1 v 2 substr dim v strcat bxhxe dimi y dim2 y substr dim 1 1 strlen dim dim substr dim 2 v ca while ca I setq ca V setq diml dim dim 6 28 substr dim v 1 1 v substr dim 1 v 2 substr dim v strcat Dxe dimi y substr dim 1 1 strlen dim Rutinas LISP EFCiD Manual del usuario sec M FE GRI EE ia setq f Placa dim strcat Espesor substr dim 2 gir sec N UW eae a setq f Solido dim gir sec O YMCA D SS E RR SS UD setg f HEA dim substr dim 2 sec P ii ii setg HEM dim substr dim 2 sec Q Eos A setq f NERVIO dim substr dim 2 v 1 ca whi
31. 4 STR CSUP if tblsearch layer STR CINF nil command LAYER N STR CINF COLOR 3 STR CINF if tblsearch layer STR DIAG nil command LAYER N STR DIAG COLOR 5 STR DIAG 6 69 Rutinas LISP z INTRODUCCI N DE LOS PARAMETROS GEOMETRICOS GENERALES DE LA MALLA setq pin getpoint n Punto de insercion de la malla pi getpoint pin in Punto que determina el lado mayor de la malla ima distance pin pl command LINE pin pl SCPEntidad entdel entlast setvar ORTHOMODE 1 setq pin trans pin 0 1 nm p2 getpoint pin n Punto que determina el lado menor de la malla while gt abs car p2 0 01 prompt in ATENCION El punto que determina el lado menor prompt in no puede encontrarse sobre el lado mayor setq p2 getpoint pin n Intentelo de nuevo if gt cadr p2 0 setq ori 1 setq ori 1 setq lme distance pin p2 if gt ime Ima progn prompt An ATENCION La dimension introducida como lado menor prompt in es superior a la del lado mayor prompt in El programa corregira estos datos intercambiando los valores setq L lme lme Ima ima L pro 1 setq pro 1 if pro ori 1 command UCS O p2 if pro 1 command UCS Z 270 setq ab Ima ime sob getreal kg m2 in I
32. C 00 DEMANDA DE INFORMACION C SS INSERCION DE DATOS C DXF EXPORTA A UN FICHERO EN FORMATO dxf LAS ENTIDADES SELECCIONADAS C ZZ SITUAR EL SCP EN EL PLANO PERPENDICULAR A UNA RECTA DADA nomforj CREA LAS CAPAS PARA UBICAR LOS ELEMENTOS DE UN PORTICO ESPACIAL capasstr tl gt props MUESTRA LAS CARACTERISTICAS DE LA SECCION DE UNA BARRA props tl CONSTRUYE EL NOMBRE DEL TIPO DE LINEA CORESPONDIENTE A PATACT actualiza ACTUALIZACION DEL BLOQUE PATACT versec SELECCIONA BARRAS Y DIBUJA EL BLOQUE CORRESPONDIENTE A SU SECCION escipn SELECCIONA LOS FACTORES DE ESCALA DE UN IPN escipe SELECCIONA LOS FACTORES DE ESCALA DE UN IPE eschea SELECCIONA LOS FACTORES DE ESCALA DE UN HEA escheb SELECCIONA LOS FACTORES DE ESCALA DE UN HEB eschem SELECCIONA LOS FACTORES DE ESCALA DE UN HEM dibsec SELECCIONA EL BLOQUE Y ESCALA DE UNA SECCION DADA Y LO DIBUJA dv3dc DIBUJA EL VOLUMEN DE UN ELEMENTO FINITO SUPERFICIAL CON ESPESOR s prompt Cargando las utilidades de GENERALES Wn ORO ORC k KO I KA KAKA AK CC KO COR KO AH A AA DEMANDA DE INFORMACION ROCCO IR RI KE COE OK E H A A e CO OK A KO A HHAH A H AAA AH AAA A HAHA AH AAA AAA AH AA AH AAA HHH defun C QQ conj ent n0 nl n2 v0 vl v2 xl yl z1 x2 y2 z2 setq ent entsel nSeleccione la entidad while nil ent setq n0 car ent ni entget n0 6 19 Rutinas LISP if INSERT cdr assoc 0 n1 command DDATTE n0 if LINE cdr assoc 0 n1 t
33. DIMRND 0 01 setvar LUPREC 2 and lt g 50 gt g 5 setvar DIMLFAC 100 setvar DIMRND 0 1 setvar LUPREC 1 lt g 5 setvar DIMLFAC 1000 setvar DIMRND 1 setvar LUPREC 0 if nil tblsearch LTYPE VOL SEC 6 167 Rutinas LISP progn CreaTl VOL SEC CargaTl VOL SEC if nil tblsearch LTYPE FI4 progn CreaTl FI4 CargaTl FI4 if nil tblsearch LTYPE _FI5 progn CreaTl FIS CargaTl FI5 if nil tblsearch LTYPE _FI6 progn CreaTl FI6 CargaTl FI6 if nil tblsearch LTYPE _FI8 progn CreaTl FI8 CargaTl FIS if nil tblsearch LTYPE FI10 progn CreaTl FI10 CargaTl FI10 if nil tblsearch LTYPE FII2 progn CreaTl _F112 CargaTl FI12 if nil tblsearch LTYPE FI14 progn CreaTl _FI14 CargaTl _FI14 if nil tblsearch LTYPE _FI16 progn CreaTl _FI16 CargaTl _FI16 if nil tblsearch LTYPE _FI20 progn CreaTl _FI20 CargaTl _FI20 if nil tblsearch LTYPE _FI25 progn CreaTl FI25 CargaTl FI25 if nil tblsearch LTYPE FI32 progn CreaTl FI32 CargaTl FI32 setq fich open c cid cad st lin w close fich setq b 10 h 30 6 168 EFCiD Manual del usuario bo 70 ho 5 fck 25 f
34. Imo luz nmo can luz 15 prf can sin 1 04719 cos 1 04719 cordones setq pl p cordon pl imo nmo setq pl list car p prf cadr p imo 2 last p can cordon pl Imo nmo 1 setq pl mapcar p list 2 prf 0 0 cordon pl imo nmo diagonales setq i p f list car p prf cadr p imo 2 last p can diag i f lmo nmo setq i mapcar p list 4 2 prf 0 0 f list car p prf cadr p imo 2 6 60 EFCiD Manual del usuario last p can diag i f lmo nmo montantes setq pl p p2 list car p 2 prf cadr p last p mont pl p2 lmo nmo avisoUNDO pgosm pgscp pgcap defun c celtril celtril ROCCO I KO CHOC KOC HE OK CC KOC KO AH A A AAA A H AAA AH AAA CORO A HHH A X IIR KO AAA AH HA A HHH GENERACION DE UNA CELOSIA TRIANGULAR TRIDIMENSIONAL TIPO2 j 7 H H H RO OK H H H OK COCHE CC A KO H A KO AA A A AA H AH AAA A HAHA HAHA A HHH AA AAA AH AAA AAA AH AAA HHH defun celtri2 can lmo luz nmo p 1 cprev noecho cposm cpscp cpcap r_non setq 1 getvar CLAYER if not wcmatch 1 STR command LAYER T STRO1 ON STRO1 S STRO1 setq p getpoint nPunto de inserci n de la cercha luz getdist p n nLuz entre apoyos nmo getint nNumero de particiones lmo luz nmo can luz 15 prf can sin 1 04719
35. Referencia Principal Valor de OSMODE 7 Direcci n Principal 1 7 Direcci n Principal 2 OFF SOMBREADO 799 el2 atof substr el v strlen el setq v 1 ca W e2 V2 while ca setq ca substr e2 v 1 v 1 v setq e21 atof substr e2 1 v e22 atof substr e2 v strlen e2 setq c ssget X list cons 2 cl getvar CLAYER om getvar OSMODE o list 00 el list ell e12 e2 list e21 e22 r non command UCS 3P o e2 el command LAYER ON PPALES setvar CLAYER PPALES if c nil command ERASE c command INSERT PPALES o 3 escbik 3 escblk 0 0 PPALES nm 6 135 setq sistref PPALESCDG setvar OSMODE om setvar CLAYER cl siH defun C PPAL ejes ppales Rutinas LISP ORR IRR IR ORC JE OK k H A KO A A KO AAA KO I AAA A H AAA A AAA A HAHA HAHA AAA KO AAA AH AAA H H H Dibuja la elipse de los radios de giro centrada pK KO OEC OK OC I KC A A COO A A AH A A AAA A OK A A AH AA AA AAA AH HHAH KO AAA AAA AAA A HA AA HH H H defun erg c cl om pl p2 noecho noH ejes ppales prop reg setq pl list Ry 0 p2 list Ry 0 om getvar OSMODE cl getvar CLAYER r non command LAYER ON PPALES setvar CLAYER PPALES setq c ssget X list cons 8 PPALES cons 0 POLYLINE if c nil command ERASE c
36. entlast setvar CLAYER SOMBREADO command HATCH S secc command LAYER ON SOMBREADO noH setvar CLAYER cl FIR RC KC IRR IR RI ORK A A H OK AA r KO A H AAA H AAA AH AAA AAA AAA OO AA AAA AAA ooo Propiedades mec nicas de una REGION respecto al Sist Referencia Actual PRR AAAI AID R REX KS ELA KEL KARANE KRR A KARA KAKA D ERRER KH EAR ol so KARAKA ARA ERA ol Eo ooo oe X EL defun prop_reg noecho command MASSPROP secc Y c props prompt n n n nPropiedades fisicas de la region respecto del SCP actual if fil nil close fil setq preg c props mpr if preg nil progn setq fil open preg r read line fil read line fil read line fil setq A atof substr read line fil 26 read line fil read line fil read line fil setq zcdg atof substr read line fil 36 ycdg atof substr read line fil 26 Iz atof substr read line fil 27 I y atof substr read line fil 26 Izy atof substr read line fil 27 Rz atof substr read line fil 23 Ry atof substr read line fil 26 read line fil setq I1V1 substr read line fil 26 I2V2 substr read line fil 26 v 1 as yn 6 131 Rutinas LISP while ca setq ca substr IIVI v 1 v lt v setq I1 atof substr I1V1 1 v v 1 ca W while ca setq ca substr I1V1 v 1 v 1 v setq VI substr I1V1 v V1 su
37. getcapa nSeleccione la entidad cuya capa quiere APAGAR if c getvar CLAYER prompt nSe ha seleccionado la capa actual n command CAPA DES c r 7 H H H H H H H KK OEC KOC HE OK COO CK IR KO I OR A A H AAA AH AAA AH HHAH KO AH AAA AAA AH AAA HH H H Desactiva la capa de una determinada subentidad dentro de un bloque PEREA ARA ERASE RARA A YDA OEOEOEOCOEOEOEOE OCOEODOLOE E OEOE OCOEOOEOE E ES OEOFOEOEUEEOKOEESEOEOFOEOEOEOE AKEE RAHA AR AA H defun C AAA c setq c getsubcapa nSeleccione el atributo que quiere APAGAR if c getvar CLAYER prompt nSe ha seleccionado la capa actual Mn command LAYER DES c 6 12 EFCiD Manual del usuario OK 34 36 ke e ke e W oe ke oe ke oe ke oe 36 oe 1456 Sob ke ok 36 o eo eoe ke o 36 36 eo Skot ke o W si e ok eo e o e ok e oe e o e o 36 o e o e o e o e 36 36 34 e o e e e 36 e e 34 n Bloquea la capa de una determinada entidad LAS IL defun C BB c setq c getcapa nSeleccione la entidad cuya capa quiere BLOQUEAR if c getvar CLAYER prompt nSe ha seleccionado la capa actual n command CAPA Bloquear c ss j P 7 H H H H H H IRR I KC IRI KO AAA A AAA A H AAA AH AAA A AAA HAHAHA A AAA AAA AA AAA AH AAA HHH Desbloquea la capa de una determinada entidad SEES ak kababa AA TD en ERER KRR KARE MAKAR kakak RELA BE A kakak RSA DARD kkk kakak RSS DA DAR DDE defun C DD
38. gt cposm r_cer setq pto getpoint nSeleccione la barra ent entget ssname ssget pto 0 cap cdr assoc 8 ent p cdr assoc 10 ent q cdr assoc 11 ent pto trans pto 1 0 pp trans p 01 Coordenadas del extremo inicial del eje en el SCP actual qq trans q 0 1 Idem extremo final VectorZ pp gg pgosm setg pto trans pto 0 1 pp trans p 01 qq trans q 0 1 di distance pto pp d2 distance pto qq if dl d2 setq pins pp setq pins qq 6 150 EFCiD Manual del usuario CROCO I k KO KC r CC AC A A A KAKA H AA A H AAA AH AAA HAHAHA KO IIR KO AAA AA AAA HHH DEFINICION DE LAS CARACTERISTICAS DEL NUDO ORKA H H H k KO I OOOO ORO KO H A A KO AAA A AAA A AAA A AH AAA A AAA A HHH AA AAA A AAA A AAA AH AAA HHH defun carnud nud nud Tipo de Relajaci n del nudo if nud DX setq DX Libre if nud DY setq DY Libre if nud DZ setq DZ Libre if nud GX setq GX Libre if nud GY setq GY Libre if nud GZ setq GZ Libre ORKA H H H KC IR RR H A H d H A OK A A H A A AAA A AAA A H AAA AH AAA AH AAA HAHAHA AAA AAA AAA AAA AH AAA HHH ASIGNACION DEL BLOQUE PATNUD A UNA SOLA BARRA p DE ERA A ETA KA ka hb Susa bhai DAS A SELEKE AE oe DACS D ACA L HADAD RSA ADRE a oboli soc AA EERE defun asignudl cpcap cposm cpscp selpins command _LAYER _S cap command INSERT nudos pins m
39. lap command LAYER N Irr setq p11 puntint pl p2 fr pi2 puntint pl p2 flr p21 puntint p2 p3 fr p22 puntint p2 p3 flr p31 puntint p3 p4 fr p32 puntint p3 p4 flr p41 puntint p4 p1 fr p42 puntint p4 pl flr px puntint p21 p42 fr py puntint p22 p41 fr pxx puntint p11 p32 fr Pyy puntint pll p32 flr command LAYER S lrr omple4d pxx px py pyy 6 6 omple4d pxx pll pl2 px 2 6 omple4d px p21 p22 py 2 6 omple4d py p3l p32 pyy 2 6 omple4d p41 pyy pxx p42 2 6 command LAYER S lab abac pl pil pxx p42 abac p2 p21 px p12 abac p3 p31 py p22 abac p4 p41 pyy p32 command LAYER S 1 hi r_fmi setq pl getpoint nRECUADRO Primera esquina pp pl avisoUNDO pgosm pgscp pgcap j PP H ORC KOC KOC IK CC RR H A A KO IIR AAA A H AA A H AA AA RARA pe ABACO CENTRAL FRR KAJE KR OC HE OK IRR KO A HA A KO I AH AA A H AAA A AAA A HHH A OK AA IR KO AAA A HA AA HHH defun c ABACOC pl p2 p3 p4 lab pll pl2 p23 p34 p41 pp cprev noecho 6 109 Rutinas LISP cposm cpscp cpcap scpu r fmi setq pl getpoint nABACO CENTRAL Primera esquina pp pi while pp nil if pp nil progn setq p2 getpoint pl n Segunda esquina p3 getpoint p2 In Tercera esquina p4 getpoint p3 In Cuarta esquina pil pmig pl p3 p12 pmig pl p2 p23 pmig p2 p3 p34 pmig p3 p4 p41 pmig p4 pl r no
40. p V3pC T SECCIONES 6 39 ON Rutinas LISP SECCIONES S SECCIONES setq textos getstring cRotular tipo y dimensiones de la seccion N textos n textos N if or textos setq textos N setq cap getstring gEn que capa se colocan los rotulos while not setq conj ssget setvar UCSICON 0 repeat sslength conj setq ent ssname conj v n entget ent if and 3DFACE cdr assoc 0 n Z nil assoc 6 n dv3dc n if and LINE cdr assoc O n nil assoc 6 n progn tl Pprops n 6 40 volumen setq pl cdr assoc 10 n p2 cdr assoc 11 n if last p2 last pl if car p2 car pl if lt cadr p2 cadr pij setq p pl pl p2 p2 p if lt car p2 car p1 setq p pl pl p2 p2 p if last p2 last pl setq p pl pl p2 p2 p setq p trans pl O 1 q trans p2 0 1 pt pmig p q p3 mapcar pt 0 1 0 1 0 1 p4 mapcar pt 0 1 0 1 0 1 c ssget C p3 p4 ang anggiro tip nomsec dim dimsec lon distance p q vv 0 repeat sslength c setq e ssname c vv n entget e if and INSERI cdr assoc 0 n SECCIONES cdr assoc 8 n entdel e if TEXT cdr assoc 0 n entdel e setq vv vv 1 Vectorz p q dibsec tip dim lon ang if or textos S textos progn command LAYER pgscp setq pto pmig tra
41. rotula INSERCION DE UNA ROTULA PLANA O ESPACIAL p RI Idem a la funci n rotula selpins PUNTO DE INSERCION DE LOS BLOQUES NUDOS y PATNUD carnud DEFINICION DE LAS CARACTERISTICAS DEL NUDO asignudl ASIGNACION DEL BLOQUE PATNUD A UNA SOLA BARRA actualpatn ACTUALIZACION DE LOS VALORES DEL BLOQUE PATNUD prompt nCargando las utilidades de APOYOS n gk KO CO COR OK CC KO COO OK A AAA A AAA A H AA A AH AAA AAA KK ORO AH HH A AAA AA AAA AH AAA HH H H INSERCION DE UN APOYO HABITUAL pk TER baska NANNA MR A SAA SDA RAHE ERIK REKE RIA TEA RIA SHRI ARDA LERI WIRD ASIA VAR GDA L defun iapoyh aph p aph Tipo de apoyo habitual cposm if aph OTROS chblokl progn setvar OSMODE 1195 setq p getpoint n nUbicaci n del vinculo seleccionado r_non if aph APOYP1 command INSERT apoypl esc 1 p O 6 148 EFCiD Manual del usuario if 9 aph APOYP2 command INSERT apoyp2 esc 1 p 0 if aph APOYP3 command INSERT apoyp3 esc 1 p O if aph APOYP4 command INSERT apoyp4 esc 1 p 0 if aph APOYPG command INSERT apoypg esc 1 p 0 if 9 aph APOYP7 command INSERT apoyp7 esc 1 p 0 if aph APOE1 command INSERT apoyel esc 1 p 0 if 9 aph APOE2 command INSERT apoye2 esc 1 p 0 if aph APOE3 command INSERT apoye3 esc 1 p O if aph APOE4 command INSERT
42. s mapcar list 0 0 m 4 0 0 p command PLINE p W 0 0 05 r W 00 s command UCS X 90 6 68 EFCiD Manual del usuario or lt i 1 h gt i 1 h v PE CF Sd ALENA i 1 d 1 h progn setq p trans p 1 0 command SCP N X 90 setq p trans p 01 r mapcar list 0 0 0 1 0 0 p S mapcar list 0 0 m 2 0 0 p command PLINE p W 0 0 05 r W 00 s command SCP N X 90 nil i progn setq p trans p 1 0 command SCP N X 90 setq p trans p O 1 r mapcar list 0 0 0 s mapcar list 0 0 m 0 p 0 0 p 1 0 command PLINE p w 0 0 05 r w O O s command SCP N X 90 ROCCO H H kk H A A HAHA HHH KO HHH AAA AAA OK OO OK E I A AAA IR RR AAA GENERACION AUTOMATICA DE UNA MALLA ESPACIAL segun NTE EAE j NAKA OC OK H H HA H A HHAH A HAHA HAHA A HH HAHH AA HAHA A AAA A AAA AA AAA AAA AA HAHAHA H HH defun malla tabla pin p1 lma p2 ori lme pro ab sob L lm apo niv h pp alig gl bl abl g2 b2 ab2 mt ma ts ti tdt tda cst m td NTE_mod ih mod a s i d v NTE dim Ace dim nom man Ace dif tl p lc ADECUACI N DE VARIABLES DE SISTEMA cprev noecho cposm cpscp cpcap setvar ORTHOMODE 0 setvar OSMODE 47 scpu CREACI N DE LAS CAPAS NECESARIAS PARA EL TRAZADO if tblsearch layer STR CSUP nil command LAYER N STR CSUP COLOR
43. setq z car p y cadr p sigma f3 z fl y f2 s rtos sigma 2 0 diano if lt sigma 0 if gt z 0 if gt y 0 command INSERT COMPR1 p escblk escblk 0 0 s command INSERT COMPR2 p escblk escbik 0 0 s if gt y 0 command INSERT COMPR4 p escblk escblk 0 0 s command INSERT COMPR3 p escblk escblk 0 0 s if gt z 0 if gt y 0 command INSERT TRACC1 p escblk escblk 0 0 s command INSERT TRACC2 p escblk escblk 0 0 s if gt y 0 command INSERT TRACC4 p escblk escblk 0 0 s command INSERT TRACC3 p escblk escblk 0 0 s diasi defun C TEN tension ROCCO RR HO OK CHECK CORO AE A H A A A HA A A AAA A H AAA H AAA AH AAA HAHAHA AH AAA AA AAA AAA AH AAA H HH Desplaza el eje neutro seg n sea el punto de aplicacion del axil Sue gab aseo E ob RAR ssi e ob oe ole Ek AI kakak AC eol RER i EX KL A SAE DEX EX X HR REL KN F AX skal OPE A opos defun mov en noecho r non setq p getpoint nSeleccione el punto de aplicaci n del axil if p nil progn setq ez car p ey cadr p Mz N ey My N ez if or p3 nil p4 nil zonaEN ejen mov en 6 141 VN Rutinas LISP defun C MEN setq N 1000 scp_cdg mov_en RR OK HEC KOC HE OK OCC KO CO ROR AAA A KAKA AH AAA AH AAA AAA AA HAHA KO ICI IR KO AAA AA AAA H o Mensaje de saludo
44. setvar HIGHLIGHT 1 OK ke ok ke ok ke ok e ok oe ok e o e ok e ok e ok e ok oe ok e ok e ok oe ok e ok oe ok e ok e oe o e o ke oe e ok e ok KRAKA KAKA e ok e HX RER e o e o e o e e e I RA R F 4 F DESACTIVA EL ECO DE LOS COMANDOS OK ke ok ke ok ke ok e ok oe ok e ok oe ok oe ok e ok e ok e ok e ok oe ok e ok e ok oe ok oe ok e ok e ok KARAKA KRAKA e o e ok e ok e ok e o e o e o e o e o e e e e e e e AHR defun noecho setvar CMDECHO 0 p 77 H IC KC KC CHE CC r CC RC AAA OK A H AAA H AAA AH AAA AH HHAH KO AA AAA AAA AH AAA HHH pe JE DESACTIVA LA PRESENTACION DE CUADROS DE DIALOGO ROCCO ORC KK OEC KOC IRR H A A H H A A A KO AAA A AAA A AH AAA H AAA AAA HAHAHA A AAA AAA KO AAA AH AAA HHH defun diasi setvar ATTDIA 1 ROCCO H H KC I KO CHECK d H A H H H A KO AAA A AAA A AH AAA H AAA AH AA HA HHH AA AAA A AAA A AAA AH AAA HHH KX E ACTIVA LA PRESENTACION DE CUADROS DE DIALOGO ROCCO CR Ok KO CK OC IRI KA KAKA KO I A A AAA A KA KAKA KK A AAA A KAKA AH AAA AA AAA EO AAA HHH defun diano 6 3 Rutinas LISP setvar ATTDIA 0 gU k KO I RR OK e H A A COO OK A AAA A AAA A H AAA AH AAA AH AAA HAHAHA KO Ok KO AAA AA K HH o CREA UN NUEVO TIPO DE LINEA PARA ATRIBUIR PROPIEDADES ESTRUCTURALES P 7 H H H OK C I OR RI IR RI A AI IRR IRR A AH AAA A AH AAA AH AAA A HAHA KO AA AAA A AAA AH AAA HH H H defun CreaTl tpl command _LINETYPE A OL tpl c cid cad st lin Define tipo de elemen
45. tI1 rtos I1 nt d tI2 rtos I2 nt d command INSERT COPYRIGHT pl escblk escblk 0 0 command INSERT PROPS pl escblk escblk 0 0 tA CE ox tI y tIzy tRz tRy tV1 tV2 til tI2 command _UCS _P diasi siH defun C PROP siH command LAYER ON REGION OFF SOMBREADO command UCS y setvar UCSICON 1 setq ori getpoint n n n nDesigne el origen del nuevo Sistema de Referencia ejex 180 getorient ori nIndique la orientaci n del eje OX pi command UCS M ori command UCS Z ejex setq secc car entsel nSeleccione una regi n prop reg cuadro setq sistref OTRO command LAYER ON REGION SOMBREADO 6 133 Rutinas LISP prompt n n n nPropiedades fisicas de la region calculadas con respecto al SCP actual command UCS y defun C PROPCDG siH command LAYER ON REGION OFF SOMBREADO scp cdg prop reg cuadro command LAYER ON REGION SOMBREADO prompt n n n nPropiedades fisicas de la region calculadas con respecto al SCP actual rj 7 H H H H H H H k H H H e d H H H 3 H A A k H A COO I A A AAA OC H AAA AH AAA AH AAA AH AAA AAA KO AAA AAA A HH H H Cambia el origen del SCP al CDG de la REGION y obtiene Prop Mec nicas ia EH HH KHER IHRE oko oc NA oboe spo qoe SARA AK POE sc so A obses oki copa aco oc er NAR FAA AINA ADA A BA ADHD A DAH
46. tl v ca lons hh h2h pl p2 p3 p4 p5 p6 p7 p8 pll p22 p33 p44 x y z setq tl cdr assoc 6 In setq lons strlen tl hh atof substr tl 5 lons 4 hh hh 1000 h2h hh 2 setq pil cdr assoc 10 inj p22 cdr assoc 11 In p33 cdr assoc 12 ln p44 cdr assoc 13 in setq x distance pil p44 y distance p33 p44 6 47 if or x 0 0 setq pl p22 setq pl p44 command UCS 3p pil p33 pi pli trans p11 0 1 p22 trans p22 0 1 p33 trans p33 0 1 p44 trans p44 0 1 setq setq setq setq setq setq setq setq setq pbase pl scpu x nth 0 pil y nth 1 p11 z nth 2 p11 z z h2h pl list x y z z z hh p5 list x y z x nth 0 p22 y nth 1 p22 z nth 2 p22 z z h2h p2 list x y z ya z hh p list x y z x nth 0 p33 y nth 1 p33 z nth 2 p33 z z h2h p3 list x y z z z hh p7 list x y z x nth 0 p44 y nth 1 p44 z nth 2 p44 z z h2h p4 list x y z z z hh p8 list x y z y 0 0 p2 p3 p4 p5 p6 p7 p8 Rutinas LISP 6 2 M dulo de Generaci n de Prototipos Estructurales Este m dulo est compuesto por los siguientes grupos de rutinas 6 48 Funciones B sicas Generaci n de Celos as planas Generaci n de Celos as tridimensionales EFCiD Manual del usuario Generaci n de Mallas Espaciales Generaci n de Sistemas Estructurales desar
47. yy Qt MEL E2 A D 8 Ak 2 74 0425 N18 fform cons yy fform XX Lis C Ltt fta ebb 8 2 0 0 125 N19 fform cons xx fform YY FT 82 AM P DEE 1 9 25 N20 fform cons yy fform ff reverse fform FRR KARE HO H H CHECK RIOR AA AAA A AAA A AAA AH AA AA AAA AAA AAA AAA AAA AAA AAA kk A FUNCION QUE DIBUJA UN HEXAEDRO ISOPARAMETRICO RC ORC KO I IR H AA H OK KOC AA HA AA AAA A AAA AA AAA A OK A AAA AH ROCK KO ROO AAA AAA AA HHAH defun dibs20 cor20 pl p2 p3 p4 p5 p6 PT p8 xn yn zn PX py pz x y z di d2 d3 d4 d5 d6 d7 d ffm setg xn nth 0 p1 yn nth 1 pl zn nth 2 p1 ffm ffor xn yn zn di corcar cor20 ffm xn nth 0 p2 yn nth 1 p2 zn nth 2 p2 ffm ffor xn yn zn d2 corcar cor20 ffm xn nth 0 p3 yn nth 1 p3 zn nth 2 p3 ffm ffor xn yn zn d3 corcar cor20 ffm xn nth 0 p4 yn nth 1 p4 zn nth 2 p4 ffm ffor xn yn zn d4 corcar cor20 ffm xn nth 0 p5 yn nth 1 p5 zn nth 2 p5 ffm ffor xn yn zn d5 corcar cor20 ffm xn nth 0 p6 yn nth 1 p6 zn nth 2 p6 ffm ffor xn yn zn 6 93 d6 xn yn zn ffm d7 xn yn zn ffm d8 corcar cor20 ffm nth O p7 nth 1 p7 nth 2 p7 ffor xn yn zn corcar cor20 ffm nth 0 p8 nth 1 p8 nth 2 p8 ffor xn yn zn corcar cor20 ffm pbase dl d2 d3 d4 d5 d d7 d Rutinas LISP OOOO RO KO I OK OC IR EEE A AAA A AH AAA H AAA AAA FUNCION PARA DIBUJAR UNA TIRA DE SOLIDOS 6 CAR
48. 0 at length dx progn setq dx vanos x while x length dx prompt nEl numero de vanos no coincide prompt con el n mero de luces setq dx vanos x while not or gt y 0 nil y 6 105 setq y getint nNumero de vanos en direcci n Y if nil y progn setq dy vanos 0 y length dy progn setq dy vanos y while y length dy prompt nEl n mero de vanos no coincide prompt con el n mero de luces setq dy vanos y while not or 5 h 0 nil h setq h getint nNimero de plantas command UCS x 90 if nil h progn setq dh plants 0 h length dh progn setq dh plants h while h length dh prompt nEl numero de plantas no coincide prompt con el numero de alturas setq dh plants h scpu if and nil x Z nil dx nil y Z nil dy Z nil h Z nil dh progn setg i dx j dy NB GG ooo if tblsearch LAYER STRO1 nil command LAYER N STRO1 COLOR 2 STRO1 if tblsearch LAYER STRO2 nil command LAYER N STRO2 COLOR 3 STRO2 if tblsearch LAYER STRO3 nil command LAYER N STRO3 COLOR 7 STRO3 repeat y repeat x setq k dh repeat h setq q mapcar list 0 0 0 0 car k p l mapcar list car i 0 0 0 0 q m mapcar list 0 0 car j 0
49. 0 q command LAYER VERE UA STRO1 ON 6 106 Rutinas LISP EFCiD Manual del usuario STROI gn STROI n command LINE p q command LAYER T STRO2 ON STRO2 gn STRO2 n command LINE q 1 command LAYER T STRO3 ON STRO3 gn STRO3 n command LINE q m setq k cdr k pg setg p mapcar list car i 0 0 0 0 n np setg i cdr i setg k dh repeat h setg g mapcar list 0 0 0 0 car k p m mapcar list 0 0 car j 0 0 g command LAYER T STRO1 ON STROI gn STRO1 n command LINE p q command LAYER T STRO3 ON STRO3 gn STRO3 n command LINE q m setq k cdr k pg setg i dx setg n mapcar list 0 0 car j 0 0 o on setg p mapcar list 0 0 car j 0 0 a ap setq j cdr j setq o p repeat x setq k dh repeat h setg q mapcar list 0 0 0 0 car ky p 1 mapcar list car i 0 0 0 0 q command LAYER T STRO1 ON STRO1 g STRO1 n command LINE p q command LAYER T STRO2 ON STRO2 gn STRO02 n command LINE q 1 setq k cdr k pg setg p mapcar list car i 0 0 0 0 o 6 107 Rutinas LISP op i cdr i setq k dh repeat h setq q mapcar list 0 0 0 0 car k p command LAYER T STRO1 ON STRO1 S STRO1 mo com
50. 220 240 270 300 330 360 400 450 500 setq setq setq setq setq setq setq setq setq setq setq setq setq setq setq setq xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe HO cy 3 OS OS SOS OS Oem GO 6 DO O cocos oce 90900 900 o o ON 042 050 058 066 074 082 090 098 106 da ELLIN 125 131 137 143 149 155 170 185 200 v215 000 046 055 064 073 082 091 100 110 120 135 150 160 170 180 190 200 V3DC nn 6 41 dim 550 dim 600 T setq xe 0 210 setq xe 0 220 setq xe 1 000 Rutinas LISP ORI ROO OOOO KC r CC A A A AAA A HA A A AH AAA AH AAA AH AAA A AAA AA AAA A AAA A AAA AH AAA o it SELECCIONA LOS FACTORES DE ESCALA DE UN HEA ORR K KO I KK COE OK CC KO A A KO HH A KAKA KA KAKA RR kk KO E H o defun eschea dim cond GE dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim 100 setq 120 setq 140 setq 160 setq 180 setq 200 setq 220 setq 240 setq 260 setq 280 setq 300 setq 320 setq 340 setq 360 setq 400 setq 450 setq 500
51. AAA A HAHA KO AA HA AA AAA AH AAA HH H H defun forjabis pl p2 p3 p4 r_non 3_CARA pl p2 p3 p4 6 166 EFCiD Manual del usuario 6 7 M dulo de C lculo y Trazado de Forjados j CALCULO DE ARMADURAS Y TRAZADO FORJADOS UNIDIRECCIONALES carac PIDE LAS CARACTERISTICAS DEL FORJADO forj Pide datos los salva llama al calculo lee resultados y llama a la funcion ponneg para dibujar los negativos c forj Idem a la funci n forj salva SALVA LOS DATOS DE FORJADO PARA UTILIZARLOS EN EL CALCULO neg Dibuja manualmente un negativo c neg Idem a la funci n neg dibneg DIBUJA LAS ARMADURAS DE NEGATIVO dibtot LLAMA AL FICHERO DE RESULTADOS Y LO DIBUJA TODO ponpos FUNCION PARA COLOCAR LA ARMADURA DE POSITIVOS prompt Cargando las utilidades de CALCULO Y DIBUJO ARMADO FORJADOS An ROCCO ORC RI RR HK k H A H CO KO A HA A A KO A AAA A H AAA AH AAA A HAHA A AAA AAA KO AAA AH AAA HHH INICIALIZACIONES ROCCO IIR KO CK OC IR H A OK A A A A A AH A A AAA A HHAH A H AAA AH AAA A HAHA HHH AA HA AA AAA A HA AA HHH setq g 50 h 0 002 g a 0 005 g b 0 0015 g gf eg Su h q 0 0008 g p 0 5 q escala g 100 setvar DIMASZ gf setvar DIMEXE b setvar DIMEXO a setvar DIMTSZ p setvar DIMDLE q setvar DIMTIX 0 setvar DIMZIN 0 setvar LUNITS 2 command STYLE cotas h 1 0 0 0 mm mm cond gt g 50 setvar DIMLFAC 1 setvar
52. AH CORO KO ORO KO AAA AH AAA HH H H defun insecheb tip setq nomsec HEB dimsec strcat rtos tip 2 0 6 118 EFCiD Manual del usuario testacero actualiza E ok ob ke e ke ke okt ke oP ke oe ke o ke oe eo eoe ke ok ke oe ke ok eoe ke o ke o ke ok eoe e ok e oe e o eo e ok e o e o e o e o e o e o e o e o e k e o e o e e E E it PIDE DATOS SECCION HEA E ke ke e ke oe ke oe ke o ke e ke oe e oe ke o ke oe ke ok ke oe eoe ke ok ke ok eoe e o eo ke o eoe O k e o eo ke o e o e ok e o e o e o e o e o e S e e e e e e RARA defun insechea tip setq nomsec HEA dimsec strcat rtos tip 2 0 testacero actualiza CROCO I IR KO CK OC HE KC A H CO KO AA A A AAA A H AA A AH AAA AH AA AA HAHA AH AAA AAA KO AAA AH AAA HHH PIDE DATOS SECCION HEM CORO RC k KO CK RI H OK e H AE H CO KO AA A A AAA A AH AA A H AA AA AAA AH HHAH AAA AH KO AAA AH HA A HHH defun insechem tip setq nomsec HEM dimsec strcat rtos tip 2 0 testacero actualiza OOOO ROO JERE KO CK KO A A H AA A H AA A H AAA H AAA A AAA HAHAHA A HAHA HAHAHA HHAH HH PIDE DATOS SECCION 2UPN EN CAJON OKR IRR CK OC JE H H H CORO KO AE A A A H A HH A A AAA A H AA A H AAA AH AAA AH AAA AH HH AAA KO AAA AH AAA HHH defun insec2upn tip setq nomsec 2UPN dimsec strcat rtos tip 2 0 testacero actualiza DK ke ke e ke oe ke e ke oe ke e ke HA oe ke o ke oe ke o ke oe ke o eoe ke o ke ok ke ok eoe
53. CHE OK ORC OK H A H OK A AA A AAA INTRODUCION DE FORJADO VOLADIZO ORCI I k KO HEC KOC HE OK CORO A H H A KO AAA RR AH AAA HHH defun forjavo pl p2 p3 p4 osm cposm r fmi setq pl getpoint nPrimer extremo viga 1 setq p2 getpoint pl nSegundo extremo viga 1 setq p3 getpoint p2 nPrimer extremo del voladizo setq p4 getpoint p3 nSegundo extremo del voladizo forjabis pl p2 p3 p4 pgosm defun C FV forjavo p 7 74 H He H CORO k KO CK OC IR CC CO KO A A A RA HAHA AH HH INTRODUCION DE FORJADO UNIDIRECCIONAL CROCO IIR KO HEC KOC IRI H e H AE A OK A A HA A A AAA A H AAA H AAA AH AA HAHAHA AH HH AA HA AA AAA AH AAA HHH defun forjauni pl p2 p3 p4 p5 p6 osm cposm r_fmi setq pl getpoint nPrimer extremo viga 1 p2 getpoint pl nSegundo extremo viga 1 p3 getpoint p2 nPrimer extremo viga 2 p4 getpoint p3 nSegundo extremo viga 2 p5 pmig pl p4 p6 pmig p2 p3 forjabis pl p2 p6 p5 forjabis p3 p4 p5 p6 pgosm defun C FU forjauni j 7K 7 He H ORO RR CC KO H A KO AA A KK A H AA A H AAA AAA AA HAHA AH AA AA HAHA A AAA AH HAHH HH INTRODUCION DE FORJADO BIDIRECIONAL ZEREKAKA KAKE RAR HHRH HARAN SR RR RER ARKA RAR XAR MR AACA SAHR olea o oclo ye RARA RXRA RARA AL ADA defun forjabi poi pj pk pl pij pjk pkl pil pc bi bj bk bl osm cposm r fin setq poi getpoint nPrimer vertice del recuadro p
54. ELEMENTOS 3Dcara DE CUATRO LADOS EN CUADRILATERO ALABEADO rj 7 H H I KK H H oe KK COH H H H COR OK CC H A AH H A AAA A AAA A AH AAA A AAA AH HHAH AAA AA KO AAA AH HA A HHH defun ph4d pl p2 p3 p4 nll nl2 dd cprev noecho cposm cpscp cpcap r fmi setq pl getpoint nPrimera esquina p2 getpoint pl nSegunda esquina dd distance pl p2 princ n Longitud del lado 1 princ dd setq nll getint Yin Numero elementos en lado 1 2 p3 getpoint p2 nTercera esquina dd distance p2 p3 princ n Longitud del lado 2 princ dd setq nl2 getint n Numero elementos en ese lado 2 3 p4 getpoint p3 nCuarta esquina r non omple4d pl p2 p3 p4 nil n12 avisoUNDO Pgosm pgscp pgcap defun C ph4d ph4d p 7 H H IIR KO AC ROO ROO CC KO CC A AAA A AH AAA H AA AA AA HAHH AAA AH AAA AAA AAA AH HA EE FUNCION DIBUJA UN MURO DE ALTURA H CON ELEM FINITOS 4LADOS CC RC k H OK ORC OK d H AE OK AE H KO A HA A A AAA A H AA A H AA A AH AAA A HAHA KO A A AAA AAA AA HAHA A HHH setq tph 0 4 tph tamafio particion horizontal npv 8 F npv numero particiones vertical AIE 340 alt altura muro defun mur pp pl p2 p3 p4 d nh bb bbb f lm 1z cprev noecho cposm cpscp cpcap r fmi scpu setq bbb npv princ in N Divisiones en vertical princ bbb princ setq npv getint if eq eval npv nil setq npv bb
55. H He H KO CK OC KC A H COO KO AH A A AAA defun diagl i f lmo nmo pl p2 cprev setq pl i p2 f repeat nmo command LINE pl p2 setq pl polar pl pi 2 Imo p2 polar p2 pi 2 Imo p 7 7 He H I IRR HEC KOC HE OK RIOR KAI RRR RARA it GENERACION DE DIAGONALES EN CERCHAS TRIDIMENSIONALES IDA Y VUELTA ROCCO CR Ok KO H KK COE H A A H A A H H KO AAA AAA defun diag i f lmo nmo pl p2 cprev setq pl i p2 f repeat nmo command LINE pl p2 6 59 Rutinas LISP setq pl polar pl pi 2 imo p2 polar p2 pi 2 lmo setq lmo 0 imo pi list car i cadr i luz last i p2 list car f cadr f nmo 1 1mo last f repeat nmo command LINE pl p2 setq pl polar pl pi 2 1mo p2 polar p2 pi 2 1mo FRI KO CK OC IRI RRR A A A A A A A HA A A AAA A HA AA AH AAA HAHA A HH AAA KO ORO AAA I AAA EO HH H H GENERACION DE UNA CELOSIA TRIANGULAR TRIDIMENSIONAL TIPO 1 ORI KO CO IRR RI OK C H A A H H A A KO AH A A AAA A OK ORC H AAA A AAA ORO KO IIR KO AAA AH AAA o defun celtril can lmo luz nmo p 1 cprev noecho cposm cpscp cpcap r_non setq 1 getvar CLAYER if not wcmatch 1 STR command LAYER T STROL ON STRO1 S STRO1 setq p getpoint nPunto de inserci n de la cercha luz getdist p n nLuz entre apoyos nmo getint nNumero de particiones
56. HAHA A HHH defun warren can lmo luz nmo p 1 cprev noecho cposm cpscp cpcap r_non setq 1 getvar CLAYER if not wcmatch 1 STR command LAYER T STRO1 ON STRO1 S STRO1 setq p getpoint nPunto de inserci n de la cercha luz getdist p n nLuz entre apoyos nmo getint nNumero de particiones 6 57 Rutinas LISP imo luz nmo can luz 12 cordinf p lmo nmo cordsup p lmo nmo can montant p lmo nmo can diagonA p lmo nmo can carcel p lmo nmo avisoUNDO pgosm pgscp pgcap ORR KK OK ORC OK CC KO AE A KO I OOOO OOOO AH A KO AA AAA AAA AA HA AA e e Generaci n de las cargas de cualquier celosia ARKA KAKA KM KA Kam copo proe TRR RSA SANA aka RRA A kakak SAGAS Ota Fo kana defun carcel p lmo nmo sup dis mod pl cprev setq sup getreal nCarga superficial de la cubierta T m2 dis getdist nDistancia entre cerchas paralelas m pl list car p cadr p can mod sup dis Imo repeat nmo 1 insfue 90 pl mod setq pl polar pl 0 1mo 6 2 3 Generaci n de Celos as tridimensionales x TRAZADO DE CELOS AS TRIDIMENSIONALES cordon GENERACION CORDONES mont GENERACI N DE MONTANTES diagl GENERACION DE DIAGONALES IDA diag GENERACION DE DIAGONALES IDA Y VUELTA celtril GENERACION DE UNA CELOSIA TIPO 1 celtri2 GENERACION DE UNA CELOSIA TIPO 2 celtri3 GE
57. HAHA AAA A AAA A AAA AH AAA AH AAA AAA AA HAHA HHAH AA PROPIEDADES DE LA MADERA RI CCR KA KAKA AK AKA H H A HHH A A HAHA AAA A AAA A AAA A A AAA AH AAA AAA AA HAHA HAHA AA HAHH HH defun madera n setq nommat MADERA module 120000 poiss 0 15 dens 500 cterm 0 00001 n getvar useri2 1 setvar useri2 n setq nummater strcat rtos n 2 0 nommat nummat n insmater MADERA P 7 H H H IIR KO HEC OK CHECK RI H H COO A A HH AA AAA A AAA AA AAA AH AAA AAA AA X AH AAA AAA AA Rk HH PROPIEDADES DEL LADRILLO P 7 H H H CNC H H H H IR RI H A A RI ROR A H HH AA HA AA AAA A AAA A AAA A AAA A AH AAA AAA AA I RR HAHAHA HAHH defun panal n setq nommat LADRILLO module 70000 poiss 0 2 dens 1600 cterm 0 00001 n getvar useri2 1 setvar useri2 n setq nummater strcat rtos n 2 0 nommat nummat n insmater LADRILLO 6 126 EFCiD Manual del usuario r KAKA RA IR H e 3 H H H CORO KO CC H A A H A A AAA A AAA A AH AAA AH AAA AH AA AA X A HAHA HAHA H HAHH H PROPIEDADES DE LA FABRICA DE BLOQUES DE HORMIGON RR IRR I OK H oe IIR CORO KO COO KO H AR H H HHH defun bloque n setq nommat BLOQUE module 80000 poiss 0 2 dens 1500 cterm 0 00001 n getvar useri2 1 setvar useri2 n setq nummater strcat rtos n 2 0 nommat nummat n insmater BLOQUE j P 7 H H CC KO CHE OK COE H CC A H CC H KO HH A
58. HEXAEDRICO SERENDIPTICO DE 20 NODOS P 7 H H ORC OK I RRR I KO CHE OK A A AAA A AAA A HHAH A H AA AA AA AA AAA AA AAA AH AAA AAA AA AAA HHH defun ffor s tt q fform s2 t2 q2 xx yy ff setq s2 s s t2 tE tt q2 qq XX ELE L BK xe LEE eI q 2S pe g 2 0 0 125 NI YY BA E SCEZ deus CL g 95225 N2 fform list yy xx XX PAD Sy r TO Et 21 08 EC Q 220 0 725 7N3 fform cons xx fform yy FT gt 3 921 F PEE la 9 25 N4 fform cons yy fform XX 1s 1 tt 1q tt sg 2 0 0 125 N5 fform cons xx fform yy gt 4t2 CAL a de dq 0 235 N6 fform cons yy fform xx X T gt EOS d tt NG ME DO tt 5 q 2 0 0 125 N7 fform cons xx fform YY gt 1 52 1 tt 1 9 0 25 N8 fform cons yy fform YY 1 92 1 s 1 tt 0 25 N9 6 92 EFCiD Manual del usuario fform cons yy fform yy 1 g2 Tos AA tt 0 25 N10 fform cons yy fform yy 1 g2 Dos 1 tt 0 25 N11 fform cons yy fform yy ie QZ 22 BV 1 6t 00 25 N12 fform cons yy fform XX 158 1 tt 1q sg tt 2 0 0 125 N13 fform cons xx fform YY f 1 t2 1 s 1 q 0 25 N14 fform cons yy fform XX CH P L EST APF Et AFD GP AS Fi tt g 220 0 125 NT5 fform cons xx fform yy 5 31 82 1 Et APA g 0 25 N16 fform cons yy fform XX 1s 1 tt 1 q tt q s 2 0 0 125 N17 fform cons xx fform
59. apoyp2 pl if equal tt 3 command INSERT apoyp3 pl if equal tt 4 command INSERT apoyp4 pl if equal tt 5i command INSERT apoyp5i pl if equal tt 5d command INSERT apoyp5d pl m if equal tt 6i command INSERT apoyp6i pl if equal tt 6d command INSERT apoyp6d pl n if equal tt 7 command INSERT apoyp7 pl if equal tt 8 command INSERT apoyp8 pl if equal tt 9 command INSERT apoyp9 pl if equal tt 10 command INSERT apoypl0 pl if equal tt 11 command INSERT apoypli pl if equal tt 12 command INSERI movfp pl pgosm CROCO KRA CK OC EC A KO COO H A A AAA RR A HAHA A HHH INSERTA APOYOS GENERICOS ESPACIALES 6 143 Rutinas LISP pK KK H H oke KOC RR H A A CC OK A HA A AH HA A H AAA H AAA AH AAA AH ORO AAA IIR AA AAA AH AAA HH H H defun inapoye tt pl osm noecho cposm scpu r fin setq pl getpoint in Base Soporte r non if equal tt 0 command INSERT apoyeg pl if equal tt 1 command INSERT apoyel pl if equal tt 2 command INSERT apoye2 pl if equal tt 3 command INSERT apoye3 pl if equal tt 4 command INSERT apoye4 pl if equal tt 5 command INSERT apoye5 pl
60. ce e ce e ck e ce e ce e ce e e e ce e ce e ce e e e e e e e e KARAKA 0 e Detecta el color de una entidad o msg ent col 1 c subentidad defun getcolor setq ent getsubent msg if nil ent progn setq ent entget ent col cdr assoc 62 ent 1 cdr assoc 8 ent if nil col setq c cdr assoc 62 tblsearch setq c col layer 1 6 16 EFCiD Manual del usuario RR IRR CK OC HE OK CORO OK OK A H A A HA AAA defun getlinea msg ent tl 1 c Detecta el tipo de l nea de una entidad o subentidad setq ent getsubent msg if nil ent progn setq ent entget ent tl cdr assoc 6 ent 1 cdr assoc 8 ent if nil tl setq c cdr assoc 6 tblsearch layer 1 setq c tl FR ORC RI KO CHECK CC OK A A H AA AAA RA 7 Copia todas las entidades de una capa a otra capa ob AA FOE SEDE MAREA ERRER kababa dak kakaba eol p kakak hk sane SARS ARES seo ERE RAS LR ESA RSF defun copiacapa 1 Capa origen ni Capa destino conj c setq conj ssget X list cons 8 1 c ssget X list cons 8 nl if nil c progn copiaconj conj capaconj conj nl progn prompt strcat nLa capa nl no est vacia setq 7 getstring In Se copian las entidades S N Lf o SY progn copiaconj conj capaconj conj nl p 7 7 H IC kk IR RI IRR A HH A A AAA A AAA A KO A AAA A H AAA A AAA AH HHAH KO II RR AAA AAA A HHH Copia entidade
61. e 3 e ce e ce e e e ce e e sk sk e e 9 e e e c e ce e W e ce e ck e ck e ck e ce e k e ce e e e c u ie e e e e e e e e e defun capaconj conj 1 Cambia la capa de un conjunto de entidades if nil conj command CHANGE conj P LA OK ke ok e ok e ok e ok e ok e ok e ok e ok e oe o e ok e ok e ok e Sk e o e S e koe koe oe oe oe oe oe oe oe oe oe oe oe oe oe oe e oe oe e e e e e n F Selecciona una entidad 7 defun getent msg car entsel msg kk ke ce e oe e oe e oe e oe e oe e oe e oe e ce e ce e e e e e e e ce e ck e e e e e e e ce e ce e ce e ce e ck e e e ce e ce e c e ce e c e e e e e e e e e e e e e e e e e e Selecciona una subentidad de un bloque 7 defun getsubent msg car nentsel msg OK e ok e ok e ok e ok oe ok e ok e ok oe ok e ok oe oe ok e ok e e ke koe 36 e oe 3 HE oe oe koe oe koe oe oe oe oe oe oe oe 36 96 e KAKA KAKA KAKA defun getrotul msg ent Detecta el r tulo de una entidad setq ent getent msg if nil ent cdr assoc 5 entget ent OK ke ok kk k k k ok H ok H H H H H H H H H HH ok e o e ok e ke ok e koe ok e ok e koe oe oe oe oe oe oe oe oe oe oe oe oe oe e e e e e e e e e e n defun getsubcapa msg ent Detecta la capa en la que se encuentra una subentidad setq ent getsubent msg if nil ent cdr assoc 8 entget ent kk ke oe sk oe e oe e oe e oe e oe e e e e ce e o e c e c e oe e ce e c e e e ck e oe e ce e e e
62. e ok e o e ok eo e o e o e ok Y ue e o ke o e o e o e o e o e o e o e o AAA it PIDE DATOS SECCION PERFIL GENERAL X ke ke e ke oe ke ob ke ke oe ke o ke oe ke o e oe ke E ke oe ke ok eoe eo eoe e ok e o e ok eoe SP ok e o eo e oe e O e o e o e o e HHRH o e o e o e o e e e KHH HA defun insecpergen setq nomsec getstring nNombre Perfil dimsec getstring nNumero Perfil actualiza CORO IIR KO RC KO COE CORO KO H A H KO A OE HHH it PIDE DATOS SECCION GENERICA CORO RR I KO C IR RR AE A KO AAA KO A H AA A H AAA AH AAA AAA HA AH AAA AA KO AAA AH AAA HHH defun insecgen ax ix iy iz 6 119 setq ax iz iy ix dimsec strcat Ax getreal nArea getreal nIz getreal nIy getreal nIx tors nomsec GENERICA rtos ax 2 Ix rtos ix 2 Iy 0 0 rtos iy 2 0 Ig rtos iz 2 actualiza 0 cm2 cm4 cm4 cm4 Rutinas LISP ORI KK OEC KA KAKA AK CORO KO A A A KO II A AAA A AH AAA AH AAA AH AA AA HAHA KO IIR KO AAA AH AAA HH H H FUNCION QUE PIDE DATOS SECCION DE USUARIO Y PERFILES CONFORMADOS EN FRIO pK KK OO RR IR e H H H COR KO AA A A H HA A AAA A H AAA CROCO KK ORC KO IIR RO I AH AAA H H H defun insecusr tip n setq nomsec USUARIO dimsec strcat tip actualiza defun insecl a b testacero insecusr L strcat rtos a 2 0 defun inseclf a b
63. fcd b d CC ROCK H H H k CO OK OC OK COR H A AH A A AAA A H AA OK AAA AA HHH AA AAA KO AAA AH OK HHH defun ussl fcd b d md u0 p setq u0 0 85 fcd b d p u0 1 sqrt 1 2 md u0 d j P PER I KOCH KK CC KO CO KO A A OK AH A A KO I H AA A H AAA AH AAA A AH HHAH AAA AAA KO AAA AH AAA HHH pu E A Devuelve US2 para md gt mlim x D ancho cm Ped canto util cm md momento de calculo en kpxcm devuelve Us2 en kp ud 0 85 fcd b d p 7 H H H H H H H H H H H H KC A H KO C OK OC OK H AH AA AAA A AAA A AAA A HAHA HAHA AH AAA HAHA KO AAA AH HA AH HH defun uss2 fcd b d rec md u0 p dl setq dl d rec p md ud d 0 375 dl 6 181 Rutinas LISP FRR OK C HK KOC OK e H A H CO KO I A H AA A AH AAA AH AAA AH AA AA HAHA KO ORO KO AAA AA AAA HH o PENE H Devuelve diametro FI mm DE POSITIVOS NERVIOS asi cm2 de armadura busca entre la serie preparada de redondos lar lista de areas de 2fi LLL lista de diametros fi en mm A Si KAK BEEN OCOCOEOEOEOEOE KAKA ARE AREA AE AAA EA LAA RA KA KK kA AREER LARA ERRAR A AAR AAA RA AE defun buscafip asl lar Ifi ctrl nl nv al a2 aa setq lar 0 1 01 1 57 2 26 4 02 6 28 9 82 lfi 0 8 10 12 16 20 25 fi O nv 0 repeat 6 setq nl nv nv 1 nv al nth nl lar a2 nth nv lar if gt asl al progn if asl a2 setq fi nth nv lfi if fi dmin setq fi dmin setq aa fi FRR I IRR KRR
64. gb SE CAMBIO A BLOQUE DE APOYOS ESPECIALES ROCCO RR I KC KC OK COO KO HA A AAA defun chblok1 lyr pin cpcap if not wcmatch lyr PANELES command LAYER T PANELES ON PANELES S PANELES setq pin list 0 0 0 entdel panel command INSERT apoye esc 1 5 pin 0 0 pgcap p NAKAKAKABA KAKA OK COO CROCO CC A A AAA quta S CAMBIO A BLOQUE DE APOYOS HABITUALES CR IIR RI RE IRR IRR COO OK RARA 6 149 Rutinas LISP defun chblok2 1 pin cpcap if not wcmatch lyr PANELES command LAYER T PANELES ON PANELES S PANELES setq pin list 0 0 0 entdel panel command INSERT apoyh esc 1 5 pin 0 0 pgcap ORR KA KAKA KA KAKA KA CORO OC KO A H A A KO A AAA A AH AA AA AAA A HAHA KO AAA KO AAA A HA AA HH H H INSERCION DE UNA ROTULA PLANA O ESPACIAL pa LX HADAD HANAN AS DL AD SDA RASA RNA AHAD ADEM ra AVA kana Y A SC DADA DARAI CEU ONU SADA H defun rotula pins gt cposm r fin setq pins getpoint Punto de inserci n de la ROTULA r non command INSERT rotula pins N mm pgosm defun C RT rotula ORR KK OEC KOC OK IRR KO I A A AAA A AH AAA H AAA AAA AA HAHAHA AAA AAA AAA OR OR EO HAHH SELECCION DEL PUNTO DE INSERCION DEL BLOQUE NUDOS EF ARIREKRE HAS RSA SX KASD RDX HHL REAR EARS kok kok R RASAR ESR UAL D RELHA ARA CREA ER REL EAE ER EX defun selpins a pp qq
65. insforja INSERTA BLOQUES TIPO DE FORJADO editforja EDITA LAS CARACTERISTICAS DEL FORJADO selforja SELECCIONA LAS CARACTERISTICAS DEL FORJADO lanclb Determina la longitud basica de anclaje prompt Cargando las utilidades de ARMADO NERVIOS EN T Vn p 7 H H C OK HC KOC KO CC KO CO KO I H A A A A A AH AH A H AH AA AA KK OR A KO IIR KO AAA AH HA EE QV WE OBTIENE LA ARMADURA DE NERVIOS EN T 7 EDO ancho nervio x d canto total b ancho losa intereje nervios Eho canto losa md momento mkp devuelve el area cm2 de armadura de positivos en el nervio si la armadura es NEGATIVA SECCION INSUFICIENTE pA C KO CHE KOC OK H H OK OCC OK HA A A AAA A AAA A AAA A HAHA HAHH AAA AH AA AAA A AAA HHAH HHH 6 180 EFCiD Manual del usuario defun armat b0 h b h0 rec md fcd fyd d mm m0 mdd utc uta setq d h rec utc 0 85 fcd b h0 uta b b0 0 85 fcd h0 mm md 100 cond lt h0 0 5 d progn setq m0 utc d 0 5 h0 if mm m0 setq mdd 1 setq mdd mm 5 h0 0 5 d progn princ n Armadura2 h0 gt 0 5d if gt mdd 0 setq usl ussl fcd b d mdd setq usi 1000 setq asl usl fyd CORO IRR CK COE OK IRR AE A H OK A A H A A AAA A H AA A H AAA AH AAA A AH HHAH AAA AAA AAA AAA HHAH HHH ERIK H Devuelve US1 para md lt mlim Ab ancho cm x d canto util cm ma momento de calculo en kpxcm devuelve Usl en kp y u0 0 85
66. md if tipfor In situ progn setq fcd 10 fck 1 5 fyd 10 fyk 1 15 if ar 00 setq md atof ar b0 setq md 100 setq asl armat b h b0 h0 rec 0 6 md fcd fyd fip buscafip asl busca fi positivos asl ponpos pl p2 fip dibuja positivos setq pl p2 setq pl nth 0 lap anl nth 0 lan 200 v 0 repeat nv setq v 1 v p2 nth v lap an2 nth v lan 200 vdi read line fich vdd read line fich if vdi 0 progn setq an anl atof vdi 100 ang angle pl p2 p polar pl ang an angl polar p ang 1 57075 1 3 p polar angl ang 1 57075 2 6 6 178 EFCiD Manual del usuario command PLINE angl p setq p polar angl ang 0 1 md strcat Macizado vdi cm ang ang 180 3 1415 ang ang 90 command TEXT C p ang md if vdd 0 progn setq an an2 atof vdd 100 ang angle p2 pl p polar p2 ang an angl polar p ang 1 57075 1 2 p polar angl ang 1 57075 2 4 command PLINE angl p setq p polar angl ang 0 1 md strcat Macizado vdd cm ang ang 180 3 1415 ang ang 90 command TEXT C p ang md setq pl p2 ani an2 setq pl nth 0 lap aaa coloca cortante v 0 repeat nv setq v 1 v p2 nth v lap ar read line fich if f ar 00 progn setq ang angle pl p2 angl polar pl ang
67. module 2 0 p cons 1 v entmod subst p assoc 1 p3 p3 setq v rtos poiss 2 2 p cons 1 v entmod subst p assoc 1 p4 p4 setq v rtos dens 2 0 p cons 1 v entmod subst p assoc 1 p5 p5 setq v rtos cterm 2 6 p cons 1 v entmod subst p assoc 1 p6 p6 entupd mat pgscp ORR KO CO KOC r CC A A COO KO I KK AA A H AA A H AAA AH AA KK HHAH KO AA AAA AA AAA AAA A H H H COMPRUEBA SI EL MATERIAL ACTUAL ES HORMIGON ORE H H He KO CO KO COH OK CC COO A A A AAA A AAA A AAA A AH AAA AAA AA AH AA OK E AAA KO AAA AH HA A HH H HA defun testhormi b m mat setq b ssname ssget X list cons 2 PATACT 0 m entnext b mat cdr assoc 1 entget m if wcmatch mat HORMIGON progn prompt El material seleccionado no es HORMIGON prompt nSeleccionelo ahora C SS CC CAO KK ORC OK ORC E OK ROO A A AA A KOC A AH AAA AH AAA AAA AA HAHA HHH AA HA AA AAA AH AAA HHAH 6 124 EFCiD Manual del usuario COMPRUEBA SI EL MATERIAL ACTUAL ES ACERO CROCO H H H k KO I KO CHECK CC KOC KO AAA defun testacero b m mat ok setq b ssname ssget X list cons 2 PATACT O0 m entnext b mat cdr assoc 1 entget m if wcmatch mat ACERO progn prompt El material seleccionado no es ACERO setq ok getstring ngDesea seleccionar el material 2 ACERO S if 9 ok progn setq nummater 2 ACERO actualiza C SS CC ORC K
68. n2 PO pmig pl p2 p5 pmig p3 p4 pt trans pmig pO p5 O 1 incarpla ent pt pgcap diasi pgosm p 7 74 H H He IIR RI RR KR CORO KOC KO RARA Xx CARGA SUPERFICIAL VERTICAL DEFINIDA POR UNA AREA DE 4 PUNTOS FIR RR KO I KOC IR IRR COO KO IR AH AAA HHH defun acarsu tip pi p2 p3 p4 p5 p6 p7 p8 cp fc x y Z ent n tl tll cap entac fich osm lyr cpscp cposm cpcap scpu r fmi setq pl getpoint n Punto inicial primera esquina setq p2 getpoint pl n Punto 2 esquina setq p3 getpoint p2 n Punto 3 esquina setq p4 getpoint p3 in Punto 4 esquina setq cp getreal An Modulo de la carga aplicada sobre la superf Kp m2 if nil cp setq mce cp setq fc ef mce 1000 if tip 2 progn command UCS 3p pl p2 p3 setq pl trans pl 0 1 p2 trans p2 0 1 p3 trans p3 0 1 p4 trans p4 0 1 setq x nth 0 pl y nth 1 pl z nth 2 pl setq z z fc p5 list x y z 6 161 setq setq setq setq setq x nth 0 p2 y nth 1 p2 z nth 2 p2 Z z fc p6 list x y z x nth 0 p3 y nth 1 p3 z nth 2 p3 i tog PE p7 list x y z x nth 0 p4 y nth 1 p4 z nth 2 p4 setq z p8 r non z fc list x y z capa hip pbase pl p2 p3 p4 p5 p6 p7 p8 setq ent setq tl entlast CARGASUP tll cons 6 tl if nil tblsearch progn CreaTl tl
69. o TEMPERATURA ORR KK He H KOC OK CC KO A A A KC AA A HHAH A H AAA AH AAA AAA defun inscblstp tp tp 1 Sismo tp 2 P Delta tp 3 temperatura lp command _UCS U EjeZ setg 1 getvar CLAYER if not wcmatch 1 COMBINA HIPOT command LAYER S COMBINA HIPOT setq p getpoint strcat in Punto de inserci n del BLOQUE de carga if tp 1 command INSERT BLSISM p mn mm if tp 2 command INSERT BLPDELTA p n nw nn if tp 3 command INSERT CARTEMP p m nn FOR KO CO KOC OK IRR CORO KO AA A I OR KAKA AK AH AA AA HAHA KO I AAA AAA AA HAHA A HHAH it REUTILIZA ACTIVA Y ESTABLECE COMO ACTUAL LA CAPA HIP01 P 7 H H KAKA KA KAKA KA KAKA OK CC KA KAKA OK I KA KAKA AAA A AH AAA AAA KA KAKA KA KAKA AK KAKA AA HAHA AH K defun capa hip 11 1 setq 11 getvar CLAYER setq 1 strcase ll nil if not wcmatch 1 HIP command LAYER T hip ON hip S hip 6 6 2 Funciones para aplicar Cargas a trav s de los forjados 7 x FUNCIONES PARA APLICAR CARGAS A TRAVES DE ELEMENTOS TIPO FORJADO forjavo INTRODUCION DE FORJADO VOLADIZO EACLE forjauni INTRODUCION DE FORJADO UNIDIRECCIONAL z ahh forjabi INTRODUCION DE FORJADO BIDIRECIONAL OEB forjabis INTRODUCCION DE UNA PORCION DE PA O DE FORJADO 6 164 EFCiD Manual del usuario prompt Cargando las utilidades de FORJADO n CROCO OR Ok KO HEC KO
70. osm noecho 6 144 EFCiD Manual del usuario cposm r fin setq pl getpoint nBase del Soporte r non command INSERT zapel SC 1 pl pgosm CROCO I KC IR RI IR RI ROK RRR KO A H AAA AH AAA AH AAA HAHAHA AH AAA AAA KO AAA AH AAA HHH FUNCION PARA INSERTAR VIGAS RIOSTRAS BLOQUE VRIOS CROCO I KRAJ KRR EE IRR H A H H H A A AH A A AAA RR AH AAA HHH defun rio pl p2 p3 po dl p b h bb hh osm noecho cposm cpscp scpu r fin setq b 40 0 h 40 0 setq pl getpoint in Base Primer Soporte setq pp pl while pp nil setq p2 getpoint pl nBase Siguiente Soporte setq pp p2 if pp nil progn setq p3 trans pl 1 0 VectorZ pl p2 setq po trans p3 0 1 setq dl distance pl p2 setq p b princ Yin Ancho cm lt princ p princ gt setq b getreal if eq eval b nil setq b p setq p h princ Yn Canto cm lt princ p princ gt setg h getreal if eq eval h nil setq h p setq bb b 100 setq hh h 100 command INSERT VRIOS po XYZ bb hh dl 0 scpu setq pl p2 pgosm pgscp defun C RIO rio CRI I IRR CK KOCH OK KC COO KO AAA A AAA A AAA A AH AAA A AAA A AAA A HAHA A IRR IR AAA AH AAA H HHH RE ASIGNACION DEL BLOQUE BALASTO UN ELEMENTO O GRUPO ELEMENTOS BORRA SI EXISTE IRR I k KO ROCK OC HEC OK ORC KC KO AA A KO AA defun abalas conj pO pl p2 p3 p4 pt pin
71. p nth nf y command LINE i j setq inc cddr inc 6 53 Rutinas LISP cprev reparte cargas setq sup getreal nCarga superficial de la cubierta T m2 dis getdist nDistancia entre cerchas paralelas m pitch atan pitch repeat length carg 2 setq nudo car carg banda cadr carg banda banda ex cos pitch mod sup dis banda i list car p nth nudo x cadr p nth nudo y insfue 90 i mod setq carg cddr carg avisoUNDO pgosm pgscp pgcap defun c cel3 cel3 a Gk NK obese op AKA kk kakak PA AIA A RRA ARA sor sibi ARA bor obo orco bo soc A E DRES A EA KE A si Generaci n del cord n inferior PERERA REA RRE TARDAR A obse obl ARREARS DS DM H ARS RARE ob oe RAR o boe RA oc oko sco ob A RR AE ADA E HERS defun cordinf p lmo nmo pl p2 cprev setq pl p p2 list car p imo cadr p repeat nmo command LINE pl p2 setq pl p2 p2 polar p2 0 Imo PERERA EE AR KAKA ob ako e KAKAA KARE KARAKA RA KARA NARA KARA DARA AAA EA SARDER A stie Generaci n del cord n superior FRR KO COH KK COE OK RC KO H H OK AAA A AAA A AH AAA AH AAA AAA ORR KA A AAA A AAA AAA OR AAA X o defun cordsup p lmo nmo can pl p2 cprev setq pl list car p cadr p can setq p2 list car p Imo cadr p can repeat nmo command LINE pl p2 setq pl p2 p2 polar p2 0 1mo EREAA
72. p 7k H H He H H d H 7 KO KRK EE RER ER ER JEK EK KKK OE OE OO KK textpage prompt nEste es un programa educativo prompt n nUsted no esta autorizado para utilizarlo con cualesquiera otros fines n prompt n n setq ok Copyright A Perez Garcia VERA CAAD I amp D U P V 6 5 M dulo de aplicaci n de V nculos con el contorno y descripci n de Ligaduras entre barras Los v nculos de la estructura al contorno pueden describirse utilizando elementos constructivos zapatas centradas zapatas de medianera zapatas de esquina riostras etc o bien establecer la conexi n mediante objetos ideales articulaci n apoyo deslizante empotramiento etc 6 5 1 V nculos de tipo constructivo Las siguientes rutinas permiten introducir y gestionar entidades de tipo BLOQUE que representan elementos constructivos de cimentaci n 7 x FUNCIONES PARA GENERAR ELEMENTOS DE CIMENTACION 7 Zco INSERTA BLOOUES DE ZAPATAS COMBINADAS ZCOMB o ZCOMBE inapoyp INSERTA APOYOS GENERICOS PLANOS inapoye INSERTA APOYOS GENERICOS ESPACIALES C zcen INSERTA EL BLOOUE ASOCIADO A UNA ZAPATA CENTRADA C zmed INSERTA EL BLOOUE ASOCIADO A UNA ZAPATA DE MEDIANERA C zesg INSERTA EL BLOOUE ASOCIADO A UNA ZAPATA DE ESOUINA rio FUNCION PARA INSERTAR VIGAS RIOSTRAS BLOOUE VRIOS Cs RIO abalas RE ASIGNACION DEL BLOQUE BALASTO UN ELEMENTO O GRUPO ELEMENTOS BORRA SI EXISTE EFCiD Manual del usuario
73. pl nSegunda esquina dd distance pl p2 princ n Longitud del lado 1 princ dd setq nll getint n Numero elementos en lado 1 2 p3 getpoint p2 n Tercera esquina dd distance p2 p3 princ n Longitud del lado 2 princ dd setq nl2 getint n Numero elementos en ese lado 2 3 p4 getpoint p3 Yin Cuarta esquina r non setq xn car p4 car p1 n12 yn cadr p4 cadr p1 n12 zn caddr p4 caddr p1 n12 xd car p3 car p2 n12 yd cadr p3 cadr p2 n12 zd caddr p3 caddr p2 n12 pli pi p22 p2 repeat nl2 setq x xn car pl1 y yn cadr pil z zn caddr p11 p44 list x y z X xd car p22 y yd cadr p22 gt zd caddr p22 p33 list x y z n n np if n 1 utira p11 p22 p33 p44 nll if n 1 utira p33 p44 pil p22 nl1 setq pll p44 P22 p33 avisoUNDO pgosm pgscp pgcap defun C ph3d ph3d RR RC k KO I RR IR RI ORR C KO II A AAA A OR RI AAA AAA AH AAA HHH FE BG X FUNCION PARA DIBUJAR UNA TIRA DE 3DCARA DE 4 LADOS P 7 H H H ORC KK IR RI OK CC OK A A HH AA AAA A AAA A AH AAA AH AAA AH AAA A AAA AA AAA IIR AA AAA A AAA A HHH defun utira4 pl p2 p3 p4 nel xn yn zn poi pj pk pkl x y z xxn yyn zzn xl yl zl setq xn car p2 car p1 nel yn cadr p2 cadr p1 nel zn caddr p2 caddr pl nel 6 84 EFCiD Manual del usuar
74. q2 b3 ab2 if and nil i 0 i progn setq d tipobar mod Ime ab cst td q2 b2 abl if or nil d 0 d progn prompt in No puede sugerirse un dimensionado para las barras diagonales seg n la NTE EAE setq NTE dim N progn prompt in No puede sugerirse un dimensionado para las barras inferiores seg n la NTE EAE setq NTE dim N progn prompt in No puede sugerirse un dimensionado para las barras superiores seg n la NTE EAE setq NTE dim N if or NTE dim N NTE dim n progn prompt in Por decision propia o porque alguno de los parametros propuestos prompt in para la malla escapan a los contemplados en la NTE EAE prompt in el programa la construira sin predimensionar las barras prompt in Tras el trazado deberan dimensionarse con el tipo de perfil deseado setq dim N 6 74 EFCiD Manual del usuario ELECCION DEL TIPO DE ACERO if or NTE dim S NTE dim s progn while and Ace 37 Ace 42 setq Ace getreal in cQu tipo de acero utilizar para la malla A 37 6 A 42b 37 42 if and Ace 37 or s 17 i 17 d 17 progn prompt in El predimensionado con acero A 37 resulta insuficiente en alg n caso prompt An seg n la NTE EAE El programa cambiar autom ticamente a acero A 42b setq Ace 42 if Ace 37 setq Ace dif 0 setq
75. setq c getcapa nSeleccione la entidad cuya capa quiere DesBLOQUEAR if c getvar CLAYER prompt nSe ha seleccionado la capa actual n command CAPA Desbloquear c m FRR I RAI RR I H A A I RRA IR H A A A AAA A AH AAA AH AAA AH AAA AH HHAH X ICI AAA AAA AH HA AH HH Establece como actual la capa de una determinada entidad p EF HR SEED A aka ELE RIDE LA ERE Sale oe NSE LR oco BI SAE VERRE LA ERRER cb EARD ARIA EL ERA RAS FASSE RAHA defun C CA c setq c getcapa nSeleccione una entidad de la capa donde quiere DIBUJAR if c nil setq c getstring nNombre de la capa command LAYER S c ROCCO IIR KO CK OC OK IRR II KO A OKRA I AH AAA A H IORI OK A A AH HH AA H AAA AAA AH AAA HHH Inutiliza la capa de una determinada entidad ERA RAKA NA ADR ATALA DA SADA HAHA H SSA RADAR HHAH A DAH ADARA HAS AK ASHA AH SAL HAR HARA AA HAHAHA defun C FF c setq c getcapa inSeleccione la entidad cuya capa quiere INUTILIZAR if c getvar CLAYER prompt nSe ha seleccionado la capa actual n command LAYER p c 6 13 Rutinas LISP ORI H H RR I KOC IRR H A H H A A HH A AH HA AA AAA A AAA A OK AAA AA AAA A AAA AH AAA HAHA HHH A HH H HH Vacia una capa borrando todas sus entidades DE XDR maaka jaka naka sco ocn oe RDA SARS peo ool AAA RDF LAR ERA borse EA AAN A defun C VV olderr ocmd L S setq olderr error error delle
76. 1 print nth setq n 0 repeat nv setq n 1 print nth setq n 0 repeat nv setq n 1 print nth setq n 0 repeat nv setq n 1 print nth n n lluz fich lan fich n n lan fich n n lg fich n n lq fich n n lp fich n n la fich print print print close exi fich exd fich dmin fich fich 6 173 Rutinas LISP RR OK KO HEC OK OC KC COO A AAA A AAA A H AAA H AAA AH AAA HHAH A KO AAA KO AAA AA AAA HH H H Dibuja manualmente un negativo CESAR LH ARLE ok SEO E GE obo o RNA KENA KEKER ARARA sper oc RA KARAKA ERA oc DARA SAH SALS HA IKA c E A om AA defun neg pp ang ar arl ar2 fi arm li ld a i d o qq r s tlin setq pp getpoint nPunto de insercion ang getorient p nOrientacion de la armadura ar getstring nNS barras lt 2 gt fi getstring n C armaduras lt 10 gt li getint nLongitud izquierda 100 cm gt ld getint nLongitud derecha lt 100 cm gt setq tlin strcat _FI fi if ar setq arl ar setq arl 2 if fi setq ar2 fi setq ar2 10 if li nil setq i li 100 0 li itoa li setq i 1 li 100 if 1d nil setqd ld 100 0 ld itoa ld setq d 1 ld 100 setq arm strcat li arl c ar2 Id qq mapcar pp list d cos ang d sin ang o mapcar pp list i cos ang i sin ang
77. 1 wn FR KO CK OC H H CC COO COO KO I A A AAA A H AAA H AAA AH AAA AH AH A AH AAA AAA KO AAA AH AAA HH H H it INSERCION DE UNA CARGA UNIFORME CONSTANTE RII RR I KRK OK ORC KO C KO H HA A AAA A AAA A AH AAA AH AAA AAA defun inscuc o Tipo y orientaci n de la carga uniforme mmpg rs cposm r_fmi setq p getpoint nExtremo INICIAL de la carga uniforme if p nil setq p puntoaplic setq q getpoint nExtremo FINAL de la carga uniforme if q nil setq q puntoaplic 6 156 EFCiD Manual del usuario r non setq mm getreal nModulo de la carga Toneladas metro if nil mm setq mcu mm capa hip if o BETA progn setq o getorient p nOrientacion de la fuerza dibcu p q mcu mcu o progn setq o atof o 10 if nil member o list 0 90 180 270 prompt n nLa orientaci n de la fuerza no es valida progn setq o cvunit o grado radian dibcu p q mcu mcu o pgosm j 7 7 He H H H H H KC KC r CC r CC KA A KO I A AAA A OK AH AAA A HHH AA AAA A AAA A AAA AH AAA HHH INSERCION DE UNA CARGA UNIFORME TRAPEZOIDAL p P 7 He H H RR I RR IR CC KO COO KO A IA HA A HHH defun inscut o Tipo y orientaci n de la carga trapezoidal pqmi mfr s cposm r_fmi setg p getpoint nExtremo INICIAL de la carga uniforme if p nil setq p puntoaplic setq mi getreal inValor de la carga en este ex
78. 1 57075 0 6 md strcat Vd ar kN ang ang 180 3 1415 command TEXT BL angl ang md setq ar read line fich if ar 0 progn setq ang angle pl p2 angl polar p2 ang 1 57075 0 6 md strcat Vd ar kN ang ang 180 3 1415 command TEXT BR angl ang md setq pl p2 close fich 6 179 Rutinas LISP avisoUNDO pgosm pgscp pgcap RR KK IR RI H A A RAI A A H A A A AA AAA A AAA A OR A AH AAA AH AAA RR AH AAA HHH FUNCION PARA colocar LOS POSITIVOS pl y p2 puntos extremos fip texto de armadura v par o impar aksuta YNN ARLES A ARE REAR AAA ARIE IR ARD LRS SSR DESA HA ARA RARI SR KARAKA Y ARA A defun ponpos pl pf fip ang p pa lb 1bb arm d12 pl y pf puntos de apoyos a eje ang angulo de orientacion de Z la armadura en radianes A fip diametro armadura setq pa pmig pl pf d12 100 distance pl pf 0 1 ang angle pl pf lb ajusta5 d12 lbb itoa fix 1b arm strcat 2 c itoa fip lbb command _LAYER _S posit setg p polar pa ang 1 57075 0 05 ang ang 180 3 1415 command TEXT C p ang arm gi NN EA q FUNCIONES ARMAR NERVIOS EN T DE HORMIGON ARMADO in situ armat OBTIENE LA ARMADURA DE NERVIOS EN T ussl Devuelve US1 para md mlim uss2 Devuelve US2 para md mlim buscafip Devuelve diametro FI mm DE POSITIVOS NERVIOS ajusta5 REDONDEA A MULTIPLOS DE 5 cm
79. 2 ang angl fi ar li ld fich v md izq der vdi vdd an ani an2 asl fip fcd fyd mc cprev noecho cposm cpscp cpcap r_non 6 176 Rutinas LISP EFCiD Manual del usuario setq izq 1 0 der 0 0 if exi P setq izq 0 0 setq fich open c forj rrr r pi nth 0 lap p2 nth 1 lap ang angle pl p2 ar 0 repeat 3 setq ar 1 ar ti read line fich li read line fich ld read line fich ang angle pl p2 angl ang if fi 0 dibneg pl angl fi ar li Id izq der setq v 0 izq 0 0 der 0 0 repeat nv setq v 1 v if v nv setq izq 0 0 der 1 0 setq izq 0 0 der 0 0 if exd V if v 1 nv setq der 1 0 if exi V if v 1 setq izq 1 0 setq p2 nth v lap ang angle pl p2 ar 0 repeat 3 if v nv if exd P setq der 0 0 setq der 1 0 setq ar 1 ar fi read line fich Li read line fich la read line fich ang angle pl p2 angl ang 6 177 Rutinas LISP if fi 0 dibneg p2 angl fi ar li ld izq der setq der 0 0 izq 0 0 setq pl p2 command LAYER S textarm setq pl nth 0 lap v 0 repeat nv setq v 1 v p2 nth v lap ar read line fich if ar 00 progn setq ang angle pl p2 p pmig pl p2 angl polar p ang 1 57075 0 42 md strcat Md ar kNm m ang ang 180 3 1415 command TEXT C angl ang
80. 4 VERTICES UTILIZANDO UNA MALLA POLIGONAL ASIGNA CARGA SUPERFICIAL UNIFORME Y VERTICAL A VARIOS ELEMENTOS DE FORJADO UTILIZANDO EL BLOQUE CORRESPONDIENTE MODIFICA EL VALOR DEL FACTOR DE ESCALA DE LAS FUERZAS INSERCION DE LAS COMBINACIONES DE CARGA DEL ACERO EA 95 INSERCION DE LAS COMBINACIONES DE CARGA DEL HORMIGON EHE INSERCION DEL BLOQUE DE CARGA SISMICA P DELTA o TEMPERATURA REUTILIZA ACTIVA Y ESTABLECE COMO ACTUAL LA CAPA HIP01 EFCiD Manual del usuario prompt Cargando las utilidades de CARGAS n OK ke ok ke ok ke ok e oe ok e ok oe ok oe ok oe ok oe ok oe ok e ok e ok e ok e ok e ok oe ok e ok e ok e ok e ok e ok e ok e oe o e ok e ok e ok oe ok e oe e o e o e o e e e e e e e e n 7 INICIALIZACIONES RELATIVAS A LA APLICACION DE CARGA OK ke ok RH HH ok e ok e ok oe ok e ok e ok H ok e ok e ok e ok e ok e ok e ok e ok e ok e ok e ok e ok e ok e ok e ok e ok e ok 7 ok e ok e 36 e ok e o e o e o e e e e e e 96 n n CROCO RO k KO I OK OC OK IRR AE A KO IR KO A H AA A H AAA AH AA KK II IR KO AA HAHA A AAA AH HA AH HH VARIABLES DE AMBITO GENERAL ORKA RC k KO I RRR ORC KO COR KO A H H A A H A A KK A H AAA A AAA AH HHAH HH AA AAA A AAA AH HA AH HH hip Hipftesis activa ef Escala de fuerzas HEC Tipo de carga mcp M dulo por defecto de la carga puntual mcu M dulo por defecto de la carga uniforme constante mci M dulo por defecto de la carga trapezoidal en extremo inicial mcf M dulo por defecto de l
81. 5 nth 0 1p grdraw p2 p3 1 1 setq nl2 getint nNumero elementos en lado 2 3 grdraw p4 p5 1 1 setq ent entsel nTERCER lado de la base lp 13p ent ppl nth 0 lp pp2 nth 1 lp p6 nth 2 lp if distance p5 ppl 0 03 setq p7 nth 1 lp setq p7 nth 0 1p grdraw p6 p7 1 1 setq ent entsel nCUARTO lado de la base lp 13p ent p8 nth 2 1p grdraw pl p2 2 2 setq ent entsel nLADO VERTICAL 1 VERTICE lp l13p ent ppl nth 0 lp pp2 nth 1 lp p9 nth 2 1p if lt distance pl ppl 0 03 setq p13 nth 1 lp setq p13 nth 0 lp grdraw p9 p13 1 1 setq nl3 getint nNumero elementos en lado 1 5 VERTICAL grdraw p3 p4 2 2 setq ent entsel nLADO VERTICAL 2 VERTICE setq lp 13p ent setq ppl nth 0 Ip pp2 nth 1 lp p10 nth 2 lp if distance p3 ppl 0 03 setq p15 nth 1 lp setq p15 nth 0 lp grdraw p10 p15 1 1 grdraw p5 p6 2 2 setq ent entsel nLADO VERTICAL 3 VERTICE lp 13p ent ppl nth 0 lp pp2 nth 1 lp pil nth 2 lp 6 98 EFCiD Manual del usuario if distance p5 ppl 0 03 setq p17 nth 1 lp setq p17 nth 0 lp grdraw p11 p17 1 1 grdraw p7 p8 2 2 setq ent entsel nLADO VERTICAL 4 VERTICE lp 13p ent ppl nth 0 lp pp2 nth 1 lp pi2 nth 2 lp if lt distance p7 ppl 0 03 setq p19 nth 1 lp setq p19 nth O 1p grdraw p9 p13 1 1 setq e
82. A setq d substr dim 5 6 35 V ca 1 mon while ca x setq ca v 1 v setq po ul u2 pi p2 sec NERVIO ECL EL setq d Vv ca substr d v 1 p non Iw substr d 1 v 2 rtos 10 atof substr d v 2 0 substr dim 14 1 mon while ca x setq ca substr d v 1 v 1 v setq po ul u2 u3 u4 pi d ca v Qn non non qn Iw substr d 1 v 2 substr d v mon 1 while ca x setq ca v substr d v 1 1 v setq p2 substr d 1 v 2 d ca V substr d v mon d while ca x setq ca v substr d v 1 1 v print substr d 1 v 2 setq p3 rtos 10 atof substr d 1 v 2 2 0 p4 sec RETICULAR substr dim 14 1 setq d v ca rtos 10 atof substr d v 2 0 mon while ca x setq ca v 6 36 substr d v 1 1 v Rutinas LISP EFCiD Manual del usuario setq pO R ul c u2 c u3 I u4 I pl substr d 1 v 2 d substr d v ca v 1 while ca x setq ca substr d v 1 v 1 v setq p2 substr d 1 v 2 d substr d v ca v 1 while ca x setq ca substr d v 1 v 1 v print substr d 1 v 2 setq p3 r
83. A KO ORO AAA AAA AA AAA HH H H GENERACION DE UNA CELOSIA TIPO 2 CON REPARTO DE CARGAS EN NUDOS ORO KO IR RI H A A H H A A HH A A AAA A AAA A AAA A AH AAA AH AAA A AAA A AH AAA A AAA AAA AAA AAA AAA A HHAH 6 51 defun cel2 can Imo luz nmo p pl p2 p3 p4 1 cprev noecho cposm cpscp cpcap r non setq 1 getvar CLAYER if not wcmatch 1 STR command LAYER T STRO1 ON STRO1 S STROL setq p getpoint nPunto de inserci n de la cercha luz getdist p nLuz entre apoyos can getdist p nCanto de la celosia imo luz 3 pl p p2 list car p imo cadr p repeat 3 command LINE pl p2 setq pl p2 p2 polar p2 0 Imo setq pl polar p O Imo 3 p2 list car p luz 4 3 cadr p can 2 p3 list car p luz 2 cadr p can lmo 0 Imo p4 polar pl 0 lmo command LINE pl p2 p3 p4 p2 setq pl p p2 list car p luz 4 cadr p can 2 p4 polar p 0 1mo command LINE pl p2 p3 p4 p2 setq p4 list car p2 luz 2 cadr p can 2 p5 polar p 0 luz cprev reparte cargas setq carg list pl luz 8 p2 luz 4 p3 luz 4 p4 luz 4 p5 luz 8 y sup getreal nCarga superficial de la cubierta T m2 dis getdist nDistancia entre cerchas paralelas m pitch atan can luz 2 repeat length carg 2 setg nudo c
84. A A HAHA H AAA AH AAA A HAHA OK AA AAA AAA AH HA A HHH defun pfrac pin pf f pp xn yn zn x y z setq xn car pf car pin f yn cadr pf cadr pin f zn caddr pf caddr pin f Xx xn car pin y yn cadr pin zn caddr pin pp list x y z 6 4 EFCiD Manual del usuario CROCO k H H OK H A H H H CORO KO A A AK HH AA AA RAR HHAH HH DEVUELVE la LISTA Pini Pfin Pmed de una entidad Pini punto inicial y Pfin punto final y Pmed punto medio p 7 7 H H RC KC IR RI IRR H A HAHA A AH AA A RARA HHAH A defun 13p ent nl n0 pl p2 pm lp anl an2 c cc r ppl pp2 pp3 cero pd setq cero list 1 0 1 0 1 0 no car ent nl entget n0 pd cdr ent if LINE cdr assoc 0 n1 setq pl cdr assoc 10 ni p2 cdr assoc 11 ni pm pmig pl p2 if ARC cdr assoc 0 n1 progn SCPObjeto ent setq c list 0 0 0 0 0 0 anl cdr assoc 50 ni an2 cdr assoc 51 ni r cdr assoc 40 ni an2 an2 anl anl 0 0 ppi polar c anl r pp2 polar c an2 r pp3 polar c 0 5 an2 ant f x pi trans ppl 1 0 p2 trans pp2 1 0 pm trans pp3 1 0 scpu if LWPOLYLINE cdr assoc 0 n1 setq anl contvpol n0 an2 nth 0 anl pp2 an2 2 pi nth 1 anl p2 nth an2 anl pm nth pp2 anl if POLYLINE cdr assoc 0 n1 setq anl contv3dpol n0 an2 nth 0 anl pp2 an2 2 pi nth 1 an1 p2 nth an2 anl pm nth
85. A H AAA AH AA AA AH HHAH KO II IR AAA AAA AAA AH H H H it INSERTAR UN BLOQUE CON LA CARGA UNIFORME APLICADA A UNA PLACA FRR I OOOO OC OK OC KO H H H A A II A A AAA A HA A A AH AAA AH AAA A HAHA KO IIR KO I AH AAA HH o defun incarpla ent pt rot v p poi pl p2 nompl nomp2 noecho cposm r_non if escarpn nil setq escarpn 1 0 command _INSERT CARPN _SC escarpn pt setq rot cdr assoc 5 entget ent nompl entnext entlast nomp2 entnext nompl pi entget nompl p2 entget nomp2 p cons 1 entmod subst p assoc 1 pl pl setq v rtos mce 2 1 p cons 1 v entmod subst p assoc 1 p2 p2 pgosm Sta OK KO CK OC IR CORO KO COO KO AH A A H AA A AAA A H AAA AAA KK KA A KO IIR KO ARA INSERCION DE UNA CARGA UNIFORME SOBRE ELEMENTO PLACA Sta KRAKA HEC KOC HE RIK KO AAA A AAA A AAA A H AAA AH AAA A AAA A AAA IIR KO OE AAA AAA AH HHAH defun asigcarp cp conj mi mf p0 pl p2 p3 p4 p5 pt n0 n2 v ent noecho diano cposm r_non cpcap setq cp getreal nModulo de la carga aplicada sobre la placa Kp m2 if nil cp setq mce cp capa hip while not setq conj ssget setq v 0 repeat sslength conj setq ent ssname conj v v v 1 n2 entget ent 6 160 EFCiD Manual del usuario y if 3DFACE cdr assoc 0 n2 progn setq pl cdr assoc 10 n2 p2 cdr assoc 11 n2 p3 cdr assoc 12 n2 p4 cdr assoc 13
86. A KO AAA AH AAA HHH ABACO DE ESQUINA ROCCO H H H OK C IR RI IRR A A CC A KO AAA KOC A H AAA AH AAA AH AAA A HAHA A AAA AA AAA AAA AAA H HHH defun c ABACOE pl p2 p3 p4 lab pp cprev noecho cposm cpscp cpcap scpu r fmi setq pl getpoint nindicar extremo de ESQUINA pp pi while pp nil if pp nil progn setq p2 getpoint pl n Segundo extremo p3 getpoint p2 In Tercer extremo p4 getpoint p3 In Cuarto extremo r non setq 1 getvar CLAYER lrr strcat 1 rec lab strcat 1 abac command LAYER N lab command LAYER S ap abac pl p2 p3 p4 command LAYER S 6 111 Rutinas LISP r fmi setq pl getpoint nindicar extremo de ESQUINA pp pi avisoUNDO pgosm pgscp pgcap j 7 H H H H ORC KK OEC KOC HE H A H H A A CO KC A AAA A AAA A AH AAA AH AAA A HHH AA KO ORO AAA AAA A AAA AH H o GENERA LOS 3DACARA DE UN ABACO BASE EN FORJ RETICULAR jbati ik Ar AAA RA ARIS SA SDE RALA ARARA RA KARA XE RDL oc RA RAKA DADA MA AR ADA RD SAS AERA 4 defun abac pl p2 p3 p4 x y z zy xy setq x puntint pl p2 0 5 y puntint p2 p3 0 5 zy puntint p3 p4 0 5 z puntint x zy 0 5 3_CARA x p2 y z 3_CARA z y p3 zy setq y puntint pl p4 0 5 3_CARA y z zy p4 setq zy puntint pl z 0 5 xy puntint pl x 0 5 3 CARA xy x z zy setq x puntint pl y 0 5
87. AA AAA AA HAHA KO AAA AAA AAA AH AAA HH H H defun insecphc tip e setq nomsec PHC dimsec strcat rtos tip 2 0 x rtos tip 2 0 x rtos e 2 0 testacero actualiza ORR KK OC OK ORC E OK e H A RRR COR OK I KK I H AAA H AAA AH HAHA HAHA KO IIR KO AAA AH AAA HH H H PIDE DATOS SECCION PHO ORI KK OK OC HE OK CC KO COR KO A HA A KK AKA KA OC AH AAA A AAA A HAHA KO I IR KO AAA AH AAA Kk defun insecph0 tip e setq nomsec PHO dimsec strcat rtos tip 2 0 x rtos e 2 0 testacero actualiza p 7 H 7 E H He H P H H H oe 3 H H A 3 H H H e H A H H H H H H A A A AH A A AAA A AAA A AH AAA A AAA AH HHAH KO IIR A AAA AH AAA HH H H PIDE DATOS SECCION IPN ORR IRR IR RI OK C CK COR KC A AH HA A AH AAA AH AAA A HAHA KO IIR AA AAA AH AAA HH H H defun insecipn tip setq nomsec IPN dimsec strcat rtos tip 2 0 testacero actualiza RII e KO E OK EEE H A A e de OK AE A KK AA A A H HA A H AAA H AAA AH AAA AH AAA AH AAA AH AAA AAA A HA AA HH H H 74 PIDE DATOS SECCION IPE RII KK OEC KOC GE CK CC H H A A AAA A AAA A AAA A AH AAA AH AA AA AAA AAA HAHAHA RR AH AAA HH H H defun insecipe tip setq nomsec IPE dimsec strcat rtos tip 2 0 testacero actualiza RII H KO I RR H A H H H A A H H A A OK AAA A AAA AH AAA AH AA AA AAA A AAA AH AAA AA AAA AAA AA AAA H H H it PIDE DATOS SECCION HEB FRR KK OC H H RI OK CC C KO H AA A AAA A H AAA H AAA AH AAA
88. ARREE RER ARA E OEUE OE EA EAE A RARA RAR KEARSE kika ashi COCUFOEOCOLOCOE ERE RAE REA AS EARLE ERA AH Generaci n de los montantes ORR KO IIR COR OK CO OK H A H H KO A HA A A AAA A HHAH A AH AAA AH AA AA HAHA OK IIR KO AAA AH AAA HH H H 6 54 EFCiD Manual del usuario defun montant p lmo nmo can pl p2 cprev setq pl p p2 list car p cadr p can repeat nmo 1 command LINE pl p2 setq pl polar pl 0 1mo setq p2 polar p2 0 1mo ROCCO IIR KO C KO CHECK IRR CC H A AA A A AAA A AAA A H AAA A AAA A HAHA AH AAA A AAA A AAA AAA AH HH Generaci n de las diagonales tipo W PERA ko KASA EAA AAA DASAR AAA LAH STA DH RE DALA NAKANA SARA HARA SAA RAI oE AA DA RARA H AH ADA defun diagonW p lmo nmo can pl p2 cprev setq pl p p2 list car p Imo cadr p can repeat nmo 2 command LINE pl p2 setq pl polar pl 0 Imo p2 polar p2 0 1mo setq pl p lmo 0 imo pl list car p luz cadr p p2 list car pl imo cadr p can repeat nmo 2 command LINE pl p2 setq pl polar pl 0 lmo p2 polar p2 0 lmo pK AEK KA KAKA KA KAKA CC A H CC A A KO AAA 7 Generaci n de las diagonales tipo M PERERA ARK A ARXA kakak ARAM AH BAAR A DA DALA AAA HALA SHBA RA RAKA HRANA E ol RA H A HAHAHA H ADA defun diagonM p imo nmo can pl p2 cprev setq pl list car p cadr p can p2 list ca
89. AS 8 VERTICES RR KK C HEC KC OK CC KO A A HH AA AAA A HHAH A AAA A H AAA AH AAA KK AH AA AAA AAA KO AAA AA AAA HHAH defun utira8 pl setq setq xn yn zn xxn yyn zzn p6 p7 p8 nel pl x y z xxn ysl zs1 x1 yl zi pii pjj pkk pll p3 p4 ps poi pj pk ys zs xsl xxnl yynl zzni p2 zn xs zni yn zzn yni Ze CARE A Z Z AFE car p2 car pl nel cadr p2 cadr p1 nel caddr p2 caddr p1 nel car p3 car p4 nel cadr p3 cadr p4 nel caddr p3 caddr p4 nel poi pl pl 2 Y z pj xi yl zi pk xni yni zni xxni yyni zznl pii pll xs ys ZS pij xsl ysl zsl pkk p4 xn yn car poi cadr poi zn caddr poi list x y z xxn car pl yyn cadr pl zzn caddr pl list x1 yl z1 F banga 7 Z a Z de p5 p8 xnl car p6 car p5 nel cadr p6 cadr p5 nel caddr p6 caddr p5 nel car p7 car p8 nel cadr p7 cadr p8 nel caddr p7 caddr p8 nel car pii ynl cadr pii zpi caddr pii list xs ys zs xxnl car pll vvni cadr pll zznl caddr pll list xsl ysl zsi repeat nel pbase poi pj pk pl pii pjj pkk pll setq poi pj 6 94 pi x y pk x xn y yn xn yyn xnl EFCiD Manual del usuario z z zn pj list x y z xl xl xxn yl yl yyn z1 zl zzn pk list x1 yl z1
90. Ace dif 1 COMUNICACI N DE DIMENSIONADOS Y POSIBILIDAD DE MODIFICACION BARRAS SUPERIORES setq dim nom list 40 2 50 2 60 2 70 2 80 2 70 3 80 3 90 3 100 3 100 4 125 4 125 5 15555 175 5 200 5 200 6 200 8 s nth s Ace_dif dim_nom progn prompt n La NTE EAE propone para las barras superiores perfiles tubulares D prinl s prompt while and man S man s man N man n setq man getstring in Desea mantener este predimensionado S N if or wcmatch man N wcmatch man n progn setq s nil while nil member s dim nom prompt An Cu l de los siguientes perfiles desea utilizar if Ace 42 prompt Wn 40 2 50 2 60 2 70 2 80 2 70 3 8053 90 3 100 3 prompt Kun 350 27 460 2 705 2 80 2 705 39 80 9 90 3 100 3 f 6 75 Rutinas LISP prompt An 100 4 125 4 1255 DISSO 175 5 200 5 3200 6 setq s getreal 200 8 setq man nil 7 COMUNICACI N DE DIMENSIONADOS Y POSIBILIDAD DE MODIFICACION BARRAS INFERIORES setq i nth i Ace dif dim nom progn prompt in La NTE EAE propone para las barras inferiores perfiles tubulares D prinl i prompt while and man S man s man N man n setq man getstring in Desea mantener este predimensionado S N if or wcmatch man N wcmatch man progn np setq i nil whil
91. Caracter sticas Geom tricas y Mec nicas de los elementos estructurales FUNCIONES PARA GESTIONAR LA GEOMETRIA Y LOS MATERIALES EN EFCiD modest ACTUALIZA EL TIPO DE ESTRUCTURA EN EL BLOQUE TIPEST insecrec PIDE DATOS SECCION RECTANGULAR insechur PIDE DATOS SECCION RECTANGULAR HUECA inseccir PIDE DATOS SECCION CIRCULAR insechuc PIDE DATOS SECCION CIRCULAR HUECA insecte PIDE DATOS SECCION EN T insectef PIDE DATOS SECCION EN NERVIO EN T FORJADO UNIDIRECCIONAL insecter PIDE DATOS SECCION EN NERVIO EN T FORJADO RETICULAR 6 113 Rutinas LISP insecphr PIDE DATOS SECCION PHR insecphc PIDE DATOS SECCION PHC insecph0 PIDE DATOS SECCION PHO insecipn PIDE DATOS SECCION IPN insecipe PIDE DATOS SECCION IPE insecheb PIDE DATOS SECCION HEB insechea PIDE DATOS SECCION HEA insechem PIDE DATOS SECCION HEM insec2upn PIDE DATOS SECCION 2UPN EN CAJON insecpergen PIDE DATOS SECCION PERFIL GENERAL insecgen PIDE DATOS SECCION GENERICA insecusr FUNCION QUE PIDE DATOS SECCION DE USUARIO 7 Y PERFILES CONFORMADOS EN FRIO insecl inseclf inseczf insecld insecldf insecuf insecof inseccf insecupn secusr SECCION cualquiera definida por el USUARIO Y inesp PIDE ESPESOR DE PLACAS girocero PONE A CERO EL ANGULO DE GIRO DE LA BARRA intgiro INTRODUCE EL ANGULO DE GIRO DE LA BARRA asignar ASIGNACION DEL PATRON DE ELEMENTO ACTIV
92. ERT cdr assoc O ni command DDATTE n0 ROCCO OR Ck KO CO KK COO CORO CC AA I A AAA AH AAA AH AAA AH AAA HAHAHA KO ORO KK IR KO E EEE pt x SELECCIONA LAS CARACTERISTICAS DEL FORJADO ROCCO H H H kk H H IRR IR K H A A CC A A AAA A AAA A H AAA AH AAA A AAA AAA HAHAHA AAA AA AAA AA AAA HHAH defun selforja ent n0 ni nfor tf enti nat vat ctrl setq ent entsel nSeleccione el tipo de forjado nO car ent ni entget n0 if INSERT cdr assoc 0 ni setq nfor cdr assoc 2 ni if substr nfor 1 2 FU progn if substr nfor 3 1 A setq tipfor Viguetas Armadas if 9 substr nfor 3 1 P setq tipfor Viguetas Pretens if 9 substr nfor 3 1 I setq tipfor In situ setq ctrl T while ctrl setq entl entnext n0 ni entget entl if ATTRIB cdr assoc 0 n1 progn setq nat cdr assoc 2 ni vat cdr assoc 1 ni if LE nat setq fyk atoi vat 6 183 Rutinas LISP if RC nat setq fck atoi vat if PP nat setq g atof vat if SU nat setq q atof vat if I nat setq b0 atoi vat if H nat setq h atoi vat if V nat setq b atoi vat if L nat setq h0 atoi vat if DMIN nat setq dmin atoi vat if REC nat setq rec atof vat if SEQEND cdr assoc 0 n1 setq ctrl nil setq n0 ent1 OOOO KO COE ORC
93. H defun s8 pl p2 p3 p4 p5 p6 p7 p8 osm cprev noecho cposm cpscp cpcap r fmi setq pl getpoint n Primer v rtice p2 getpoint pl n Segundo v rtice p3 getpoint p2 n Tercer v rtice p4 getpoint p3 An Cuarto v rtice p5 getpoint p4 n Quinto vertice p6 getpoint p5 in Sexto v rtice p7 getpoint p6 n Septimo v rtice p8 getpoint p7 Vin Octavo v rtice r non pbase pl p2 p3 p4 p5 p6 p7 p8 avisoUNDO pgosm pgscp pgcap 6 9 Rutinas LISP defun c s8 s8 ORI OK OEC KOC OK RI KOC OK AAA A AAA A AAA A AH AAA AH AAA A HAHA KO AH AAA AH AAA H HA A HHH DIBUJA UN SOLIDO A PARTIR DE CUATRO VERTICES Y ALTURA r 7 H H RC H H H I OR H A H H A A H H A A A H A A H A A AAA A AAA A A AAA AH AA A AH AAA A HAHA AAA AAA AAA AAA AH AAA HHH defun s8a pl p2 p3 p4 p5 p6 p7 p8 h1 osm cprev noecho cposm cpscp cpcap r fmi setq pl getpoint in Primer v rtice p2 getpoint pl n Segundo v rtice p3 getpoint p2 n Tercer v rtice p4 getpoint p3 n Cuarto v rtice hi getreal n Altura r non setq p5 altp pl hl p6 altp p2 hl p7 altp p3 hl p8 altp p4 hl pbase pl p2 p3 p4 p5 p6 p7 p8 avisoUNDO pgosm pgscp pgcap defun c s8a s8a S H H H RC KC H oe 3 KC IR RIOR A A AAA A AAA KC H AAA A AAA HAHAHA A AAA AH AAA AAA AH AAA HHH FUNCIONES DE FORMA ELEMENTO
94. H A A AAA KO A H AAA H AAA AH AAA HAHAHA AH HA AAA AAA AAA A AAA A HHH REFERENCIA A ENTIDADES RR H I IRR I KK CHECK H A A H CC OK A AAA A AAA A AH AAA H AAA A AAA AH AAA A AAA A AAA AA AAA AAA AH HH defun r_non Ninguna referencia setvar osmode 0 defun r cer Punto mas cercano r non setvar osmode 512 defun r per Perpendicular r non setvar osmode 128 defun r int Intersecci n r non setvar osmode 32 defun r fin Punto final r non setvar osmode 1 6 9 Rutinas LISP defun r med Punto medio r non setvar osmode 2 defun r pto Entidad tipo punto r non setvar osmode 8 defun r fmi Captura el Punto final Medio o Interseccion ow r non setvar osmode 1059 defun cazapuntos Captura el punto Final Medio Perpendicular o Intersecci n que se encuentra mas cercano al cursor Funciona como un comutador No NG NG s if getvar OSMODE 0 setvar OSMODE 1067 setvar OSMODE 0 setq kk nil EZRA CAO KK OE KOC HE OK k H A KA KAKA KO AH A KAKA KA KAKA AK AH AA KA KAKA KO A A AAA A AAA AH AAA HHAH it GESTION DEL ENTORNO DE ENTRADA Y SALIDA DE FUNCIONES ROZA VES X NERE SRE SRN bh CULO GN A A A A RR NA VTV A defun cprev Coloca una marca para deshacer con rv command UNDO M Deshace con rv hasta la marca colocada anteriormente defun c rv comman
95. H H C OK OCC OK RI OK e H A H H H H A H H A AH A A AAA A HA AA AH AAA A AAA AH HHAH AAA AA AAA AAA AH AAA H H H SOLICITA LAS LUCES CORRESPONDIENTES A UN NUMERO v DE VANOS E i A AAA ICE ORE aka ak rak MAJKE KAR NON DAL ANAVAS DS SDA MARAKA ENA ZAK MAGN ALAH AVES AA DER defun vanos v dv s i f if v 0 progn setq dv list 0 0 f list 000 setq i getpoint nExtremo INICIAL del primer vano while nil f setq f getpoint nExtremo FINAL del vano if nil f setq dv cons distance i f dv setq i f print cdr reverse dv cdr reverse dv progn prompt inLuz de cada vano en metros Comience por la izquierda prompt Ejemplo 4 50 4 50 4 50 prompt nSi es la misma anote la luz precedida del signo prompt Ejemplo 4 50 6 101 Rutinas LISP setq dv getstring T nLuces if dv setq dv 1 00 if substr dv 1 2 progn setq dv substr dv 3 s strcat dv repeat v 1 setq dv strcat s dv setq s strcat list dv setq dv eval read s P 7 H H H H KK OEC KK I IRR H A H H H COO AA IRR A KA OC AH AAA AH AAA A HAHA HHH AA AAA A AAA AA AAA HHAH SOLICITA LAS ALTURAS CORRESPONDIENTES A UN NUMERO h DE PLANTAS EPK EDA RA KARA RA Bka RAKA BA sor Kapoor KAKA RER RA Scoop RIOR ok HF A kakak RR OR E RES NARA EX dakot RAAS defun plants h dh s i f if h 0 progn setq dh l
96. K A H AAA AH AAA A HAHA A AAA AAA AAA AAA HAHA A HH H H defun cero n and gt n cero lt n cero 6 128 EFCiD Manual del usuario defun siH setvar HIGHLIGHT 1 defun noH setvar HIGHLIGHT 0 defun noecho setvar CMDECHO 0 defun diasi setvar ATTDIA 1 defun diano setvar ATTDIA 0 defun r non setvar OSMODE 0 defun r varios setvar OSMODE 1195 defun getconj msg prompt msg while not setq conj ssget CROCO ORC KK He H KO CHECK RI RR CO KO HA A A AAA it Crea una REGION ABIERTA a partir de una polil nea Sue Sob osea abaka kaka kak oleo cob ol ob ol sebo s HXF ABER s bol ol oe ol sco sc HEF olo kakak OE ole RJ kra kika E HEX ooo ole oe opos defun creabi cl noecho r non siH setq cl getvar CLAYER command LAYER ON REGION OFF SOMBREADO setvar CLAYER REGION getconj nDesigne el contorno de la seccion if sslength conj 1 progn command REGION conj setq secc entlast progn command REGION ssname conj 0 setq secc entlast to 1 6 129 Rutinas repeat sslength conj 1 command REGION ssname conj t0 command UNION secc entlast setq secc entlast to t0 1 setvar CLAYER SOMBREADO command HATCH S secc command LAYER ON SOMBREADO noH
97. K IRR A A KO A A A RA defun long_pol NN koxox lp nvert long tot vi setq e0 entget noment nv 0 nvl 1 lon 0 0 nom0 entnext noment e0 entget nom0 while nv 0 setq pl cdr assoc 10 e0 if 1 nvl setq lon lon distance p0 pi setq lp cons pl lp nvi 1 nvl nomi nom0 nom0 entnext nomi e0 entget nom0 if SEQEND cdr assoc 0 e0 setq nv 1 setq p0 pl if lt 15 nvi setq nv 1 setq lp reverse lp lp cons lon lp lp cons nvl lp FORMA UNA LISTA CON LOS VERTICES DE UNA POLILINEA 3D V2 Nes vn p 7 7 H Ck KO I OK EC A H CC OK A HA KOC AH AAA H AAA AH AAA HAHAHA KO AO AAA AAA AA AAA HH H H noment nom0 nomi e0 nvl ne el nv pl lp lon po ARARARARA RARA RA RARA e oe SSH XR H D e o ke HHR KARAKA KARAKA e oe e AK o e o eo e o e o e o RY e o e o e e W RER e n PRODUCTO DE UN ESCALAR POR UNA LISTA OK oe FE S d eoe eoe koe koe 36 Se 656 ke oe e o W oe e oe 3636 e ok ke 56 1656 e o eoe e sb e ok eoe e oe 36 ok e oe e o e 26 e 6 96 o e o e o e o e o e e e e e 36 e e n n n defun exlist 1 esc lista e c setq lista reverse 1 foreach e lista setq c cons esc e c RC RO kk C H II RRR I OK H H A A H H A KO AAA A AAA A AAA A AH AAA AH AAA HAHAHA X EO A HA KO AAA AH AAA HHH pe RK DEVUELVE UN PUNTO CON UNA ALTURA H FRR KAI I RRR OK CC KO CC A A AAA A AAA A H AAA H AAA AH AAA HAHAHA AAA AA HA AA I OR o AH HH
98. KO A AAA A HHAH A A AAA AH AAA A AAA AH HHAH HHAH HHAH HH PROPIEDADES DE LA FABRICA DE BLOQUES DE TERMOARCILLA j P 7 H H CC k KAKA KA KAKA AK AKA H H H A A H H A A HA A A AAA A AAA A AAA A AH AAA AH AAA HAHAHA AH HHAH HHAH HHAH HH defun termo n setq nommat TERMOARCILLA module 50000 poiss 0 2 dens 1500 cterm 0 00001 n getvar useri2 1 setvar useri2 n setq nummater strcat rtos n 2 0 nommat nummat n insmater TERMOARCILLA 6 4 M dulo para obtener las propiedades Mecanicas de una secci n y la distribuci n de tensiones normales ROCCO H H KO I OK OC HE OK H A A CO KO A IR AAA A AH AAA AH AAA AH AAA HAHAHA A AAA A HA KO AAA AH AAA HHH Obtenci n de las propiedades geom tricas y tensiones en una secci n arbitraria LIA LIA AYKA EH SAE A DEDAL EU OC ROO MASA SAA ES A SMD SA ka ASA RA NAAL SEA cero FUNCIONES BASICAS siH noH noecho diasi diano z EON r varios getconj 6 127 creabi crealv prop reg cuadro z C PROP C PROPCDG scp cdg C CDG ejes ppales orientados C PPAL erg nmm C NMM nee C NEE solicit coef zona C ZON zonaEN C ZONEN ejen C EN nucleo CINC tension C TEN mov_en C MEN Rutinas LISP Crea una REGION ABIERTA a partir de una polil nea Crea una REGION ALVEOLADA a partir de un conjunto de polilineas Propiedades mec nicas de una REGION respec
99. LENCIA Tel fono 96 3877671 Fax 96 3879679 La distribuci n de las rutinas por cualquier medio queda reservada a los autores y al titular del Copyright No obstante pueden ser utilizadas por los miembros de la comunidad acad mica universitaria siempre que se Citen las fuentes y los autores Aunque las rutinas han sido comprobadas exhaustivamente los autores no aceptan responsabilidad alguna respecto del uso de las mismas por terceras partes 6 1 M dulo con rutinas de car cter B sico y Gen rico que se utiliza en el resto de los m dulos Este conjunto de rutinas se clasifican en funciones de uso gen rico en cualquiera de los entornos de diseno utilizados AutoCAD o InteliCAD que permiten gestionar entidades gr ficas e funciones espec ficas del Entorno de Dise o de EFCiD pero utilizadas por varios de sus m dulos 6 1 Rutinas LISP 6 1 1 Rutinas B sicas de CAD FUNCIONES CON UTILIDADES BASICAS PARA GESTIONAR OTRAS RUTINAS C H ACTIVA EL RESALTE DE LAS ENTIDADES SELECCIONADAS noecho DESACTIVA EL ECO DE LOS COMANDOS diasi DESACTIVA LA PRESENTACION DE CUADROS DE DIALOGO diano ACTIVA LA PRESENTACION DE CUADROS DE DIALOGO CreaTl CREA UN NUEVO TIPO DE LINEA PARA ATRIBUIR PROPIEDADES ESTRUCTURALES CargaTl CARGA UN TIPO DE LINEA PARA ASIGNAR PROPIEDADES ESTRUCTURALES puntint CALCULA UN PUNTO INTERMEDIO ENTRE OTROS DOS POR UN FACTOR pmig PUNTO MEDIO ENTRE LOS PUNTOS P1 Y P2 pfra
100. NERACION DE UNA CELOSIA TIPO 3 cordon GENERACION CORDONES EN CERCHAS mont GENERACI N DE MONTANTES EN CERCHAS TRIDIMENSIONALES diagl GENERACION DE DIAGONALES EN CERCHAS TRIDIMENSIONALES IDA diag GENERACION DE DIAGONALES EN CERCHAS TRIDIMENSIONALES IDA Y VUELTA celtril GENERACION DE UNA CELOSIA TRIANGULAR TRIDIMENSIONAL TIPO 1 z c celtril celtri2 GENERACION DE UNA CELOSIA TRIANGULAR TRIDIMENSIONAL TIPO2 7 c celtri2 celtri3 GENERACION DE UNA CERCHA CUADRADA TRIDIMENSIONAL TIPO 3 c celtri3 RR AC k KO KC CK CC CC OK A AAA KC A AH AAA H AAA RARA it GENERACION CORDONES EN CERCHAS 6 58 EFCiD Manual del usuario ERE du AK AL eot oro ot ARANA SH TEA He AA I A RATA AAA ooo bob oto Eo aeo OE RA SARA ARAH A kakak defun cordon pl imo nmo p2 cprev setq p2 list car pl cadr pl Imo last p1 repeat nmo command LINE pl p2 setq pl p2 p2 polar p2 pi 2 Imo OK ok e ke e ke oe ke oe ke oe ke oe ke oe ke o ke o ke oe ke ok e oe ke o kb ke o ke o ke ok e o ke o LI I LI Y e o e oe e o e ok e o e o e o e o e o e o e e e e e e e o e n GENERACI N DE MONTANTES EN CERCHAS TRIDIMENSIONALES LA S SSS Bn sto x defun mont pl p2 lmo nmo cprev repeat nmo 1 command LINE pl p2 setq pl polar pl pi 2 Imo p2 polar p2 pi 2 Imo CRI RC k KO I KOC HE OK I ROK RRR RARA GENERACION DE DIAGONALES EN CERCHAS TRIDIMENSIONALES IDA ROCCO
101. NFERIOR DE UNA MALLA ALIGERADA capdiaal TRAZADO BARRAS DIAGONALES DE UNA MALLA ESPACIAL ALIGERADA diagmall TRAZADO BARRAS DIAGONALES DE UNA MALLA ESPACIAL dimbarma CONSTRUYE EL NOMBRE DEL TIPO DE LINEA CORRESPONDIENTE AL DIMENSIONADO Y LO ASIGNA AUTOMATICAMENTE insfuema INSERCION DE LAS CARGAS PUNTUALES EN UNA MALLA ESPACIAL malla GENERACION AUTOMATICA DE UNA MALLA ESPACIAL segun NTE EAE ROCCO RO KO COH KK CHECK CORO KK CK AH AA AA KO AA AAA A AAA AA AAA AAA AA AAA HAHAHA KO AAA KO EE X ORO PREDIMENSIONADO DE BARRAS DE UNA MALLA ESPACIAL O DE INTERVALO DE M DULO SUGERIDO segun NTE EAE CROCO H H He H H H He CK H e KR H A A H H A H H H A A AA A A AA AA AAA A AAA A AAA A AH AAA AH AAA AAA AA HAHAHA AA HHAH AH defun tipobar mod lme ab cst tr q b r if nil posicion mod L progn setq tr nth techo tr if nil listp nth 0 b setq b nth techo b if and nil posicion cst q nil tr 6 63 Rutinas LISP progn setq tr nth techo tr if and nil posicion lme b nil tr progn setq tr nth techo tr if and nil posicion ab r nil tr progn setq tr nth suelo tr progn prompt in Proporcion fuera de rango para la NTE EAE prompt in Deberia haber estado entre prinl car r prompt y prinl last r prompt n El proceso continuara sin las sugerencias prompt in de la Norma Tecnol gica setq tr nil
102. O A UNO VARIOS ELEMENTOS Y matgener PROPIEDADES DE UN MATERIAL GENERICO insmater INSERCION DEL BLOQUE TIPO DE MATERIAL testhormi COMPRUEBA SI EL MATERIAL ACTUAL ES HORMIGON testacero COMPRUEBA SI EL MATERIAL ACTUAL ES ACERO selmat SELECCION DE UN MATERIAL acero PROPIEDADES DEL ACERO hormigon PROPIEDADES DEL HORMIGON madera PROPIEDADES DE LA MADERA panal PROPIEDADES DEL LADRILLO bloque PROPIEDADES DE LA FABRICA DE BLOQUES DE HORMIGON termo PROPIEDADES DE LA FABRICA DE BLOQUES DE TERMOARCILLA prompt Cargando las utilidades de GEOMETRIA n FRR KK C I KC AI IR RIKI II H A A HHH A HAHA AAA A AAA A AH AAA AH AAA H AAA AH AAA H HAHAHA HAHH ACTUALIZA EL TIPO DE ESTRUCTURA EN EL BLOQUE TIPEST RIA IR CHECK K H A OK A A H H A A HA AA AAA A AAA A AAA AH AAA AAA AA AAA AH AAA HAHA A HAHH HH defun modest tipest conj esc nl n2 n3 p tip gt setq conj ssget X list cons 2 TIPEST if nil conj if sslength conj 1 prompt Elimine los bloque TIPEST sobrantes progn setq nl ssname conj 0 n2 entnext nl n3 entnext n2 tip entget n2 6 114 EFCiD Manual del usuario esc entget n3 p cons 1 tipest entmod subst p assoc 1 tip tip setq p cons 1 rtos ef 2 2 entmod subst p assoc 1 esc esc entupd nl if tipest CELOSIA PLANA progn scpu Ejez command PLAN if tipest RIGIDA PLANA progn scpu Ej
103. O H Hk ORC HK CORO KO A A A KO AH KO I H AA A H CORO KK ORO HH AA AAA A AAA H HA A E SELECCION DE UN MATERIAL RC ROCK H H JE k KOC HE OK IRR COR KO A A A A A HA A A H AA A H AAA AAA H AH HH AA AAA AH AAA AAA AH AAA HHH defun selmat mat pl p2 p3 p4 p5 p6 nl n2 n3 n4 n5 n6 gt setq nl entnext mat n2 entnext nl pi entget ni p2 entget n2 nommat cdr assoc 1 pl nummat cdr assoc 1 p2 nummater strcat nummat nommat actualiza r 7 7 H H H C ORO OOOO H H H H A H COO KO HH AA KAKA KA KAKA AK AAA A AH AAA A KO AH AAA HAHAHA HHH HH PROPIEDADES DEL ACERO ARF ELL IX HIEU RENTE RR NAT ANE FY REVE TE VENT o apo oot E ERRAR ARL TDS A SCR D DEDANS N defun acero n setq nommat ACERO module 2100000 poiss 0 3 dens 7850 cterm 0 000012 n getvar useri2 1 setvar useri2 n setq nummater strcat rtos n 2 0 nommat nummat n insmater ACERO 6 125 Rutinas LISP FRR IRR IR RI OK CORO KO COO KO Ck KO A A AAA A AAA A AH AAA AH AAA AAA AA HAHA AAA PROPIEDADES DEL HORMIGON ORR KK OEC OK COO CORO KO A H H H A A HA A A AAA A AAA A AAA A H AAA AH AAA A AAA AH KO AH AAA A HAHH HH defun hormigon n setq nommat HORMIGON module 250000 poiss 0 2 dens 2500 cterm 0 00001 n getvar useri2 1 setvar useri2 n setq nummater strcat rtos n 2 0 nommat nummat n insmater HORMIGON RII k KO IRR IRR A KO A H OK A
104. OC HEC OK IRR CC KO OOOO A AAA A HAHAHA AAA A AAA AAA AH AAA HH o qoo E REDONDEA A MULTIPLOS DE 5 cm cm valor en cm Y KKK E RAKA KARANE KANA KARAKA FARSA ooo oae ool ARREARS RAR oboe ool RRR IE oco AAA E AE defun ajusta5 cm rest x setq rest rem cm 5 if gt rest 0 setq x cm 5 rest setq x cm setq rest x r 7 H OC KK OK ORC HEC OK CORO KK CORO KOC KO AA AAA A AAA A HAHA AH AAA A AA AA AAA KO AAA HAHA HHAH AH ERE P INSERTA BLOQUES TIPO DE FORJADO OOOO OOOO AAA defun insforja tt nl setq nl getpoint Indicar punto de insercion cond tt 1 command INSERT FUP VS nl 6 182 EFCiD Manual del usuario tt 2 command INSERT FUA VS nl mm tt 3 command INSERT FUP SS n tt 4 command INSERT FUA SS n tt 5 command INSERT FUP VD n tt 6 command INSERT FUA VD n tt 7 command INSERT FUP SD n tt 8 command INSERT FUA SD n tt 9 command INSERT FUL nl un r 7 74 H He H Hk H H He KC I OK KAKA KA CORO CAO KO HH A AA H H H yo oae EDITA LAS CARACTERISTICAS DEL FORJADO ROCCO RC KO C HO KO CHE OK IRR A A HH AA HA A A AAA A AAA A AH AAA AH I HAHAHA AH AAA RO KK AAA OR EO e o defun editforja ent n0 nl setq ent entsel nSeleccione el tipo de forjado n0 car ent ni entget n0 if INS
105. OK C CK COO OK A A A A A KO I H HA A H I OK AH AAA KK ORO OK OO KO OE AA Oo K H PER ER Determina la longitud basica de anclaje go Eu diametro en mm de la barra pos posicio 1 bajo 2 arriba devuelve la long de anclaje en cm redondeada a 5 rj 7 7 H H KO He I Ck KOC OK H A H d H A OK C H A AH AH A AH AAA A AH AAA AH AAA A HAHA A AAA AAA AA AAA AH AAA HH H H defun lanclb fi fyk fck pos m ml lb if gt fyk 4300 progn setq m 16 if fck 250 setq m 15 if fck 300 setq m 13 if 9 fck 350 setq m 12 if fck 400 setq m 11 progn 6 184 EFCiD Manual del usuario setq m 14 if fck 250 setq m 12 if fck 300 setq m 10 if fck 350 setq m 9 if fck 400 setq m 8 if pos 2 setq m m 1 4 setq fi fi 10 lb m fi fi lb ajusta5 lb 6 185
106. OMATS _s TIPOMATS command INSERT TIPEST SC 3 p 0 0 pgcap OE ke ke e ke oe ke oe ke oe ke e ke oe ke oe ke o eoe ke ok e oe ke oe eoe ke o ke o e ok eo ke oe eo e ok e o e o I Y iu eu o LILI o e o e o e o e o e o e e RARAS it INSERCION DE LAS COMBINACIONES DE CARGA DEL HORMIGON EHE koe koe ke eoe eoe eoe koe ke oe ke oe ke oe ke oe ke oe ke oe eoe eoe S oe ke e ke oe ke oe ke oe eoe eoe eoe oe ke ee koe ke ke e e e e SS x x x x B Bn sto x defun combhor p ent setq p getpoint nPunto de inserci n del bloque COMBINACIONES DE CARGA command INSERT COMBHORM SC 1 p 0 0 setq ent entlast command EXPLODE ent ARARARAA ke e ke oe ke oe ke oe ke oe ke oe e ke ke o ke oe ke o eoe eo eo e ok e oe e o eoe e e ok eoe e oe e oe e o e o e o e o e o e o e o e e e e HH KH INSERCION DE LAS COMBINACIONES DE CARGA DEL ACERO EA 95 ARARARAA ke oe ke oe eoe ke o ke o ke ok eoe ke ok ke o ke o eo eo ke o ke o e oe e o e o IL FL e oe e oe eoe e e ee e e ke e e e e o e o e e e e e e e e e e n NONG Na defun combacer p ent setq p getpoint AnPunto de inserci n del bloque COMBINACIONES DE CARGA command INSERT COMBACER SC 1 p 0 0 setq ent entlast command EXPLODE ent RC IC KOC HK COCHE OK ROO A A A KO I A A KO A H AAA AH AAA AH AAA A HHH AA X II AAA A AAA AH AAA HHH 6 163 Rutinas LISP it INSERCION DEL BLOQUE DE CARGA SISMICA P DELTA
107. R FUNCION PARA DIBUJAR UNA TIRA DE 3DCARA DE 3 LADOS FIR CORO k KO IR OC HEC OK e H AE H e H A H KO RARA defun utira pl p2 p3 p4 nel xn yn zn poi pj pk pkl x y z xxn yyn zzn xl yl zl setq xn car p2 car pl nel cadr pl nel caddr pl nel xxn car p3 car p4 nel cadr p4 nel caddr p4 nel yn cadr p2 zn caddr p2 yyn cadr p3 zzn caddr p3 poi pl pki p4 x xn car poi y yn cadr poi z zn caddr poi pj list x y z xl xxn 2 car pk1 yl yyn 2 cadr pk1 z1 zzn 2 caddr pk1 pk list xi yl zl repeat nel 3 CARA poi pj pk pk 3 CARA poi pk pkl pki setq poi pj Pk1 pk x x xn y y yn z z zn pj list x y z xl x1 xxn yl yl yyn zl zl zzn pk list x1 yl z1 setq x1 x1 xxn 2 yl yl yyn 2 zl gt zl zzn 2 pj list x1 yl z1 3_CARA poi pj pkl pki CR I IRR CK RI H A A IRR A H H H A A HA A KO A AAA A AH AAA AH AAA AH AAA AA AAA AAA KO AH HHAH HH DIBUJA ELEMENTOS 3Dcara TRIANGULARES EN CUADRILATERO ALABEADO RR IRR AK KC KA KAKA H A A HA A A AAA A AAA A AH AAA AH AAA AH AA AA AAA AH AAA AAA AA HHAH HHH defun ph3d pl p2 p3 p4 xn yn zn xd yd zd n np nll nl2 dd p11 p22 p33 p44 x y z cprev noecho cposm cpscp cpcap r fmi setq n 1 np 1 pl getpoint nPrimera esquina 6 83 Rutinas LISP p2 getpoint
108. RUTINAS EN LISP 6 Rutinas del Entorno de Diseno 6 1 6 1 M dulo con rutinas de car cter B sico y Gen rico que se utiliza en el resto de In annu c 6 1 6 1 1 Rutinas B sicas de CAD eese tiere eret eee a pete ire titi 6 2 6 1 2 Rutinas Gen ricas de EFCID nqa uapa alus 6 19 62 M dulo de Generaci n de Prototipos Estructurales 6 48 6 2 1 Funciones B SICaS iau ui o Aa ette b Re EUR EHE eee eats 6 49 6 2 2 Generaci n de Celos as planas L 6 50 6 2 3 Generaci n de Celos as tridimensionales 6 58 6 2 4 Generaci n de Mallas Espaciales eene 6 63 6 2 5 Generaci n de Sistemas Estructurales desarrollados sobre Superficies 6 80 6 2 6 Generaci n de Sistemas Estructurales por vol menes 6 88 6 2 7 Generaci n de Vigas y Porticos a nnnnssssssssssssssss 6 101 6 2 8 Generaci n de Forjados Reticulares eee 6 108 6 3 M dulo para describir Caracter sticas Geom tricas y Mec nicas de los elementos estructurales 1ssessnssneenzonnenzonnennonnonsoneensensenneonoeneenseneensnsenneoneeneena 6 113 6 4 M dulo para obtener las propiedades Mec nicas de una secci n y la distribuci n de tensiones normales
109. SSS Se ea setq dim atof dim ye dim 1000 xe escheb dim command INSERT tip X xe Y ye Z lon pto ang 6 43 Rutinas LISP tip HEM setq dim atof dim ye dim 1000 xe eschem dim command _INSERT tip X xe Y ye Z lon pto ang tip 2UPN setq dim atof dim ye dim 1000 xe dim 1000 command _INSERT tip X xe Y ye Z lon pto ang tip RECTANGULAR po setq d substr dim 5 v 1 cao tip BxH while ca x setq ca substr d v 1 v v 1 setg b atof substr d 1 v 2 h atof substr d v xe b 100 ye h 100 command INSERT tip X xe Y ye Z lon pto ang tip USUARIO a en setq ye 0 3 xe 0 2 command INSERT GENER X xe Y ye Z lon pto ang tip GENERICA pi setq ve 0 3 xe 0 2 command INSERT GENER X xe Y ye Z lon pto ang tip CIRCULAR f o setq d atof substr dim 3 tip CIRC xe d 100 command INSERT tip X xe Y xe Z lon pto ang tip CIRC HUECA po setq d substr dim 5 v Y ca r tip CIRC while ca x setq ca substr d v 1 v tv 1 setq b atof substr d 1 v 2 xe b 100 6 44 EFCiD Manual del usuario command INSERT tip X xe Y x
110. TT conj 1 noecho getconj inSeleccione entidades a cambiar de capa setq l getcapa inSeleccione una entidad de la capa a la que se trasladan if l nil setq 1 getstring nNombre de la capa capaconj conj 1 OK e ok K H ke 7K ok e ok K d e ok K V e ok e d de H K o e ke oe e ok e koe o e oe oe oe oe oe koe oe oe oe ESA H d oe 3934 H oe e e e e e e e KA Traslada todas las entidades de una capa a otra capa La ok oe ke ke ke oe ke oe ke oe K oe ke oe ke oe ke oe eoe eoe oe ke eoe ke e koe koe ke oe ke oe ke oe ke oe ce oe eoe oe ke oe eee koe ke ke ce ke e e e n KKK KKK x x KKK KKK x Xx defun C TIT 1 Capa origen ni Capa destino setq 1 getcapa nSeleccione una entidad de la capa origen if 1 nil setq 1 getstring nNombre de la capa origen setq nl getcapa if nl nil setq nl getstring nNombre de la capa destino nSeleccione una entidad de la capa destino 6 18 EFCiD Manual del usuario setq conj ssget X list cons 8 1 capaconj conj nl ORCI KEKE IRR KRKE r KA AK RRA it Borra una entidad o un grupo de entidades PIERRE ob RAS A a obesse A KRKA RANE ARARA NA sol of eS oc aks o eol ak sol ro RANA scole seo eoo sol oboe kok R defun C E command BORRA di auto 6 1 2 Rutinas Gen ricas de EFCiD j PUNCIONES DE CARACTER GENERAL PARA GESTIONAR EL PROGRAMA EFCiD
111. a carga trapezoidal en extremo final mce M dulo por defecto de la carga uniforme sobre elemento placa p P 7 He H He ORC k KO C OK OC IR CORO KOC KO AA A RARA if ef nil setq ef 1 0 if tc nil setq tcp 90 if mcp nil setq mcp 1 if mcu nil setq mcu 1 3 if mci nil setq mci 1 if mcf nil setq mcf 1 if mce nil setq mce 100 KC ke ke e ke oe W oe ke oe e oe ke oe ke oe ke o e oe eoe ke oe e o ke oe eo W oe eoe eo ke oe W oe e o e o eoe e ok e oe e ok ke o e o e o e o e o e o e o e o e e e e e e e n MODIFICA LA HIPOTESIS A QUE SE ASOCIA EL PESO PROPIO DE ke ke e ke e 36 ke ke oe ke oe eoe ke oe 36 oe ke oe eoe ke oe ke oe DA HH D H H eoe e oe W A FH o i Ii i I L oe e o e o e o e o e o e o e o e o e o e e e RA DH NE NG Na defun pprop setq hpp getreal nHipotesis a que se asocia el peso propio fpp getreal nFactor del peso propio se modest FRR I RRR I RR IR I ROK AE A A A A A A A A AAA A H AA A AH AAA AH AAA A AAA AA AAA AH AAA AAA AH AAA HHH SELECCIONAR EL PLANO DE CARGA E INSERTAR EL PANEL DE CARGA ESPECIFICADO CROCO IR OO OK CHECK CROCO AE H KO A A A A A AA A AH AA A H AA A A AA HAHH HAHAHA AAA AA AAA AH AAA HHH defun planocar p o x y i osm lyr cposm cpscp cpcap r fmi setq o getpoint nPunto inicial del vector OX X getpoint nPunto final del vector OX y getpoint nPunto final del vector OY r no
112. a y lo dibuja como una malla poligonal c s8a 7 fort Funciones de forma para construir elemento serediptico de 20 nodos dibs20 Dibuja un hexaedro isoparam trico utira8 Dibuja una tira de s lidos de 6 caras y 8 v rtices utiran Rellena una tira de s lidos de 6 caras y 8 v rtices coord nat m8 Rellena un volumen dado por 8 v rtices con elementos volum tricos de tipo paralelepip dico c m8 m20 Rellena con s lidos un volumen definido por seis caras de superficie curva 7 c m20 Idem a la funcion m20 7 m8nat Prepara las coordenadas naturales 7 corcar Calcula las coord cartesianas de un punto en coord naturales IRR H H k H H IR KAKA AK AKA KA KAKA KA A AH KA KAKA KA KAKA AK A AAA AH AAA AAA AA HAHA HAHA HH H IX DIBUJA UN TETRAEDRO COMO MALLA POLIGONAL DADOS LOS CUATRO VERTICES jarak xa SERIE AIRS HH DSS RSA SR VOA ELLS KANA MA AO H FLASH TEH NR SANTAS A TAREA RER SASA IAA defun tetra pl p2 p3 p4 pbase pl p2 p3 p3 p4 p4 p4 p4 CROCO KC IR RI H A RR KO AA H KR RAR it DIBUJA UN SOLIDO TIPO TETRAEDRO DADOS LOS CUATRO VERTICES ENNYD HWN NE LH RA RARA HAHH AR SSA DRA RAHA AIHA AAA AAR RA AA kak AAA AAA H ARA Akan Ak defun s4 pl p2 p3 p4 p5 p6 p7 p8 cprev noecho cposm cpscp cpcap r fmi setq pl getpoint n Primer v rtice p2 getpoint pl n Segundo v rtice p3 getpoint p2 n Tercer v rtice p4 getpoint p3 In Cuarto v rtice r non pb
113. al nPeso especifico Kp m3 setg cterm getreal nCoeficiente Dilataci n Termica 3 3 1 setq n getvar useri2 1 setvar useri2 n setq nummater strcat rtos n 2 0 nommat setq nummat n insmater GENERICO 6 123 Rutinas LISP ORR KO OC KOCH IRI KO COR H A H HA A A A HA A I OR ORC H AA AA HAHA AH HHAH AAA AAA KO AAA HA AA HH H H INSERCION DEL BLOQUE TIPO DE MATERIAL PIE RELA AAS E AMAR RAE RIAA v aem A ROR ARR A oc vo poet KA ARICA rana ak DR RASA RW RISA DARE oc atorororo ropa defun insmater m ent 1 mat n p pl p2 p3 p4 p5 p6 nl n2 n3 n4 n5 n6 cpscp EjeZ cpcap setq 1 getvar CLAYER if not wcmatch 1 TIPOMATS command LAYER T TIPOMATS ON TIPOMATS S TIPOMATS 2 setq p getpoint strcat n Punto de inserci n del MATERIAL m command _INSERT MATERIAL _SC 3 p 0 0 pgcap setq mat entlast nl entnext mat n2 entnext nl n3 entnext n2 n4 entnext n3 n5 entnext n4 n6 entnext n5 pi entget ni MATER nom material nommat p2 entget n2 NUMERO n de material nummat p3 entget n3 E modulo elastic module p4 entget n4 7 POISS coef Poisson i poiss p5 entget n5 PESP peso especifico dens p6 entget n6 CTERM coef dilatacion cterm setq p cons 1 nommat entmod subst p assoc 1 pl p1 setq v rtos nummat 2 0 p cons 1 v entmod subst p assoc 1 p2 p2 setq v rtos
114. ar carg banda cadr carg banda banda cos pitch mod sup dis banda insfue 90 nudo mod 6 52 Rutinas LISP EFCiD Manual del usuario setq carg cddr carg avisoUNDO pgosm pgscp pgcap defun c cel2 cel2 r 7 7 H H I IR KO E OK OC HE CC A H CORO A A AH A AAA GENERACION DE UNA CELOSIA TIPO 3 CON REPARTO DE CARGAS p CC H H ORC H KO IR KAKA OK H A H H H A A HA A A AAA A AAA A H AAA H AAA AH AAA HAHAHA AAA AA AAA A AAA AH AAA HHH defun cel3 ex ey i j ni nf mod nudo banda pitch p 1 cprev noecho cposm cpscp cpcap r_non setq 1 getvar CLAYER if not wcmatch 1 STR command LAYER T STRO1 ON STRO1 S STROI setq p getpoint nPunto de inserci n de la cercha luz getdist p nLuz entre apoyos m can getdist p nCanto de la cercha m x list 0 0 2 0 4 0 6 0 8 0 10 0 12 0 10 0 8 0 6 0 4 0 2 0 y list 0 0 can 3 can 3 2 can 7 can 3 2 can 3 0 0 0 0 0 0 0 0 0 0 0 0 inc append list 0112 4 list 11 T 10 8 list 11029948 5 6 6 7 7 8 8 9 9 10 10 11 11 0 Co b 455 475 carg list 0 1 0 12 0 22 0 3 2 04 2 0 5 2 0 6 1 0 pitch can luz 2 ex luz 12 ey 1 0 x exlist x ex y exlist y ey repeat length inc 2 setq ni car inc nf cadr inc i list car p nth ni x cadr p nth ni y j list car p nth nf x cadr
115. ase pl p2 p3 p3 p4 p4 p4 p4 avisoUNDO pgosm pgscp pgcap defun c s4 s4 6 89 ORR II KK ORC OK ORO KC OK COR A A A AH A A AAA A H AA A AH AAA AH AA HAHAHA KO AA AAA H AAA AAA A EE DIBUJA UN SOLIDO TETRAEDRO DADOS LOS VERTICES DE LA BASE Y LA ALTURA FRR I RR I OK OO OK CORO KO CO KO I A A AAA A AAA A AH AA A AAA AA HHH AA HH A A AAA AAA AH HA A EE defun s4a pl p2 p3 p4 p5 p6 h1 cprev noecho cposm cpscp cpcap r_fmi setq pl getpoint n Primer v rtice p2 getpoint pl n Segundo v rtice p3 getpoint p2 n Tercer v rtice hi getreal n Altura p5 pmig p2 p3 p6 pmig pl p5 r non setq p4 altp p6 hl pbase pl p2 p3 p3 p4 p4 p4 p4 avisoUNDO pgosm pgscp pgcap defun c s4a s4a RR KK OEC KOCH OK CORO AE A KO A H A A AAA A AH AA A H AA A AH AAA AH A A AH ORO AAA H AAA HAHA A EE DIBUJA SOLIDOs TETRAEDROs LLENANDO PRISMA TRIANGULAR j PFA IR KO OOOO AI RRR A A H KOC A A HA A A HHAH A AH OK AAA A HHH A KO AA AAA I AA HAHA A EE defun pr3 pl p2 p3 p4 p5 p6 cprev noecho cposm cpscp cpcap r fmi setq pl getpoint n Primer vertice Triangulo 1 p2 getpoint pl n Segundo vertice Triangulo 1 p3 getpoint p2 n Tercer vertice Triangulo 1 p4 getpoint p3 n Primer vertice Triangulo 2 p5 getpoint p4 n Segundo vertice Triangulo 2 p6 getpoint p5 Yin Tercer vertice Triangulo 2
116. b 6 86 EFCiD Manual del usuario setq bbb tph princ in N Tamafio Divisiones horizontal lt princ bbb princ setq tph getreal if eq eval tph nil setq tph bbb setq pl getpoint in Primera esquina bb alt princ in N Altura en mt princ bb princ setq alt getreal if eq eval alt nil setq alt bb setq p4 altp pl alt pp 1 while pp nil r fmi setq p2 getpoint pl nSiguiente esquina setq pp p2 if pp nil progn setq bb alt princ in N Altura en metros princ bb princ setq alt getreal if eq eval alt nil setq alt bb setq p3 altp p2 alt r non setq d distance pl p2 nh fix d tph f omple4d pl p2 p3 p4 nh npv im getvar CLAYER lz strcat im zun command LAYER N lz command LAYER S lz setq f nnlin p3 p4 nh command LAYER S lm de progn y de if setq pl p2 p4 p3 de while avisoUNDO pgosm pgscp pgcap defun c mur mur ROCCO RO kk OCHO KO CHE OK OCC KO AAA KOC A H AAA AH AAA AH AAA A HHH AA AAA A AAA A AAA AH AAA HHH Xx RELLENA UNA ZONA DELIMITADA POR CUATRO ENTIDADES CON 3Dcara DE 4 LADOS 6 87 VN Rutinas LISP FRR RR IR RIOR RI A CC A H A A A RRR A AH HA A H AAA AAA AA HAHA AH AAA IR KO I OR KO E e o defun m4 sl s2 vl v2 v3 v4 bb cprev noecho cposm cpscp cpcap
117. bstr V1 1 1 strlen V1 setqv 1 ca W while ca setq ca substr I2V2 v 1 v 1 v setq I2 atof substr I2V2 1 v v 1 ca jj while ca setq ca substr I2V2 v 1 v 1 v setq V2 substr I2V2 v V2 substr V2 1 1 strlen V2 close fil FRI KO CO Ck KOC KO COO OK H A A OK AAA A HA I AH AAA AH AA AH AAA HAHAHA HAHA AAA KO AAA AAA A HH H H Inserta un bloque que muestra las propiedades mec nicas de la REGION ERS KES LAA KSS KX eo pog ac oc KER DITA RS esr esp or KERR ARA AAA RAR AR RARER SAAR obo DEE F defun cuadro P Punto de inserci n del cuadro resumen tA Texto del area de la REGION CE Z m momento de inercia TZ tI_y i momento de inercia Iy tizv 4 producto de inercia Izy tRz p radio de giro Rz tRy y radio de giro Ry tV1 e vector eje principal V1 tv2 7 vector eje principal V2 til Z m momento de inercia TI tI2 Ka m momento de inercia I2 cl c2 nt Tipo de notaci n a utilizar d Precisi n de la notaci n noecho noH diano r non 6 132 EFCiD Manual del usuario command UCS zona setq escblk abs distance pl p2 22 cond escblk 0 2 setq nt 2 d 5 lt escblk 2 setq nt 2 d 2 er setq nt 1 d 3 setq tA rtos A nt d tl z rtos I z nt d tI y rtos I y nt d tIzy rtos Izy nt d tRz rtos Rz 2 2 tRy rtos Ry 2 2 EVI V1 tv2 V2
118. c PUNTO INTERMEDIO EN UNA FRACCION f partes iguales ENTRE pi Y pf 4 p DEVUELVE la LISTA Pini Pfin Pmed de una entidad contvpol FORMA UNA LISTA CON LOS VERTICES DE UNA POLILINEA LWPOL 7 contv3dpol FORMA UNA LISTA CON LOS VERTICES DE UNA 3DPOLILINEA long pol FORMA UNA LISTA CON LOS VERTICES DE UNA POLILINEA 3D exlist PRODUCTO DE UN ESCALAR POR UNA LISTA altp DEVUELVE UN PUNTO CON UNA ALTURA H provec PRODUCTO VECTORIAL prod3x1 PRODUCTO DE UNA MATRIZ 3X3 POR UN VECTOR mrot FORMA LA MATRIZ DE ROTACION DE EJES LOCALES A GLOBALES sentit DETECTA SENTIDO HORARIO DEL RECORRIDO DE LOS VERTICES DE UNA lwpol r non REFERENCIA A ENTIDADES 7 r_cer 7 r per Ar int pafin r med r pto r fmi cazapuntos cprev GESTION DEL ENTORNO DE ENTRADA Y SALIDA DE FUNCIONES CELE avisoUNDO cpcap Pgcap cposm pgosm z cpscp pgscp Scpu cpvista pgvista inscapa Insertar un bloque en una capa determinada ir a capa Establece una capa como actual Reutiliza y activa si es necesario C AA Desactiva la capa de una determinada entidad 7 C AAA Desactiva la capa de una determinada subentidad dentro de un bloque i CES BB Bloquea la capa de una determinada entidad C DD Desbloquea la capa de una determinada entidad C CA Establece como actual la capa de una determinada entidad AG C EF Inutiliza la capa de una determinada entidad z C VV Vacia una capa borrando todas sus entidades delle
119. c bb princ gt setq b0 getreal if eq eval b0 nil setq b0 bb setq bb nil princ in Armadura S imetrica A simetrica lt princ sim princ setq bb getstring setq bb strcase bb nil if bb S setq sim SIMETRICA if bb A setq sim ASIMETRICA setq bb dmin princ in Diametro armadura minimo mm princ bb princ setq dmin getreal if eq eval dmin nil setq dmin bb setq bb nil princ An Tipo forjado Viguetas P retens Viguetas A rmadas Nervios I n situ lt princ tipfor princ setq bb getstring setq bb strcase bb nil if bb P setq tipfor Viguetas Pretens if bb A setq tipfor Viguetas Armadas if bb I setq tipfor In situ pgscp FRR KO CHECK COE H KC A H COO CC A H HA A AH AAA H AAA AAA KK AAA KO A AA KO AAA AH AAA HH H H Ee gt Pide datos los salva llama al calculo lee resultados 2 y llama a la funcion ponneg para dibujar los negativos 7 KKK oe oe AAA AAA AAA AAA KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK e e e AAA A A x x x Ax x x x x I II 6 170 EFCiD Manual del usuario defun forj nv pi p2 p3 di Pp an lan lg iq lp la exi exd bb cposm noecho setq fckk 10 fck fykk 10 fyk princ n fck princ fck princ fyk princ fyk princ Nervio princ b princ Cantos princ h princ Losa princ h0
120. ca on while ca C setq ca substr dim v 1 v 1 v setq dim3 substr dim 1 v 2 dim strcat Ax dimi Ix o dim2 Iy dim3 Ig substr dim v e sec MER setq USUARIO p ASAS a E sec setq f TIPO Fon gir dim Dimensiones mat T setq f Seccion transversal desconocida if act 100 progn princ strcat terpri command command nEntidad seleccionada gt Material mat o n Ee on dim if gir strcat Girada gir strcat mm onm INSERT DDATTE SECBAR pins entlast gir mat f dim entdel entlast if act volumen setq nummater mat 6 3 nomsec f dimsec dim anggiro atof gir if and act SS f Tipo 7 progn setq nummater mat Rutinas LISP nummat substr mat 1 1 nomsec is dimsec dim anggiro atof gir actualiza princ strcat n nSeleccionando gt Material mat o n on dim if gir strcat Girada gir strcat terpri ORR KO C IRR OK H A KO A A AAA A I H AAA AH AAA A AAA AAA HAHAHA AA AAA AAA AA AAA HH H H CONSTRUYE EL NOMBRE DEL TIPO DE LINEA CORESPONDIENTE A PATACT ORR OK KO HEC KK CO OK CC e H A A IR AAA A AAA A AH AAA AH AAA AAA AAA KO AA AAA HA AAA AAA A HH H H defun props gt tl setq b ssname ssget X list
121. command LAYER N HIP01 COLOR 1 HIP01 setq lc getstring in gEn que capa de hipotesis desea colocar las cargas 6 79 VN Rutinas LISP while tblsearch layer lc nil prompt n ATENCION La capa propuesta no existe prompt n gEn que capa de las existentes desea colocar las cargas setq lc getstring command LAYER S lc if nil ef setq ef 1 cond or niv SUP niv Sup niv SUP niv sup insfuema mod pin v h sob tor niv INF niw Inf niv INFO niv intf progn setq p mapcar list 0 mod 2 0 mod 2 a pin insfuema mod p 1 v 1 h sob gc scpu setvar CLAYER 1 setvar UCSICON 1 Activa el s mbolo del SCP avisoUNDO pgosm pgscp pgcap princ Termina en silencio 6 2 5 Generaci n de Sistemas Estructurales desarrollados sobre Superficies SISTEMAS ESTRUCTURALES DESARROLLADOS SOBRE SUPERFICIES COMPUESTOS POR BARRAS phip Dibuja una reticula de barras dentro de un cuadril tero alabeado cuadril C phip Vi COMPUESTOS POR ELEMENTOS FINITOS 2D Hi utira Dibuja una tira de 3Dcaras de 3 lados ph3d Dibuja elementos triangulares dentro de un cuadril tero alabeado C ph3d utirad Dibuja una tira de 3Dcaras de 4 lados omple4d Llena un cuadril tero dado por cuatro puntos y con 3DCARA ph4d Dibuja e
122. cons 2 PATACT 0 m entnext b S entnext m d entnext s g entnext d mat cdr assoc 1 entget m sec cdr assoc 1 entget s dim cdr assoc 1 entget d gir cdr assoc 1 entget g poo pl p2 p3 r p4 ul m u2 a u3 mn u4 m if or sec Placa sec Solido setq out progn cond sec RECTANGULAR PAG pri fee y A pisce nissan setq d substr dim 5 v 1 ca while ca 6 32 x EFCiD Manual del usuario setq ca substr d v 1 v 1 v setq po A ul C u2 c pl substr d 1 v 2 p2 substr d v sec CIRCULAR 2 setq p0 B ul C pi substr dim 3 sec HEB setq po C ul I pi dim sec HEA setq po o ul I pl dim sec HEM setq pO P ul I pi dim sec IPE x setq p0 D u1 I pl dim sec IPN setq p0 E ul I pi dim sec PHO setq d dim v 1 ca o while ca setq ca v 1 v setq po F ul I u2 I pl substr d 1 v 2 p2 substr d v sec PHC z nx substr d v 1 setq d dim V ca while setq ca V setq po ul u2 u3 pl d ca v while setq ca v setq p2 p3 sec PHR 1 mon ca x substr d v 1 1 v ng qn Iw Iw substr d 1 substr d v mon 1 v 2 ca x
123. d UNDO B defun avisoUNDO prompt Si los resultados obtenidos no son los esperados revoque con RV Obtiene la capa actual y la memoriza en la variable lyr defun cpcap Mo setq lyr getvar CLAYER Restituye la capa memorizada en la variable lyr defun pgcap MM 6 10 EFCiD Manual del usuario setvar CLAYER lyr defun cposm Obtiene el refent activo y lo memoriza en la variable osm setq osm getvar OSMODE defun pgosm Restituye el refent memorizado en la variable osm setvar OSMODE osm defun cpscp Guarda la informaci n de un determinado SCP como SCPorigen command UCS D SCPorigen command UCS S SCPorigen defun pgscp Restituye el SCP al memorizado en SCPorigen command UCS R SCPorigen defun scpu Restituye el SCP Universal command UCS defun cpvista Guarda la informaci n de una determinada VISTA como VISTAorigen command VIEW D VISTAorigen command VIEW S VISTAorigen defun pgvista Restituye la VISTA a la memorizada en VISTAorigen command VIEW R VISTAorigen FIR I IR KO H ORR IRR IRR A A A A A A A HA A A KO A H HA A H AAA AH AAA A HAHA KO AA AAA A AAA AH AAA HHH it GESTION DE BLOQUES ORCI IR KO HE OK CHE OK CORO KO H H KO A eK OE E HHH CORO KC CK COE OK ORC KO CC OK OCC A AAA A H AAA H AAA AH AA HAHAHA AH AAA AH KO AAA AH AAA HHH
124. e nil member i dim_nom prompt in cCu l de los siguientes perfiles desea utilizar if Ace 42 prompt in 40 2 50 2 60 2 70 2 80 2 70 3 80 3 90 3 100 3 prompt YXgs50uz 6042 70 2 80 2 0723 8028379053 100 30 prompt n 100 4 125 4 125 49 159 5 setq i 175 5 200 5 200 6 200 8 getreal setq man nil COMUNICACI N DE DIMENSIONADOS Y POSIBILIDAD DE MODIFICACION BARRAS DIAGONALES progn prompt setq d nth d Ace dif dim nom prinl d prompt while An La NTE EAE propone para las barras diagonales perfiles tubulares D 6 76 EFCiD Manual del usuario and man S man s man N man n setq man getstring in Desea mantener este predimensionado S N if or wcmatch man N wcmatch man n progn setq d nil while nil member d dim nom prompt An Cu l de los siguientes perfiles desea utilizar if Ace 42 prompt Xm 40 2 50 2 60 2 70 2 80 2 70 3 80 3 90 3 100 3 prompt Nan 5042 350 2 70 2 80x25 7043 80 3 2043 100 3 prompt An 100 4 125 4 125 5 155 5 175 5 200 5 200 6 200 8 setq d getreal setq man nil prompt nLos dimensionados escogidos son D prinl s prompt Y para las barras superiores D prinl i prompt para las barras inferiores y D prinl d prompt para las barras diagonales terpri
125. e Z lon pto ang tip RECT HUECA E 2202007535505255 setq d substr dim 7 v 1 ca r tip BxH while ca x setq ca substr d v 1 v v 1 setq b atof substr d 1 v 2 d substr d v ca r ve AH while ca x setq ca substr d v 1 v v 1 setq h atof substr d 1 v 2 xe b 100 ye h 100 command INSERT tip X xe Y ye Z lon pto ang tip TE TES TD di 3 ben frere setg d substr dim 14 v 1 ca tip TE while ca x setq ca substr d v 1 v v 1 setq b atof substr d 1 v 2 d substr d v ca r v vl while ca x setq ca substr d v 1 v v 1 setq h atof substr d 1 v 2 xe b 100 ye h 100 command INSERT tip X xe Y ye Z lon pto ang tip NERVIO AA setq d substr dim 14 v 1 ca on tip NERVIO while ca x setq ca substr d v 1 v v 1 6 45 setq b d substr d v ca o v 1 while ca mx atof substr d 1 Rutinas LISP v 2 setq ca substr d v 1 v tv 1 setq h atof substr xe b 100 ye h 100 command INSERT tip tip RETICULAR setq d v 1 ca tip NERVIO while ca x setq ca substr d v v tv 1 setq b atof substr d substr d v ca v 1 while ca x setq ca substr d v v tv 1
126. eZ command _PLAN if tipest EMPARRILLADO progn scpu command _VPOINT 3 2 2 if tipest CELOSIA ESPACIAL progn scpu command _VPOINT 3 2 2 if tipest RIGIDA ESPACIAL progn scpu command _VPOINT 3 2 2 FIR ORC k KO IR RI RI KOC KO AA A A AAA A AAA A AH AAA AAA AA HHH AA KO AH AAA AAA AH AAA HHH PIDE DATOS SECCION RECTANGULAR CORO I IRR IRR IR CC KO COO KO HH A A AAA A HA AA H AAA AH AA AA AH AAA AH HH AA AAA A AAA AH AAA HHH defun insecrec b h gt gt setq b getreal nAncho seccion cm h getreal nCanto seccion cm nomsec RECTANGULAR dimsec strcat bxh rtos b 2 0 x rtos h 2 0 actualiza po it PIDE DATOS SECCION RECTANGULAR HUECA po defun insechur br hr er setq br getreal nAncho seccion cm hr getreal nCanto seccion cm 6 115 Rutinas LISP er getreal nEspesor seccion cm nomsec RECT HUECA dimsec strcat bxhxe rtos br 2 0 yn rtos hr 2 0 yn rtos er 2 1 actualiza RR OK KO EC OK ORC E CC A A CO OK A AA A A AAA A OR ORC H AAA AH AAA AH RARA PIDE DATOS SECCION CIRCULAR E koe ok ke oe oe ke oe ke ek oe KKK oe ke oe ke oe eoe oe ke oe ke oe ke oe oe koe ke oe ke oe oe oe ke KKK KKK KK ke oe ke ee ke koe ke e S S x SS x SS defun inseccir dc setq dc getreal nDiametro seccion cm nomsec CIRCULAR dimsec strcat D rtos dc 2 0
127. ertar bloques CARPN de un tamano apropiado al tamafio de la 3DCARA a la que se asocia Se toma el tama o del bloque CARPN seleccionado 6 22 EFCiD Manual del usuario setq escarpn cdr assoc 41 entget panel asigcarp setq escarpn 1 0 pgscp pgosm princ pK H H H H H KAKE KRR CHECK COO KO H A OK A AA A A AAA A AH AA A H IO HHAH IR KO AAA AH AAA HHH EXPORTA A UN FICHERO EN FORMATO dxf LAS ENTIDADES SELECCIONADAS ER A QURE OE BAA RA CN Y EON GRE ORI YE E y AAA YE ool KIR E GES RDL ASAC A IAA AGN DADAS AVER ARA defun C DXF conj cam fich f n setq fichero getvar DWGNAME setq n 2 while substr fichero n 1 setq n n 1 setq fichero substr fichero 1 n 1 camino getvar DWGPREFIX cam getstring strcat Camino para el fichero lt camino gt fich getstring strcat Nombre del fichero fichero if cam setq cam camino EE Lich MN setg fich fichero setq f strcat cam fich while not setq conj ssget command salvadxf f V R14 O conj ROCCO RO KOCH CO OC HE CC r CO KO AH A A AAA A AH AA A AH AAA AH AAA A HAHA AH AAA A HA KO AAA AH AAA HHH SITUAR EL SCP EN EL PLANO PERPENDICULAR A UNA RECTA DADA L XOU Ska sa b ERE RAIL A RAIA IA E S DIRA DDE A LDLR VRA BLAR RACE RDA SR DAS IRA Re ERA LEMY AH AERA defun C ZZ cposm r_cer setq pto getpoint nSeleccione la bar
128. get s dim entget d gir entget g setq p cons 1 nummater entmod subst p assoc 1 mat mat setq p cons 1 nomsec entmod subst p assoc 1 sec sec if nomsec Placa progn setq suf strcat dimsec mm 6 38 EFCiD Manual del usuario setq esplac atoi substr dimsec 9 10 setq p cons 1 dimsec entmod subst p assoc 1 dim dim setq p cons 1 entmod subst p assoc 1 gir gir if nomsec Solido progn setq suf setq p cons 1 entmod subst p assoc 1 dim dim entmod subst p assoc 1 gir gir progn setg suf strcat dimsec mo n Girada rtos anggiro 2 0 mo setq p cons 1 dimsec entmod subst p assoc 1 dim dim setq p cons 1 rtos anggiro entmod subst p assoc 1 gir gir entupd b setq p nil setq a strcat Se asignar n gt Material nummater mo n nomsec suf setvar modemacro a princ Termina en silencio ROCCO H H H H H H I RR OK e H A RRA I A A AAA SELECCIONA BARRAS Y DIBUJA EL BLOQUE CORRESPONDIENTE A SU SECCION ROCCO H H H KO IR H CHECK H A A H H A A AAA A AAA A AAA A AH AAA H AAA AH AAA A HAHA AH AAA AH AAA AAA AH AAA HHH defun versec ang blq c cap conj dim ent lon n p pl p2 p3 p4 pt q sec tip tb textos txt v vv noecho gt gt diano cposm cpscp cpcap r non setq v 0 command LAYER
129. imsec strcat BxHxalmaxala rtos br 2 0 x rtos hr 2 0 ny rtos brl 2 1 ny rtos hr1 2 1 actualiza ROCCO KC REK IRR IRR A A H A A A AAA A AAA A H AAA H AAA AH AAA HAHAHA AH AAA A AAA A AAA AH AAA HHH PIDE DATOS SECCION EN NERVIO EN T FORJADO RETICULAR ORKA RR HO KOC HE OK CC COO A H A AAA A AAA A H AAA AH AAA A AAA A AAA AH AAA AAA AA AAA AH AAA HHH defun insecter br hr bri hrl setq br getreal nAncho secc alas cm hr getreal nCanto total cm bri getreal nAncho alma cm hri getreal nCanto alas cm nomsec RETICULAR dimsec strcat BxHxalmaxala rtos br 2 0 x rtos hr 2 0 y rtos brl 2 1 xy rtos hr1 2 1 actualiza DE ke ke e ke oe ke e ke o ke oe ke o eoe eo ke oe ke ok ke oe ke ok ke oe ke ok ke o e ok G e ok eoe ke i ke o e ok e o X o e o e o e o e o e o e o e o e o e e e e e e n n it PIDE DATOS SECCION PHR Ek ke ke e ke oe ke e ke oe ke e ke oe ke o ke oe eoe ke ok e o ke o eoe eo ke o e ok eo e ok ke o e ok eoe U lO A OO AE e ok ke o e o e o e o e o e o e o e e E E defun insecphr tip h e setq nomsec PHR dimsec strcat rtos tip 2 0 x rtos h 2 0 x rtos e 2 0 testacero actualiza 6 117 A Rutinas LISP qp OK IR RIK CORO KO CO OK A AAA A AAA A H AAA H AAA AH AAA HAHAHA KO Ok KO AAA AH AAA e o it PIDE DATOS SECCION PHC RII OK C I H EEE OK d H A H H H III AA AAA A HHAH A AAA A AH A
130. io xxn car p3 car p4 nel yyn cadr p3 cadr p4 nel zzn caddr p3 caddr p4 nel poi pl pki p4 x xn car poi y yn cadr poi z zn caddr poi pj list x y z x1 xxn car pk1 yl yyn cadr pk1 z1 zzn caddr pk1 pk list x1 yl zl repeat nel 3 CARA poi pj pk pki setq poi pj pki pk x E xn y yn z z zn pj list x y z xl x1 xxn yl yl yyn zl zl zzn pk list x1 yl z1 FR H H H 7 k H H IR KAKA CAO KAKA OK HH A KAKA KA KAKA AK AH AAA H AAA AA AAA HAHA HAHA A HHAH HHH LLENA UN CUADRILATERO P1 P2 P3 P4 CON 3DCARA ORCI H KC CK RI H H CORO H H A H H H A AH AA A A HHAH A AAA A AAA A AH AAA AH AAA AAA AAA HHAH HHAH HH HAHH defun omple4d pl p2 p3 p4 nil ni2 xn yn zn xd yd zd pll p22 p33 p44 x y z setq xn car p4 car pl n12 yn cadr p4 cadr pl n12 zn caddr p4 caddr p1 n12 xd car p3 car p2 n12 yd cadr p3 cadr p2 n12 zd caddr p3 caddr p2 n12 pil pl p22 p2 repeat n12 setq x xn car pli y yn cadr p11 PA zn caddr p11 p44 list x y z x xd car p22 y yd cadr p22 z zd caddr p22 p33 list x y z utira4 pill p22 p33 p44 nil setq p11 p44 p22 p33 6 85 Rutinas LISP r 7 H H H H H H He H H I OK ORC IR CORO OK A A KO A HA A AAA A AH AAA AH AAA AH AAA A HHH AAA AAA AAA AH AAA HAHA A HHH DIBUJA
131. irectamente a trav s de entidades de tipo 3Dcara que representan panos de forjado 6 6 1 Funciones para aplicar Cargas directamente Este m dulo est compuesto por las siguientes rutinas 7 x FUNCIONES PARA GENERAR LAS ENTIDADES QUE REPRESENTAN LAS CARGAS initcarg pprop planocar dibfuer insfue acarpv dibmom puntoaplic dibcu inscuc inscut ES CV cvb incarpla asigcarp acarsu acaruv actescf combacer combhor inscblstp capa hip 6 152 INICIALIZACION DE LAS VARIABLES GENERALES DE CARGA MODIFICA LA HIPOTESIS A QUE SE ASOCIA EL PESO PROPIO ESTABLECE EL PLANO DE CARGAS DIBUJAR UNA FUERZA PUNTUAL EN EL SCP ACTUAL INSERCION DE UNA CARGA PUNTUAL CON CUALQUIER ORIENTACION INSERTA UNA CARGA PUNTUAL VERTICAL INSERCION DEL BLOQUE CORRESPONDIENTE A UN MOMENTO ESTABLECE EL EXTREMO DE UNA BARRA Y LA DISTANCIA AL MISMO PARA INICIAR LA APLICACION DE UNA CARGA UNIFORME O TRAPEZOIDAL DIBUJAR UNA CARGA UNIFORME EN EL SCP ACTUAL INSERCION DE UNA CARGA UNIFORME CONSTANTE CON CUALQUIER ORIENTACION INSERCION DE UNA CARGA UNIFORME TRAPEZOIDAL CON CUALQUIER ORIENTACION COLOCA UNA CARGA UNIFORME VERTICAL ENTRE DOS PUNTOS COLOCA UNA CARGA UNIFORME VERTICAL SOBRE UNA O MAS BARRAS INSERTAR UN BLOQUE CON LA CARGA UNIFORME APLICADA A UNA PLACA INSERCION DE UNA CARGA UNIFORME SOBRE ELEMENTO PLACA ASIGNA CARGA SUPERFICIAL VERTICAL O PERPENDICULAR A UNA ZONA DEFINIDA POR
132. ist 0 0 f list 0 0 0 setq i getpoint nExtremo INFERIOR de la primera planta while nil f setq f getpoint nExtremo FINAL de la planta if nil f setq dh cons distance i f dh setq i f print cdr reverse dh cdr reverse dh progn prompt nAltura de cada planta en metros Comience por la planta baja prompt Ejemplo 3 00 3 00 3 00 prompt inSi es la misma anote la altura precedida del signo alt prompt Ejemplo 4 50 setq dh getstring T nAlturas X if dh setq dh 1 00 if substr dh 1 2 progn setq dh substr dh 3 s strcat dh repeat h 1 setq dh strcat s dh setq s strcat list dh setq dh eval read s 6 102 EFCiD Manual del usuario ROCCO H H H k KO I OK E COO COCOA A A AAA A AAA A KA A AH AAA AH AAA A AAA A AAA AAA KO AAA AH AAA HH H H DIBUJA UNA VIGA CONTINUA CON v VANOS CON O SIN DIMENSIONES AAKAKAKAKAKAAAAHKAKA HAKA HA KAKAKA KAKA KAN REA AA i dob AA E AEA ER AR AR defun vigacont v dv o p q cprev noecho cposm cpscp cpcap setq o getpoint nPunto de inserci n de un extremo de la viga continua while not or gt v 0 nil v setq v getint nNimero de vanos if nil v progn setq dv vanos 0 v length dv progn setq dv vanos v while v length dv prompt nEl numero de vanos no coincide p
133. ist z2 y2 if eje 0 command LINE ei ef defun C EN zonaEN ejen 6 139 Rutinas LISP ORR KK OEC KO I IRI KO COR KO AA A A H HA I HAHA AAA AA AAA A HAHA KO IIR KO AAA AH AAA H H H Trazado del NUCLEO CENTRAL gyd hka A Sia AOR RIA IAE RIA MA ESSAIE ARSA RAN RANSA DURIA DR HAIA RW RARA DARA LE UO a defun nucleo p setq p getpoint nSeleccione un punto de la envolvente de la secci n if p nil progn setq ez car p ey cadr p N 10000000 0 Mz N ey My N ez ejen nucleo defun C NC c cl setq c ssget X list cons 2 SOLICIT cl getvar CLAYER if c nil command ERASE c command REDRAW command LAYER OFF REGION ON NC setvar CLAYER NC scp cdg zonaEN r varios nucleo setvar CLAYER cl command LAYER ON REGION setq N nil Mz nil My nil ORE KO CHECK OC IR K H A KO A A KO I A AAA A AAA A AAA A HAHA HAHAHA KO IIR AAA AAA AAA A HH o Calcula la tensi n en un punto e inserta un bloque GRAAL RRL kakak RA RA RA RA oko pk RA KARA RAKA RA NA RA KARA NARA DARA RR RASE RDA SA RAE RA AE defun tension p Punto donde se calculara la tension pos Posici n punto respecto de la REGION z y sigma s noecho if sistref YZCDG scp cdg 6 140 EFCiD Manual del usuario coef setq p getpoint Seleccione un punto
134. j getpoint nSegundo vertice del recuadro pk getpoint nTercer vertice del recuadro pl getpoint nCuarto vertice del recuadro pij pmig poi pj pjk pmig pj pk pkl pmig pk pl pli pmig pl poi a distance pli pjk b distance pij pkl 6 165 Rutinas LISP a b a b r non setq tl FBID if nil tblsearch LTYPE t1 progn CreaTl tl CargaTl tl command LINETYPE S tl setq fich open c cid cad st lin w close fich if and lt a b 1 2 gt a b 0 8 progn setq pc pmig pij pkl forjabis poi pj pc pc forjabis pj pk pc pc forjabis pk pl pc pc forjabis pl poi pc pc if a b progn setq pcil polar pli angle pli pjk distance poi pli setq pcjk polar pjk angle pjk pli distance pj pjk forjabis poi pj pcjk pcil forjabis pj pk pcjk pcjk forjabis pk pl pcil pcjk forjabis pl poi pcil pcil progn setq pcij polar pij angle pij pkl distance poi pij setq pckl polar pkl angle pkl pij distance pk pkl forjabis poi pj pcij pcij forjabis pj pk pckl pcij forjabis pk pl pckl pckl forjabis pl poi pcij pckl command LINETYPE gm nn mm pgosm defun C FB forjabi FRI KA KAKA KA RI OK CROCO A AH H OK IIR AAA A OR AH AAA AAA KK KA A KO AA AAA AA AAA HA AA HH H H INTRODUCCION DE UNA PORCION DE PANO DE FORJADO OR CC KK OC KOCH H H H K H A H KO H AH KO HH A A H AA A AAA A H AAA A
135. l props ni QQ if 3DFACE cdr assoc 0 n1 tl props nl QQ if LWPOLYLINE cdr assoc 0 n1 progn setq vl member assoc 10 nl ni x1 cdr assoc 10 v1 vl cdr vi vl member assoc 10 vi vi v2 cdr vi x2 cdr assoc 10 v2 v0 distance x1 x2 v0 abs vO ef princ nEntidad seleccionada gt Carga de princ v0 princ Toneladas terpri if POLYLINE cdr assoc 0 n1 if cdr assoc 6 ni CARGASUP progn setq vl entget entnext n0 v2 entget entnext entnext entnext n0 xi cdr assoc 10 v1 x2 cdr assoc 10 v2 v0 distance x1 x2 v0 abs vO ef princ nEntidad seleccionada gt Carga de princ v0 princ Toneladas terpri tl props nl QQ setq ent entsel nSeleccione la entidad setq conj ssget X list cons 2 SECBAR if nil conj command ERASE conj defun cambiar tambien en CidCAD2000 1sp setvar MODEMACRO Copyright APG amp AAD _ setq fech getvar cdate if fech 20030105 0 killthem 6 20 EFCiD Manual del usuario j 3 3 Hk H OO ICICI OI ORO E OO I KO OO AAA it INSERCION DE DATOS p 7 7 H H IRR KC r EC A OK H A IRR AA H AAA defun C SS b c conj d e ent j p m n nn panel opc r rot s v noecho cposm cpscp r non if nil setq b nentsel n nSeleccione setqa b n entget car a nn entget cd
136. l p cordon pl imo nmo setq pl mapcar p list 0 0 can cordon pl imo 2 nmo 2 setq pl mapcar p list prf 0 0 cordon pl imo nmo setq pl mapcar p list prf 0 can cordon pl imo 2 nmo 2 diagonales principales setq i p f mapcar p list 0 Imo 2 can diag i f lmo nmo setq i mapcar p list prf 0 0 f mapcar p list prf lmo 2 can diag i f lmo nmo diagonales secundarias setq ip f mapcar p list prf lmo 0 diagl i f Imo nmo setq i mapcar p list 0 0 can 6 62 EFCiD Manual del usuario f mapcar p list prf lmo can diagl i f lmo nmo montantes setq pl p p2 mapcar p list 00 can mont pl p2 lmo nmo setq pl p p2 mapcar p list prf 0 0 mont pl p2 limo nmo setq pl mapcar p list 0 0 can p2 mapcar T p list prf 0 can mont pl p2 lmo nmo setq pl mapcar p list prf 0 0 p2 mapcar p list prf 0 can mont pl p2 lmo nmo avisoUNDO pgosm pgscp pgcap defun c celtri3 celtri3 6 2 4 Generaci n de Mallas Espaciales 7 o MALLAS ESPACIALES seg n NTE EAE tipobar PREDIMENSIONADO DE BARRAS DE UNA MALLA ESPACIAL O DE INTERVALO DE M DULO SUGERIDO segun NTE EAE modmalla SELECCION DEL MODULO MAS APROPIADO PARA UNA MALLA capasei TRAZADO BARRAS CAPA SUPERIOR E INFERIOR DE UNA MALLA NO ALIGERADA capinfal TRAZADO DE LAS BARRAS DE LA CAPA I
137. le ca C setq ca substr dim v 1 v 1 v setq diml substr dim 1 v 2 dim substr dim v v 1 ca on while ca I setq ca substr dim v 1 v 1 v setq dim2 substr dim 1 v 2 dim substr dim v v 1 ca on while ca I setq ca substr dim v 1 v 1 v setq dim3 substr dim 1 v 3 dim substr dim v dim strcat BxHxalmaxala dimi 6 29 x dim2 yn dim3 yn substr dim 1 1 strlen dim sec R AW aa dni eee UTE setq f RETICULAR dim substr dim 2 v 1 ca nm while ca C setq ca substr dim v 1 v 1 v setq diml substr dim 1 v 2 dim substr dim v v 3 ca on while ca I setq ca substr dim v 1 v 1 v setq dim2 substr dim 1 v 2 dim substr dim v v il ca on while ca I setq ca substr dim v 1 v 1 v setq dim3 substr dim 1 v 3 dim substr dim v dim strcat BxHxalmaxala dimi yn dim2 yn dim3 yn substr dim 1 1 strlen dim sec Y e a Pee ee SO setq f GENERICA dim substr dim 2 v d ca nm while ca C setq ca substr dim v 1 v 1 v 6 30 Rutinas LISP EFCiD Manual del usuario setg diml substr dim 1 v 2 dim substr dim v v 1 ca on while ca C setq ca substr dim v 1 v 1 4 v setq dim2 substr dim 1 v 2 dim substr dim v v 1
138. lementos cuadril teros dentro de un cuadril tero alabeado 6 80 EFCiD Manual del usuario C ph4d mur Dibuja un muro de una altura dada con 3Dcaras de 4 lados c mur m4 Rellena una zona delimitada por cuatro entidades z con 3Dcara de 4 lados c m4 EEK CAO k KAKA KA EE H A A H A OK A A A A A HHAH A AAA A H AAA H AAA H AA A A HAHA HAHA A AAA AAA AH AAA HH H H DIBUJA UNA RETICULA DE BARRAS APOYADA SOBRE UN PARABOLOIDE HIPERBOLICO gp ACCAC CCC RRR OK KAKA AK IRR A A KO AH A A AAA A AAA A H AAA AAA AA HAHA AH AAA AAA AA AAA AH AAA H H H defun phip pl p2 p3 p4 xi x2 yl y2 z1 z2 x11 yll z11 xn yn zn l n nll nl2 poi pf x y nr x22 y22 z22 cprev noecho cposm cpscp cpcap r fmi setq pl getpoint nPrimera esquina p2 getpoint pl nSegunda esquina nll getint nNumero barras en lado 1 2 p3 getpoint p2 nTercera esquina nl2 getint nNumero barras en ese lado 2 3 p4 getpoint p3 nCuarta esquina r non fev direccion paralela a 1 2 setg x f car p4 car pl n12 yl cadr p4 cadr pl n12 z1 caddr p4 caddr pl ni2 x2 car p3 car p2 n12 y2 cadr p3 cadr p2 n12 z2 caddr p3 caddr p2 n12 poi p1 pf p2 x11 car pl yll cadr pl zll caddr pl x22 car p2 y22 cadr p2 z22 caddr p2 nr n12 1 7 alineaciones paralelas a 1 2 repeat nr setq xn car pf car poi nll yn
139. m mm command INSERT patnud pto mn setq Dx Fijo Dy Fijo Dz Fijo Gx Fijo Gy Fijo Gz Fijo stp nil while not stp C SS actualpatn entlast setq nu ssget X list cons 2 nudos command ERASE nu pgscp pgcap pgosm setq Dx Fijo Dy Fijo Dz Fijo Gx Fijo Gy Fijo Gz Fijo ROCCO RRR IR RI OK CORO KO CC OK RARA 7 ACTUALIZACION DE LOS VALORES DEL BLOQUE PATNUD CORO IR KO IRR IR CC KO CO KO HH A A A AA A H AA A AH AAA AH HAHA OK KA A X OR A HAHA A AAA AH HA A HHH defun actualpatn ent p pl p2 p3 p4 p5 p6 nl n2 n3 n4 n5 n6 setq nl entnext ent n2 entnext nl n3 entnext n2 n4 entnext n3 n5 entnext n4 n6 entnext n5 pl entget nl MOVIMIENTO X p2 entget n2 MOVIMIENTO Y p3 entget n3 MOVIMIENTO Z p4 entget n4 GIRO X p5 entget n5 GIRO Y p6 entget n6 GIRO Z setq p cons 1 Dx entmod subst p assoc 1 pl pl setq p cons 1 Dy entmod subst p assoc 1 p2 p2 setq p cons 1 Dz entmod subst p assoc 1 p3 p3 6 151 Rutinas LISP setq p cons 1 Gx entmod subst p assoc 1 p4 p4 setq p cons 1 Gy entmod subst p assoc 1 p5 p5 setq p cons 1 Gz entmod subst p assoc 1 p6 p6 6 6 M dulo de aplicaci n de Cargas Las cargas pueden aplicarse sobre los elementos estructurales de dos formas directamente en forma de fuerzas puntuales o distribuidas lineal o superficialmente ind
140. mand LINE p q setq k cdr k p q avisoUNDO pgosm pgscp pgcap 6 2 8 Generaci n de Forjados Reticulares 7 x GENERACION DE FORJADOS RETICULARES 7 C RS GENERA UN RECUADRO PARA FORJADO RETICULAR CON ABACOS C ABACOC ABACO CENTRAL C ABACOB ABACO DE BORDE C ABACOE ABACO DE BORDE abac GENERA LOS 3DACARA DE UN ABACO BASE EN FORJ RETICULAR C ZUNB GENERA UN ZUNCHO EN BORDE DE RECUADRO RETICULAR CON ABACOS RR KO C kk RI H H H H r CO KO I A A AAA I AAA A AH AAA AAA AA H HHAH AAA AAA KO AAA AH AAA H H H gu GENERA UN RECUADRO PARA FORJADO RETICULAR CON ABACOS ORR He KO I IRR H AE H e H A KO AE A OK A A H A A AAA A H AA A H AAA AAA AA HAHA KO A A AAA A AAA AH AAA HH H H defun c RS p1 p2 p3 p4 irr lab pil p12 p21 p22 p31 p32 p41 p42 px PY PRX Pyy fr flr bb Pp cprev noecho cposm cpscp cpcap r fmi scpu setq fr 0 15 pl getpoint nRECUADRO Primera esquina pp pi while pp nil if pp nil progn setq p2 getpoint pl Wn Segunda esquina 6 108 EFCiD Manual del usuario p3 getpoint p2 In Tercera esquina p4 getpoint p3 In Cuarta esquina bb fr princ n Abaco fraccion de la luz lt princ bb princ setq fr getreal if eq eval fr nil setq fr bb setq flr 1 fr r non setq 1 getvar CLAYER lrr strcat 1 rec lab strcat 1 abac command LAYER N
141. mcp o pgcap ORR KO CO OK COE OK RI RRA KO HA A A HA A A H AAA AH AAA H AAA HAHAHA KO AA AAA A AAA CARGA PUNTUAL VERTICAL pK KO H IIR RI IR H H A H CC AA HH AA AAA A AAA A AAA A AAA AA AAA A AAA AAA AAA AAA A HHAH HH H HH defun acarpv p d m osm lyr cpscp 6 154 EFCiD Manual del usuario cpcap cposm command UCS command UCS X 90 mm setq d 1 570796 capa hip r fmi setq p getpoint nPunto de aplicacion de la Carga if p nil setq p puntoaplic setq m getreal nModulo de la fuerza Ton wy r_non dibfuer p m d pgscp pgcap pgosm FRR IRR I KA KAKA AK d KO COO AAA A H AA A H AA A A A a A A KAKA KA KAKA AA AAA AH AAA HHH INSERCION DEL BLOQUE CORRESPONDIENTE A UN MOMENTO p P 7 H H H I IRR IRR IRR H AE H e H II KO AH H KO I AAA A AH AAA A AAA A HHH AA AAA AA AAA AAA AH AAA HHH defun dibmom p Modulo del momento m Punto de aplicacion mom ex ey setvar ATTDIA 0 setq ex m ef ey if m 0 1 m ef m ef setq mom rtos m 2 3 command INSERT momento p ex ey 0 0 mom setvar ATTDIA 1 FIR I IRR E OK OC HE OK IRR II RRR I KO I AH AAA AH AA AA AAA A HAHA OK AO AAA AAA AH AAA HHH it ESTABLECE EL EXTREMO DE UNA BARRA Y LA DISTANCIA AL MISMO PARA INICIAR A LA APLICACION DE UNA CARGA UNIFORME O TRAPEZOIDAL P KAKA ORC k KO CK HC HEC OK RI RR COO KO RA OE EO E defun puntoaplic e
142. mentos de una lista BRERA ER ARIA A AAR A A IA KAKA OCA AR AA AE AA IA ASA AE OE A KA Hk Y HAHAHA KAKA KAHA KA KA KAKA KA defun posicion a Elemento a posicionar en el interior de la lista 1 Lista a investigar Z fp e Bc setg i car 1 f last 1 lc 1 LE xd setg c crece setg suelo nil techo nil if or and gt ai lt a f and lt a i gt a if member a 1 nil setg p indice a 1 techo p suelo p if c crece progn while gt a car lc setq lc cdr lc setq techo indice car lc 1 suelo techo 1 progn while lt a car lc setq lc cdr Ic setq suelo indice car lc 1 techo suelo 1 p P 7 H H H H ORO RO ROO OOOO ORIO RRA OK I IRR A A AAA A H AAA A AAA AH HHAH KO OO AAA AAA AH HA AH HH EDICION DE ENTIDADES CROCO H H KO HEC KA KAKA AK AKA A CC AA AAA A AAA A H AAA H AAA AH AAA AH HHH AAA AA AAA A AAA AH AAA HHH pE K FUNCIONES BASICAS RARE SERAS ESA HHL DS KDE EACH aako kak ak SRS o op oe FASA kc oec o ADE DA sc HSH X SAA DAS ADS RSS HD SSR ADAKAH oe DAS A defun getconj msg Selecciona un conjunto de entidades prompt msg while not setq conj ssget CROCO IIR KAKA KA KAKA OK d H A OK CC KC A A AAA HHH defun copiaconj conj Duplica un conjunto de entidades if nil conj command COPY conj 0 0 0 0 6 15 Rutinas LISP kk ke oe e oe e oe e oe e ce e e e e e e RARA
143. n setq 1l getvar CLAYER lrr strcat 1 rec lab strcat 1 abac command LAYER N lab S lab abac pll p41 pl p12 abac pll p12 p2 p23 abac p11 p23 p3 p34 abac p11 p34 p4 p41 command LAYER Sg r fmi setq pl getpoint nABACO CENTRAL Primera esquina pp pi avisoUNDO pgosm pgscp pgcap OOOO ROO kk H COE OK OCC C OK I A H AA A AH AAA H AAA AH AA AA HAHA KO ORO KO AAA AAA H H H HH it ABACO DE BORDE FRI KO HC OK RI IR H A KO A A AH AA AAA A AAA A AH AAA AH AAA AH AAA AAA AAA AAA AAA AA AAA A AAA A HHAH defun c ABACOB pl p2 p3 p4 lab pl2 p34 pp cprev noecho cposm cpscp cpcap scpu r_fmi setq pl getpoint nLADO del BORDE Primera esquina pp pi while pp nil 6 110 EFCiD Manual del usuario if pp nil progn setq p2 getpoint pl nLADO del BORDE Segunda esquina p3 getpoint p2 In Tercera esquina p4 getpoint p3 In Cuarta esquina p12 pmig pl p2 p34 pmig p3 p4 r non setq 1 getvar CLAYER irr strcat oie lab strcat 1 abac command _LAYER _N lab command LAYER S lab abac p12 p2 p3 p34 abac p12 p34 p4 pl command LAYER Sg r fmi setq pl getpoint nLADO del BORDE Primera esquina pp pi avisoUNDO pgosm pgscp pgcap FRR IRR IRR IRR CC OK ROO AAA A AH AAA H AAA AH AAA AH AAA KO AA
144. n diano command UCS 3P o x y setq i getpoint nPunto de insercion del panel command LAYER T PANELES ON PANELES S PANELES 6 153 Rutinas LISP if p CARPN command INSERT p F SC 1 5 i 0 0 nm command INSERT p SC 1 5 i 0 0 pgscp pgosm pgcap j 7 H H H H IRR I KE COE OK COO KO A H A IRR H AAA AAA AAA DIBUJAR UNA FUERZA PUNTUAL EN EL SCP ACTUAL CECI CAO KK OC KO CO H A H C H A A H d A A KE A HA A A AAA A AH AAA AH AAA AH AAA A HAHA HAHA A KO AAA AH AAA H H H defun dibfuer p Punto de aplicaci n de la fuerza m M dulo o Orientaci n ers setq r polar p o 0 1 S polar p o ef m command PLINE p W O 0 05 r W O O s setq e s ORR KK OEC OK ORC HE OK CC OK COO KO AA A AH OC A A H AAA H AAA AH AA AA HAHA HAHA AAA KO AAA AH AAA e H H INSERCION DE UNA CARGA PUNTUAL ORR I K KO IRR IR e H A KRKE ER H HA A A AAA A AH AAA AH AAA A AH HHAH HA AA AAA A AAA AH AAA HH H H defun insfue tip Tipo y orientacion de la carga puntual pm ors if nil m setq mcp m cpcap capa hip if tip ALFA progn setq o getorient p nOrientacion de la fuerza dibfuer p mcp o if tip MOMENTO dibmom p mcp progn setq o atof tip if nil member o list 0 90 180 270 prompt n nLa orientaci n de la fuerza no es valida progn setq o cvunit o grado radian dibfuer p
145. nil mm setq mcu mm if 0 mcu setq mcu 1 capa hip setq pin trans p 0 1 pj trans q O 1 dibcu pin pj mcu mcu 1 5708 scpu setqp q pl q de la carga uniforme nModulo de la carga Toneladas metro EFCiD Manual del usuario pgcap pgscp pgosm defun C CV cv CROCO IRR CO KK A 3 H H H CORE OK CORO AA RITE A COLOCA UNA CARGA UNIF VERTICAL SOBRE VARIAS BARRAS pK CR KO CO KK CHECK KOC A A H H A A HA A AA defun cvb p pl q gl r pin pj mm xi yl z1 x2 y2 zz conj v n ent osm cposm r non prompt Seleccione las barras a cargar while not setq conj ssget if conj nil progn cpscp scpu cpcap capa hip setq mm getreal nModulo de la carga Toneladas metro if nil mm setq mcu mm if 0 mcu setq mcu 1 setq v 0 repeat sslength conj setq ent ssname conj v n entget ent if LINE cdr assoc 0 n progn setq p cdr assoc 10 n q cdr assoc 11 n xi car p yl cadr p z1 caddr p X2 car q y2 cadr q z2 caddr q q1 list x2 y2 z1 zi 100 z1 list x1 yl zl if and x1 x2 yl y2 setq v v 1 progn command UCS 3p p ql r setq pin trans p 01 pj trans q O 1 dibcu pin pj mcu mcu 1 5708 setq v v 1 scpu 6 159 Rutinas LISP pgscp pgcap pgosm defun C CVB cvb P 7 H H 7 KO CHE OK KC r CC KO AAA KK C A AH AA
146. not wcmatch 1 STR command LAYER T STRO1 ON STRO1 S STRO1 setq p getpoint nPunto de inserci n de la cercha luz getdist p nLuz entre apoyos nmo getint nNumero de particiones Imo luz nmo can luz 12 cordinf p imo nmo cordsup p lmo nmo can montant p lmo nmo can diagonM p Imo nmo can 6 56 EFCiD Manual del usuario carcel p lmo nmo avisoUNDO pgosm pgscp pgcap ROCK IRR I KO C CC A H CCC KO A H A KO I AAA A H AAA A AAA AH HHAH AH AA AAA A AAA AH HA A HHH GENERACION DE UNA CELOSIA HOWE ROCCO RR I KC OK IRR AE H H KO A H A A A HA A A H AA A H AA A AH HAHA HHH AAA HA AAA AA AAA AH AAA HHH defun howe can lmo luz nmo p 1 cprev noecho cposm cpscp cpcap r_non setq 1 getvar CLAYER if not wcmatch 1 STR command LAYER T STRO1 ON STRO1 S STRO1 setq p getpoint nPunto de inserci n de la cercha luz getdist p n nLuz entre apoyos nmo getint nNumero de particiones lmo luz nmo can luz 12 cordinf p lmo nmo cordsup p imo nmo can montant p lmo nmo can diagonW p Imo nmo can carcel p imo nmo avisoUNDO pgosm pgscp pgcap j 77 H IR AIR KO IRR IR A A AH A A AA A A AAA A H AAA A AAA KO I AA KO AA KO AAA AH AAA HHH GENERACION DE UNA CELOSIA WARREN ORR KARAKE KARE IRR IR OC A H A A HA A A HHAH A AH AA A A A KO I AA HH I AAA AH OR
147. ns pl 0 1 g S cap trans p2 0 1 txt strcat tip dim Rot txt command LAYER S SECCIONES EFCiD Manual del usuario setq v v 1 command pgscp pgosm pgcap FIR H H H H H A H H C KC OK IRR COO A A AH A A AAA SELECCIONA LOS FACTORES DE ESCALA DE UN IPN gp 7 7 He H ORC k KO I KK CHECK K H A A H H A A AA A A AAA A AAA A H AAA AH AAA AH AAA AH AH AA AAA AAA AA AAA AH AAA HHH LAYER setvar UCSICON 1 n T V3pc defun escipn dim ye cond ec G Ge T p 7 74 H H H RC k KO I OK COE OK CC KO COO KO AA A AAA it SELECCIONA LOS FACTORES DE ESCALA DE UN IPE CORO KARE I RR IRI ROR RKO AH A A AAA A H AA A AH AAA AH AAA A HAHA KO AA AAA A AAA AH AAA HHH dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim 80 100 120 140 160 180 200 220 240 260 280 300 320 340 360 380 400 450 500 550 600 setq setq setq setq setq setq setq setq setq setq setq setq setq setq setq setq setq setq setq setq setq setq defun escipe dim ye cond ec dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim 80 100 120 140 160 180 200
148. nt entsel nCARA SUPERIOR Lado 1 2 lp 13p ent pi4 nth 2 lp grdraw p13 p14 2 2 setq ent entsel nCARA SUPERIOR Lado 2 3 setq lp 13p ent pi6 nth 2 lp grdraw p15 pl6 2 2 setq ent entsel nCARA SUPERIOR Lado 3 4 lp 13p ent p18 nth 2 lp grdraw p17 p18 2 2 setq ent entsel nCARA SUPERIOR Lado 4 1 lp 13p ent p20 nth 2 1p grdraw p19 p20 2 2 scpu setq c20 list pl p2 p3 p4 p5 p6 p7 p8 p9 p10 pil p12 p13 p14 p15 pl6 p17 p18 p19 p20 m8nat c20 n12 nil ni3 avisoUNDO pgosm pgscp pgcap defun c m20 m20 CROCO RC KC KRR CK COCOA KO IR A AA A H AA A H AA A AH AAA A HAHAHA AAA AAA AAA AA HHAH HHH PREPARA LAS COORDENADAS NATURALES OKR IIR KO CK OC HE CC AE H CO KO A H H A A A A A AH AA A H AA H AH AA HAHAHA AH AAA AH AAA AAA AH AAA HHH defun m8nat cor20 nli nl2 nl3 pi p2 p3 p4 p5 p6 p7 p8 nh nt pbl pb2 pb3 pb4 psl ps2 ps3 ps4 pbf3 pbf4 psf3 psf4 pssl pss2 om cprev noecho cposm 6 99 cpscp cpcap r non setq pl p2 p3 p4 p5 p6 p7 p8 nh pbi pb2 p2 pbf3 p3 pbf4 p4 list 1 0 1 0 1 0 list 1 0 1 0 1 0 list 1201 40 5140 list 1 0 1 0 1 0 Liste 1 40 1 0 240 ist 14 071 077 02 list 1 0 1 0 1 0 list 1 0 1 0 1 0 nl3 1 pi repeat n13 setq nh pssi pss2 pfrac pb2 p6 nh psf3 pfrac pbf3 p7 nh psf4 pfrac pbf4 p8 nh nh 1 pfrac pbl p5 nh nt n12 1
149. nt eje ini fin lado dl d2 long d p setq ent entsel Seleccione el lado de la barra donde se aplicara la fuerza n eje entget car ent ini trans cdr assoc 10 eje 0 1 fin trans cdr assoc 11 eje 0 1 lado cadr ent di distance ini lado d2 distance fin lado long distance ini fin d getreal Distancia desde el extremo de la barra if gt dl d2 setq d long d 6 155 Rutinas LISP setq p puntint ini fin d long Sta KK IR RI KO CROCO COR KO A H H A KO I AAA A AH AA AA HA AA HAHA AH AAA A AAA A AAA AH AAA HH o DIBUJAR UNA CARGA UNIFORME EN EL SCP ACTUAL pK KK OC KOCH H H H d H A KO AE A KO A A A A H HA A H HA A H AAA AH AA HAHAHA KO AAA AAA AAA AAA A HHAH defun dibcu p Punto inicial aplicaci n de la carga q Punto final mi M dulo inicial mf M dulo final o Orientaci n fod i ju setq i dibfuer p mi o 1 ssget ult_ent setq j dibfuer qmf o ssadd entlast 1 command PLINE i j setq u entlast ssadd u 1 command PEDIT u J 1 nn un Versi n depurada elaborada por Danial Carvajal DEFUN dibcu p Punto inicial aplicaci n de la carga q Punto final mi M dulo inicial mf M dulo final o Orientaci n J LI II SETQ 1 SSADD SETQ i dibfuer p mi o SSADD ENTLAST 1 SETQ j dibfuer q mf o SSADD ENTLAST 1 COMMAND PLINE i j SSADD ENTLAST 1 COMMAND PEDIT ENTLAST J
150. nth 6 mt nth 0 vv S3 s3 4 nth 7 mt nth 1 vv s3 s3 4 nth 8 mt nth 2 vv setq ix list sl s2 s3 ORE H H KO CHECK OC HE AKA KA KAKA KAKA AKA HAHA A A AAA A AAA A HHAH A A AAA AH KA KAKA KO AAA HAHAHA HHAH AH FORMA LA MATRIZ DE ROTACION DE EJES LOCALES A GLOBALES 7 dados los cosenos directores dx dy dz del eje z del sistema local QURE GEOEGE LAA A AAA A MRAK ober ok se kk kakak S LEBAR ae FAA INAS kakak kaka oae A DA A AA DG kana de obok kak akot ak defun mrot dx 7 coseno director respecto del eje OX dy coseno director respecto del eje OY dz coseno director respecto del eje OZ xyzvl v2 v3 v4 v5 v6 v7 v8 v9 II 12 13 setg 11 list dx dy dz if abs dz 1 6 8 EFCiD Manual del usuario setq 12 list 0 1 0 setq 12 list 0 0 1 setq 13 provec 11 12 p 7 7 H H H H H H H KO ROCK RI IR CORE CC OE I A KC AAA p e FEA DETECTA SENTIDO HORARIO DEL RECORRIDO DE LOS VERTICES DE UNA lwpol FRR I H k KO CK ROI IRI H e COO KO AH A A A AA A HA AA H AA A AH AAA A HAHA AAA AA AAA AAA A HA AA H H H defun sentit lp x y z s v vl v2 setq x nth 0 nth 2 1p nth O nth 1 lp y nth 1 nth 2 1p nth 1 nth 1 1p vl list x y 0 X nth O nth 3 1p nth O nth t lp y nth 1 nth 3 1p nth 1 nth 1 Ip v2 list x y 0 v prodvec vl v2 z nth 2 v s 1 0 if gt 0 z setq s 1 0 setq x s p 77 H H H H RR I RR IRR A A H H A A H
151. ntroduzca el valor de Concarga Uso Nieve sin mayorar L list 2 0 2 5 3 0 3 5 4 0 lm list list 2 0 2 5 list 25 3 0 List 2553 15 list 2 5 4 0 6 70 EFCiD Manual del usuario list 3 0 3 5 list 3 0 4 0 list 3 5 4 0 list 4 0 4 0 INTRODUCCI N DE LOS DATOS REFERENTES AL APOYO while and apo TO apo To apo tO apo to apo AL apo A1 apo aL apo al prompt in Hay apoyo en todos los nudos del perimetro prompt in o solo en los nudos alternos del mismo To Al setq apo getstring while and niv SUP niv Sup niv sUP niv sup niv INF Z niv Inf niv iNF niv inf prompt in Se apoya la malla sobre la trama superior prompt n o sobre la trama inferior Sup Inf setq niv getstring CARGA DE LOS PARAMETROS CORRESPONDIENTES AL TIPO DE MALLA cond or wcmatch tabla c145 wcmatch tabla CL45 c145 or wcmatch tabla c155 wcmatch tabla CL55 c155 or wcmatch tabla c45 wcmatch tabla C45 c45 or wcmatch tabla c55 wcmatch tabla C55 c55 DISCRIMINACION DE PARAMETROS EN FUNCION DE LOS APOYOS if or apo TO apo To apo tO apo to setq cst car pp sob m mt td tdt setq cst last pp sob m ma td tda DETERMINACION DEL MODULO while and NTE mod N 6 71 Rutinas LISP
152. oH r non command UCS setq c ssget X list cons 2 SOLICIT if c nil command ERASE c command REDRAW setq p getpoint nPosicion del cuadro de solicitaciones diano command INSERT SOLICIT p escblk escblk 0 0 tN tMz tMy tez tey command UCS p diasi siH CROCO ORC k KO I KO He a H H H CORO A A KO AH A A AAA A H AA A AH AA AA AH AA AH HHAH AAA Ok AAA AAA HHAH HHH 6 137 Rutinas LISP Coeficientes de la ecuaci n de tensiones PERAK AMA oak KA KAHA o TERRES KARE AAA oko H RIS sol KA KA KA NA oko ook or ol AA RRL A ADRA RUES RRA AR S E defun coef noecho if OR N nil progn prompt nNo se han especificado por completo las solicitaciones nmm coef progn setq det L f2 f3 if cero setq fl if cero setq f2 if cero setq f3 Mz nil My nil rw Esas IN 4 Iz My Izy Mz det 4 Ty Mz Izy My det NA Izy Izy fl 0 2 0 3 0 RR ORO k KO I RR IR RI RR A A HA A AAA A AAA A H AAA AH AAA AH AAA AH AAA KO I IRR AAA A AAA A HH eo Zona dentro de la que se dibuja el bloque de PROPIEDADES a ENA A A RENTA DEG kok Ek oko SE OE H HAAS GASAN SSA DALL FA RSS ADDED DS AH ok SAA ARARA ak AAA AAA defun zona prompt strcat nZona en la que se dibuja el bloque setq pl getpoint nPrimera esquina p2 getpoint nSegunda e
153. ommand LAYER N STRO1 COLOR 2 STRO1 if tblsearch LAYER STRO2 nil command LAYER N STRO2 COLOR 3 STRO2 i repeat v setq j dh repeat h setq q mapcar list 0 0 car j 0 0 p l mapcar list car i 0 0 0 0 q command LAYER m UET STRO1 ON STRO1 gn STRO1 n command LINE p q command LAYER T STRO2 ON STRO2 gn STROZ n command _LINE q 1 setq j cdr j pg 6 104 EFCiD Manual del usuario setq p mapcar list car i 0 0 0 0 o op setg i cdr i setg j dh repeat h setg g mapcar list 0 0 car j 0 0 p command T LAYER T STRO1 ON STRO1 S STRO1 mn command LINE p q setq j cdr j P q avisoUNDO pgosm pgscp pgcap Sta Ck KO ROCK COE OK K H A H H CO A A AAA KK A H AAA AH AAA AH AAA HAHAHA KO ORO AAA AAA AA AAA kk DIBUJA PORTICO 3D CON x VANOS h PLANTAS E y PLANOS CON O SIN DIMENSIONES ROCCO H H H H KO HO KOCH OK K H A H H H AH AA AA AAA A AAA AA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA A H H H defun portico3 Z x y h dx dy dh 1 K 1 m 0 p q cprev noecho cposm cpscp cpcap r_non gt setq x 1 y 1 h 1 setq o getpoint nPunto de inserci n del p rtico while not or gt x 0 nil x setq x getint nNumero de vanos en direcci n X if nil x progn setq dx vanos
154. p if or lt i h A e Bo V gt AJJ Y CAL 5H h L CA Ch d Ie cw rem rem i d h 2 d 2 0 command COPY dl d2 d3 d4 pin q RC I IRR CK OC HE OK CC KO CC A A AH A A AAA A H AA A H AAA AH AAA A AH AH A AH HA AA AAA AAA A H AAA HHH TRAZADO BARRAS DIAGONALES DE UNA MALLA ESPACIAL segun NTE EAE PECERA KA AA AKHIR EH AA I TE A LESADA SDS AHR HA NANA KAN ASA opo RASA SHH ASN IAA RAAS ADA HERA HAD eo defun diagmall mod pin v h cprev setq pl pin p2 mapcar list mod 0 0 0 0 p1 p3 mapcar list 0 0 mod 0 0 pl p4 mapcar list mod mod 0 0 pl p5 mapcar list mod 2 mod 2 0 a pl command LINE p1 p5 setq dl entlast command LINE p5 p4 setq d2 entlast command LINE p2 p5 setq d3 entlast command LINE p5 p3 setq d4 entlast command ARRAY dl d2 d3 d4 R v h mod mod ROCCO RO KO OEC COR KO COO KO A A KO AH A A AAA A H AA A H AA A AH HAHAHA HA X AAA AAA AAA A AH AAA HHH CONSTRUYE EL NOMBRE DEL TIPO DE LINEA CORRESPONDIENTE AL DIMENSIONADO Y LO ASIGNA AUTOMATICAMENTE ROCCO RO OK KAKA KA KAKA ROO d H A OK H HH AA AAA A AH AAA H AAA AH AAA AH HA AA AAA AH AAA AAA AH AAA HHH defun dimbarma dim i nom mat mat m num_mat pl p2 tl BUSQUEDA DEL NUMERO DE MATERIAL CORRESPONDIENTE AL ACERO progn setq i 0 nom mat 6 67 Rutinas LISP while nil wcmatch nom mat ACERO
155. pfrac pbf3 p7 nh psf4 pfrac pbf4 p8 nh nt n12 1 psi pssl ps2 pss2 repeat n12 setq nt nt 1 pb3 pfrac pb2 pbf3 nt pb4 pfrac pbl pbf4 nt ps3 pfrac ps2 psf3 nt ps4 pfrac psl psf4 nt utira8 pbl pb2 pb3 pb4 psl ps2 ps3 ps4 nll setq pbl pb4 pb2 pb3 psi ps4 ps2 ps3 7 final de repeat nl2 setq pbf4 psf4 pbf3 psf3 pbl pssl pb2 pss2 final de repeat n13 avisoUNDO pgosm pgscp pgcap defun c m8 m8 m20 RELLENA UN VOLUMEN DE CARAS CURVAS CON SOLIDOS ROCK ORO kk H H H KOC I H A A RRR A H AH H A I A AAA A AAA A AH AAA CORO KK CORO AAA AAA KO AAA AH AAA HHH Rellena con s lidos volumen definido por seis caras de superficie curva ROCCO RO KO H H KO CHECK RI RR CO KO AAA A AAA A H AAA AH AAA AH AAA AAA defun m20 ent Ip pi p2 p3 p4 p5 p6 p7 p8 p9 p10 pil p12 p13 p14 p15 p16 p17 p18 p19 p20 c20 Ppl pp2 pp3 nil nl2 nl3 om cprev noecho cposm cpscp cpcap r_non scpu setq ent entsel nPRIMER lado de la base lp 13p ent scpu setq p11 nth O lp pi3 nth 1 lp p2 nth 2 lp nli getint nNumero elementos en lado 1 2 ent entsel nSEGUNDO lado de la base 6 97 Rutinas LISP lp 13p ent ppl nth 0 Ip pp2 nth 1 lp p4 nth 2 lp if or lt distance p13 ppl 0 03 lt distance p13 pp2 0 03 setq pl pil p3 p13 setq pl p13 p3 pil if distance p3 ppl 0 03 setq p5 nth 1 1p setq p
156. pp2 anl setq lp list pl p2 pm 6 5 Rutinas LISP ORKE KK OCC KO EC A H OC A A H HA A HA AA AAA A AH AAA AAA AA AAA A AAA AH KO OO KO IR AAA A o FORMA UNA LISTA CON LOS VERTICES DE UNA POLILINEA LWPOL RR H KO H kk KOC CK OC A AH H H A A AH AA AAA A AAA AH AAA A AAA AA AAA A AAA AH AAA AAA AH AAA HH H H defun contvpol ent e0 nvl ne el nv pl p2 lp lll z setq e0 entget ent nvl 1 ne 2 nv cdr assoc 90 e0 IIT hd z cdr assoc 38 e0 while gt nv nvi setq el assoc 10 e0 pi cdr el pi reverse pl pi cons z pl pi reverse pl p2 trans pl ent 0 lp cons p2 lp nvi 1 nv1 e0 subst lll el e0 setq lp reverse lp lp cons nv lp lp nvert vl v2 v3 vn P 7 H H RO KO COE OK RR H A A RI H H H A A KO AAA AAA A AAA A AAA AA AAA AH AA AA HA AA HAHA AA HAHA HAHH FORMA UNA LISTA CON LOS VERTICES DE UNA 3DPOLILINEA ORKE RA KO HC KOC A H KA A A HA AA AAA A AAA A H AAA A AAA AAA HAHAHA AH KO AAA A AAA AH HHAH defun contv3dpol ent e0 nvi el nv nvi pl lp vv enti ent2 setq e0 entget ent nvl 0 entl ent nv 1 while nv 0 setq ent2 entnext entl e0 entget ent2 vv cdr assoc 0 e0 if vv VERTEX setq el assoc 10 e0 pl cdr el entl ent2 lp cons pl lp nvi 1 nvl setq nv 0 setq lp reverse lp lp cons nvl lp lp nvert vl v2 v3 vn 6 6 EFCiD Manual del usuario p 7 7 H IRR IR RI O
157. progn prompt in Lado menor fuera de rango para la NTE EAE prompt in Deberia haber estado entre prinl car b prompt y prinl last b prompt In El proceso continuara sin las sugerencias prompt in de la Norma Tecnol gica setq tr nil progn prompt Yin Sobrecarga fuera de rango para la NTE EAE prompt in Deberia haber estado entre prinl car q prompt y prinl last q prompt In El proceso continuara sin las sugerencias prompt in de la Norma Tecnol gica setq tr nil progn prompt in Modulo fuera de rango para la NTE EAE prompt in Deberia haber estado entre prinl car L prompt y prinl last L prompt In El proceso continuara sin las sugerencias prompt in de la Norma Tecnol gica setq tr nil RRR I H k H H IR RI IRR IRR C KO A HA A A AAA A KA ROR H AA A AH AA AA HAHA KO II IR KO AAA AH AAA HH H H SELECCION DEL MODULO MAS APROPIADO PARA UNA MALLA segun NTE EAE pK H H IIR KO RO KOCH OK H H A KO A H A A A A A A H A AAA A AAA A A AAA A AAA A HHH A KO A AAA AH AAA AAA HH H H defun modmalla lma lme mi ms m mod setq mod mi m list 0 6 64 EFCiD Manual del usuario while mod ms while and mod ms or gt rem lma mod 0 01 gt rem ime mod 0 01 setq mod mod 0 01 setq m cons mod m mod mod 0 01 if gt car m ms setq m cdr m cdr re
158. psl pssl ps2 pss2 repeat n12 setq nt gt nt 1 pb3 pfrac pb2 pbf3 nt pb4 pfrac pbl pbf4 nt ps3 pfrac ps2 psf3 nt ps4 pfrac psl psf4 nt utiran cor20 pbl pb2 pb3 pb4 psl ps2 ps3 ps4 nll setq pbl pb4 pb2 pb3 psl ps4 ps2 ps3 setq pbf4 psf4 pbf3 psf3 pbi pssi pb2 pss2 avisoUNDO pgosm pgscp pgcap S H H H CC KO OC OK RII AE H OC IR A A A A H A AAA A H AA A AH AA A AH AA HAHAHA HAHA AAA AA AAA AH AAA HHH CALCULA LAS COORDENADAS CARTESIANAS DE UN PUNTO EN COORD NATURALES RR KRAJ A H H H A H KO H A A OK A A AA A A AAA A AAA A HAHA AH AAA A AH HHAH AAA AH AAA AAA AH AAA HHH defun corcar cor20 ffm x y z xi yi zi pc cont ni cpp 6 100 final de repeat nl2 final de repeat n13 Rutinas LISP EFCiD Manual del usuario repeat 20 setq pc nth cont cor20 ni nth cont ffm xu nth 0 pc yi nth 1 pc zi nth 2 pc x x xi ni y y yi ni Z Fog zi ni cont 1 cont setq cpp list x y z 6 2 7 Generaci n de Vigas y Porticos qo ERGO FIGAS Y PORTICOS vanos Solicita las luces correspondientes a un n mero V de vanos plants Solicita las alturas correspondientes a un n mero H de plantas vigacont Dibuja una viga continua con V vanos con o sin dimensiones portico P rtico plano con V vanos y H plantas con o sin dimensiones portico3 P rtico en 3D con X vanos H plantas e Y planos con o sin dimensiones p 7 7
159. r assoc 330 n setq stp T if 4 length a setq j last a panel last j opc car j b entget opc e entget panel d cdr assoc 2 b e cdr assoc 2 c progn if cdr assoc 0 n LINE tl props n SS if cdr assoc 0 n 3DFACE if cdr assoc 6 n nil if substr cdr assoc 6 n 1 1 M tl props n SS if cdr assoc 0 nn POLYLINE if cdr assoc 6 nn nil if substr cdr assoc 6 nn 1 1 N tl gt props nn SS if 2 length a setq panel ssname ssget last a 0 e cdr assoc 2 entget panel if e MATERIAL selmat panel if e SECCION carsec d 6 21 Rutinas LISP if e APOYH if d OTROS progn Ejez SCPObjeto panel iapovh d iapovh d if e APOYE if d MAS progn Ejez SCPObjeto panel iapove d iapove d if e nudos carnud d if e PUNTUAL progn Ejez SCPObjeto panel r fmi setq p getpoint nPunto de aplicacion de la fuerza o momento if p nil setq p puntoaplic setq m getreal nModulo de la fuerza o momento Ton m Ton 1 r non insfue d p m if e UNIFTOT progn Ejez SCPObjeto panel inscuc d if e UNIFTRAP progn EjeZ SCPObjeto panel inscut d if e CARPN progn EjeZ SCPObjeto panel Permite ins
160. r p imo cadr p repeat nmo 2 command LINE pi p2 setq pl polar pl 0 Imo p2 polar p2 0 1mo setq pl p lmo 0 Imo pl list car p luz cadr p can p2 list car pl imo cadr p repeat nmo 2 6 55 Rutinas LISP command LINE pl p2 setq pl polar pl 0 lmo p2 polar p2 O lmo P 7 7 H P H H He d H H OOO ROO ROO RIOR Ck A A H H A A AAA A KA KAKA OK AH AA HAHAHA KA KAKA AA AAA AH AAA HH H H Generaci n de las diagonales tipo A PERE EXT LAIAR A ITN DED OE EDER SAR TE A E ly UT EO NOTA RARS HDR RA defun diagonA p lmo nmo can pl p2 cprev setq pl list car p cadr p can p2 list car p lmo cadr p repeat nmo 2 command _LINE pl p2 setq pl polar pl O 2 lmo p2 polar p2 0 2 lmo setq pl p lmo 0 imo pi list car p luz cadr p can p2 list car pl imo cadr p repeat nmo 2 command LINE pl p2 setq pl polar pl 0 2 1mo p2 polar p2 0 2 1mo rj 7 H H E H H He d H H He e H ORC IR COO A A A KO IR A HA A A H AA A H AAA AH A HAHAHA OK IIR AA AAA AH AAA HH H H GENERACION DE UNA CELOSIA PRATT ORR KO H He CK CC OK k H A KO A A H A A A A HA A A AAA A AAA A AH AAA AAA AA HAHA AAA AA AAA AA AAA H AAA H H H defun pratt can lmo luz nmo p 1 cprev noecho cposm cpscp cpcap r_non setq 1 getvar CLAYER if
161. r pa ang 1 57075 0 15 if ar 2 setq p polar pa ang 1 57075 0 25 if 9 ar 3 setq p pa 6 175 setq i atoi li 100 0 d atoi 1d 100 0 fid atof fi 1000 0 tlin strcat FI fi arm strcat li 1 c fi Id 2 mapcar p list d cos ang d sin ang 9 mapcar p list i cos ang i sin ang r mapcar o list 0 05 sin ang 0 05 cos ang s mapcar q list 0 05 sin ang 0 05 cos ang if izq 0 setq rl r progn setq rl polar r ang 1 57075 pat pl polar rl ang 3 141592 0 15 angl ang 180 3 1415 command TEXT C pl angl patt if der 0 setq sl s progn setq sl polar s ang 1 57075 pat pl polar sl ang 0 15 angl ang 180 3 1415 command TEXT C pl angl patt setq ang ang 180 3 1415 command TEXT C p ang arm command LAYER S negat command _3DPOLY rl r s sl command CHANGE entlast p _LT tlin setq ang distance rl r ang ang distance r s ang ang distance s s1 ORR I KO CHECK OC OK r CC H OK A AH A A AAA A H AA A AH AAA AH AH AA HHH A AH AAA A AAA AH AAA Rk A HHH Pe LLAMA AL FICHERO DE RESULTADOS Y LO DIBUJA TODO ORR OK H H 7 kk ORC OK e H AE H COO A H A AAA A AAA A AH AA A AH AAA IRR A A KO A AAA AH AAA HHAH HHH defun dibtot nv lap lan p pl p
162. ra ent entget ssname ssget pto 0 cdr assoc 5 ent cdr assoc 10 ent cdr assoc 11 ent trans p 01 U O U x c Coordenadas del extremo inicial del eje en el SCP actual q trans q 0 1 Idem extremo final Vectorz p q 6 23 Rutinas LISP pgosm setq ent ent ORR I KK OE RR IR CC KO H A H A H A AA A A KO A KA OC AH AAA AAA AA HAHA KO AA HA KO AAA HA AA HH H H 7 CREA LAS CAPAS PARA UBICAR LOS ELEMENTOS DE UN PORTICO ESPACIAL ORR KK H H oe KO CO OK CC KO AE A KO A H A A A HA A H AA A H AAA AH AA AA HAHA KO AA AAA AAA AH AAA HH o defun nomforj command LAYER NEW CIM RIO setq np getint nNumero de forjados SOBRE la cota cero 0 1 2 ns getint Numero de forjados BAJO la cota cero 0 1 2 prompt nCon que caracter desea describir el forjado de cota cero prinl strcat lt 05 setq p getstring if p setq p 0 capasstr p while gt np 0 prompt nCon que caracter desea describir el forjado prinl strcat itoa np setq p getstring if p setq p itoa np capasstr p setq np np 1 while gt ns 0 write line Con que caracter desea describir el forjado de sotano prinl strcat itoa ns setq p getstring if p setq p strcat itoa ns capasstr p setq ns ns 1 command LAYER COLOR 7 px COLOR 1 ye
163. rollados sobre superficies Generaci n de Sistemas Estructurales desarrollados en volumen Generaci n de Vigas y P rticos Generaci n de Forjados Reticulares 6 2 1 Funciones B sicas FUNCIONES BASICAS PARA TRAZADO DE PROTOTIPOS DE ESTRUCTURAS nlin Pide datos para trazar N l neas entre dos puntos P1 y P2 x ciniin nnlin Trazar N l neas entre dos puntos P1 y P2 prompt Cargando las utilidades de PROTOTIPO n FRR RR I ORR IRR A A H H III A A AAA A AAA A H AAA H AAA A AAA HAHAHA AAA AA AAA AA AAA AAA AH HH PIDE DATOS PARA DIBUJAR N LINEAS ENTRE DOS PUNTOS P1 Y P2 p 7 7 He H H ORC KK C HEC KO CHECK CORO OK CC OK A AAA KO A H AAA OK AH AA HAHAHA X EO AAA KO AAA defun nlin pl p2 n osm cposm noecho r fin setq n getint nNumero barras pl getpoint nPrimer punto p2 getpoint pl nSegundo punto r non nnlin pl p2 n pgosm defun c nlin nlin ROCK RC OK HEC KO CHECK I RRA KO AA A KO I AH AAA AH AAA AH AAA A HAHA A AAA AAA KO AAA AAA A HHH DIBUJA N LINEAS ENTRE DOS PUNTOS P1 Y P2 ROCCO RC k KO I KO CHECK IRR RRR I KOC A H AAA H AAA AH AAA HAHAHA A AAA AAA KO AAA AH AAA HHH defun nnlin pl p2 n x y z x1 x2 x3 cprev setq x1 car p2 car pl n yl cadr p2 cadr p1 n z1 caddr p2 caddr p1 n X xl car pl y yl cadr p1 z zl caddr pi 6 49 Rutinas LISP repeat n setq p2 list x
164. rompt con el n mero de luces setq dv vanos v if and nil v nil dv progn setq p o repeat v setq q mapcar list car dv 0 0 0 0 p command LINE p q setqp q dv cdr dv avisoUNDO pgosm pgscp pgcap p 7 7 H He H IRR C OK KAKA KA CC KO CO KO AA A AA HH H H DIBUJA UN PORTICO PLANO CON v VANOS Y h PLANTAS CON O SIN DIMENSIONES JERA RA RA AP a ak RA ADA DESU opc SAH WD nn ma DALE SDA vorab or roto maranao ame SN EON TF OK GE defun portico v h dv dh i j 1 o p q cprev noecho cposm cpscp cpcap r_non gt 2 6 103 Rutinas LISP setq v 1 h 1 setq o getpoint nPunto de inserci n del p rtico while not or gt v 0 nil v setq v getint nNumero de vanos if nil v progn setq dv vanos 0 v length dv progn setq dv vanos v while v length dv prompt nEl n mero de vanos no coincide prompt con el n mero de luces setq dv vanos v while not or gt h 0 nil h setq h getint nNimero de plantas if nil h progn setq dh plants 0 h length dh progn setq dh plants h while h length dh prompt nEl n mero de plantas no coincide prompt con el n mero de alturas setq dh plants h if and nil v nil dv nil h nil dh progn setq i dv po if tblsearch LAYER STRO1 nil c
165. ros setq mod getreal n Que longitud del modulo va a tomarse m while nil mod prompt in ATENCION Debe introducir alguna longitud para el modulo setq mod getreal in Que longitud del modulo va a tomarse m while 0 mod prompt An ATENCION La longitud del modulo debe ser distinta de 0 setq mod getreal in Que longitud del modulo va a tomarse m while 0 mod prompt An ATENCION La longitud del modulo debe ser una longitud positiva setq mod getreal n Que longitud del modulo va a tomarse m if nil mod setq a mod h if nil 1h setq mod car lh a mod h setq mod 1 0 a mod h prompt n La altura de la malla espacial sera de prinl a prompt metros DETERMINACION DEL DIMENSIONADO DE LAS BARRAS SEGUN NTE EAE if or NTE mod S NTE mod s progn prompt in La NTE EAE propone dimensionar las barras de las prompt in mallas espaciales con perfiles tubulares huecos while and NTE dim S NTE dim s NTE dim N NTE dim n prompt 6 73 Rutinas LISP in Desea utilizar este tipo de perfiles para dimensionar su malla S N setq NTE dim getstring if or NTE dim S NTE dim s progn setq s tipobar mod Ime ab cst ts q2 b2 ab2 if and nil s 0 s progn setq i tipobar 2 Ime ab cst ti
166. rr setq ocmd getvar CMDECHO noecho setq L strcase getcapa inSeleccione una entidad de la capa quiere VACIAR setq S ssget X list cons 8 L if S command ERASE S princ La capa no contiene entidades setq S nil setvar CMDECHO ocmd setq error olderr princ defun dellerr s Rutina de control de errores if s Function cancelada princ strcat nError s setq S nil setvar CMDECHO ocmd setq error olderr princ RR IRR KRR OC IORI KO CORO KO I A A AAA A AAA A H AAA AH AAA AH HHAH AAA A HA AA AAA AH AAA HH H H GESTION DE LISTAS FRR I KAKE KK H ORC HE H H H CROCO A A A A A A AH A A HH A A HHAH A AH AAA AH HA AA HAHA AH AAA AA KO AAA A AAA HH H H 7 H H H CIC KK ORC KOC OK e H AE KO COO KO AH A A AAA A H AAA AH AAA AH HHAH HAHA AH HA AA AAA AAA AA HA AA HHAH Busca la posicion que ocupa un elemento dentro una lista PRERANA E HDS A HRD ALEX RETE MA KA AA RAR LER ARR ARE kk RAE EIR E SHAH ARADA EON RRR AIR ERR AH defun indice a Elemento a posicionar en el interior de la lista Lista a investigar if member a 1 length 1 length member a 1 FRR KK IR RR IRI KO CORO A A A HA A AH AH A A AAA A AH AAA AH AA KK A Ck KO IIR KO AAA AH AAA H H H 6 14 EFCiD Manual del usuario 7 Xx Busca la posicion que deberia ocupar un elemento para quedar ordenado E por su magnitud entre los ele
167. rr indice Busca la posicion que ocupa un elemento dentro una lista posicion Busca la posicion que deberia ocupar un elemento para quedar ordenado getconj FUNCIONES BASICAS copiaconj capaconj 6 2 EFCiD Manual del usuario getent getsubent getrotul getsubcapa getcolor getlinea copiacapa Copia todas las entidades de una capa a otra capa Z GEC Copia entidades de distintas capas a una determinada capa 2LCC Selecciona las capas origen y destino y copia las entidades de una a otra A GITT Traslada entidades de distintas capas a una determinada capa A GILL Traslada todas las entidades de una capa a otra capa z iE Borra una entidad o un grupo de entidades prompt Cargando las utilidades BASICAS n CORO IRR IR RI H A H EE r CC H HA A AAA A AAA A AAA AH AAA AAA AA AAA AA AAA AO KK AAA A AAA HHAH INICIALIZACIONES p CC H ORC KK OC H H CHE OK H H A A H H A A A A A A HAHA AAA setvar MIRRTEXT 0 POEA H H H k KO H e KOC IR H H A A H H A A H A A AAA A AAA A H AAA AH AAA A AAA A HAHA AH AA AH AAA AA AAA HA AA HHH jek UE FUNCIONES BASICAS pK H H KARAKE I RJE IR de H A H e KEKE RRR AAA ROCCO IR KO H oe KC H KC AE A COO KO AH A A A AA A AAA A H AA A AH AAA AH HHAH HH AA AAA A AAA AAA A HHH gott A ACTIVA EL RESALTE DE LAS ENTIDADES SELECCIONADAS pK H H IRR IR OC HE H A H k H A RE AE A H H A AA A A AAA A AH AA A AH AA AA AAA A HHH AA AAA A AAA A AAA AH AAA HHH defun C H
168. s de distintas capas a una determinada capa eB RIA A AAR Tat K il Kuba Ti RX Aha A ARF ARKA KARAN ARA ole kak ok bol EHESS RER EN R ARKA RA RER defun C CC conj 1 noecho getconj nSeleccione entidades a copiar a otra capa setq 1 getcapa inSeleccione una entidad de la capa a la que se copian if 1 nil setq 1 getstring nNombre de la capa 6 17 Rutinas LISP copiaconj conj capaconj conj 1 kk ke ce e ce ke oe e oe e oe e e e o e ce RARA e oe e e e e e oe e ck e ce e ck e e e oe e e e ce e ce e c e e e ce e ce e ce e e e ce e e e c e e e e e e e e KRAKA KAK Selecciona las capas origen y destino y copia las entidades de una a otra ok ok ok ke ke oe koe ke oe ke oe ke oe ke oe ke oe oe oe eoe eoe oe ke oe ke eoe koe koe ke oe ke oe KKK KKK KKK AKA KEK KKK ke SSSI KKK RK defun C CCC Z 1 Capa origen ni Capa destino setq 1 getcapa nSeleccione una entidad de la capa origen if 1 nil setq 1 getstring nNombre de la capa origen setq nl getcapa if nl nil setq nl getstring nNombre de la capa destino inSeleccione una entidad de la capa destino copiacapa 1 nl AKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKAKA e e e e e e e HR ARAH it Traslada entidades de distintas capas a una determinada capa LASAAAAA SAS S S KKK eoe oe ke oe ke oe e ee ke S e e x v x KKK x x GBA SS defun C
169. s n ent v bl r0 rl r2 k30 noecho diano 6 145 Rutinas LISP princ n Coeficiente de BALASTO Kp cm3 lt 3 00 gt setq k30 getreal if eq eval k30 nil setq k30 3 00 setq pins list 50 50 50 v 0 command INSERT BALASTO pins TE m setq bl entlast r0 entnext bl r1 entget r0 setq r2 cons 1 rtos k30 2 2 entmod subst r2 assoc 1 ri r1 command ATTDISP ON while not setq conj ssget repeat sslength conj setq ent ssname conj v n entget ent if 3DFACE cdr assoc 0 n progn setq pl cdr assoc 10 n p2 cdr assoc 11 n p3 cdr assoc 12 n p4 cdr assoc 13 n pt trans pl 0 1 bormoll pt command COPY bl pins pt setq pt trans p2 0 1 bormoll pt command COPY bl pins pt setq pt trans p3 0 1 bormoll pt command COPY bl pins pt setq pt trans p4 0 1 bormoll pt command COPY bl pins pt setq v v 1 entdel bl command ATTDISP Normal j 7 H H RC KO ORC H H C I A H RIOR A A HA AA AAA A AAA A H AAA A AAA AAA AAA KO IR KO AAA AH AAA HHAH jk E X BORRA LOS BLOQUES BALASTO QUE EXISTAN EN UN PUNTO DERIER SEDE ka RR AREA SEE Deo book make pak mA E DS kakak REALS opor pepe EA ERA RDA ARA SARDA LA SAA defun bormoll pt vv c e n pl p2 setq pl mapcar pt 0 05 0 05 0 05 p2 mapcar pt 0 05 0 05 0 05 C ssget C pl p2 vv 0 if c nil repeat sslength c
170. s p2 lap lan cons an lan lg cons g 1g lg cons q Ig lp cons cpl lp la cons a la di distance pl p2 lluz cons dl lluz pi p2 setq exi getstring princ An EXTREMO FINAL setq exd getstring setq 6 172 exi strcase exi nil exd strcase exd nil lluz reverse lluz lg reverse lg lg reverse 1q lap reverse lap lan reverse lan lp reverse lp V oladizo A poyo E mpotr P rolongaci n V oladizo A poyo E mpotr P rolongaci n EFCiD Manual del usuario la reverse la salva nv lluz lg lq lan lp la exi exd fckk fykk b h b0 h0 sim dmin r non startapp c cid calfor dibtot nv lap lan pgosm defun c forj forj P 7 74 H H He I IRR IR ORC IR RI H H A H H KC A A A AAA A AAA A HA AA AH AAA AH AAA A KO AH AAA HAHA HHAH HHH SALVA LOS DATOS DE FORJADO PARA UTILIZARLOS EN EL CALCULO FIR I RAI KA H RI H A A K H A H H A A HH AA HA AA HAHA A AAA A AAA AH AAA AH AAA AA AAA AAA A HAHA AH HAHA HH koxox defun salva nv lluz lg lq lan dmin fich n lp la exi exd fckk fykk b h b0 h0 sim setq fich open print nv fich print b fich print h fich print b0 fich print h0 fich print fckk fich print fykk fich print gf fich print sim fich setq n 0 repeat nv c forj ddd w setq n 1 print nth print nth 0 setq n 0 repeat nv setq n 1 print nth setq n 0 repeat nv setq n
171. setq 550 setq 600 setq setq xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe kx X53 X 0703 0909539 912 TO TOTO GO 10 12 14 16 18 20 22 24 26 28 30 30 30 30 30 30 30 30 30 00 RR H H IRR IRR IR CORO OK H H A KO A H A IR HEC OK AA AA AH HHAH KO AAA KO AAA AH AAA H o SELECCIONA LOS FACTORES DE ESCALA DE UN HEB rj 7 H H H OK KO IR RI H A H e H A OK H A KO HA A A HHAH A A AAA H AAA H AAA AH AH AH AAA AAA AA AAA AH AAA HH H H defun escheb dim cond 6 42 GE er dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim dim 100 setq 120 setq 140 setq 160 setq 180 setq 200 setq 220 setq 240 setq 260 setq 280 setq 300 setq 320 setq 340 setq 360 setq 400 setq 450 setq 500 setq 550 setq 600 setq setq xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe xe ba Cy OO SOO XS O x3 C3 SOTTO X x 10 12 14 16 18 20 22 24 26 28 30 30 30 30 30 30 30 30 30 00 EFCiD Manual del usuario CRI H H H H KO IRR COE OK IRR A AH KO AAA it SELECCIONA LOS FACTORES DE ESCALA DE UN HEM 3 NAKAKAKABA KAKA KA OC r EC KO A A AA A A AAA RARA
172. setq e ssname c vv n entget e if INSERT cdr assoc 0 n if BALASTO cdr assoc 2 n if EQUAL pt cdr assoc 10 n 0 01 entdel e setq vv vv 1 RR H H H H H H H IR CHECK RI RR I KO HH A A AAA A AAA A AAA A AAA AA AAA A KO AH AH AAA AAA HA AA HH it ASIGNACION BLOQUE BALASTO SIN BORRAR LOS QUE EXISTAN OOOO KO I RR IRR I ORR CORO KO HH AA AAA A AAA A AAA A AH AAA AH AAA X AH AAA HAHAHA Rk E defun abas conj p0 pl p2 p3 p4 pin n nv ent v vv bl r0 rl r2 k30 lp ctr noecho diano setq v O 6 146 EFCiD Manual del usuario princ n Coeficiente de BALASTO Kp cm3 lt 3 00 gt setq k30 getreal if eq eval k30 nil setq k30 3 00 setq pin list 50 50 50 pl list 100 100 100 setq lp command list pin pl INSERT setq bl entlast setq r0 entnext bl rl entget r0 setq r2 cons 1 BALASTO pin rtos k30 2 2 while not setq conj ssget princ repeat sslength conj in Estoy calculando mu nm m o entmod subst r2 assoc 1 rl r1 espere por favor setq ent ssname conj v n entget ent if 3DFACE cdr assoc 0 n progn setq pl cdr assoc 10 n p2 cdr assoc 11 n p3 cdr assoc 12 n p4 cdr assoc 13 n setq vv 0 vc 0 nv length lp ctr T while ctr if equal pl nth vv lp 0 03 setq vv vv 1 if vv nv setq ctr nil if vc 1 setq ctr nil setq vc 1
173. setq pii pjj pll pkk xs xs xnl ys ys vni zs zs znl Pjj list xs ys zs xsl xsl xxnl ysl ysl yyn1 zsl zsl zznl pkk list xsl ysl zsi RR H H H H H H H ORO KOC ECKE OK A A AAA AAA AA AAA A AAA A AAA AA AAA A AAA AH AAA HAHA AA HA HHH FUNCION UNA TIRA DE SOLIDOS 6 CARAS 8 VERTICES cord naturales RC OC H H KO IRR IR H A H HH REK OK EE KO I OR Rk HHAH AH defun utiran cor20 pi p2 p3 p4 yn xn yn zn ppi pj xxn yyn zzn xs ys zs ZI xni ynl zni xxni setq xn car p2 car pl nel yn cadr p2 cadr p1 nel zn caddr p2 caddr pl nel xxn car p3 car p4 nel yyn cadr p3 cadr p4 nel zzn caddr p3 caddr p4 nel ppi pi pl p4 x xn car ppi y yn cadr ppi z zn caddr ppi pj list x y z Scl xxn car pl yl yyn cadr pl z1 zzn caddr pl pk list xi yl zl setq xnl car p6 car p5 nel ynl cadr p6 cadr p5 nel znl caddr p6 caddr p5 nel xxnl car p7 car p8 nel yynl cadr p7 cadr p8 nel zznl caddr p7 caddr p8 nel pii p5 pll p8 XS xnl car pii ys ynl cadr pii zs znl caddr pii pjj list xs ys zs xsl xxn1 car pll ysl yynl cadr pll zs1 zzn1 caddr pll pkk list xs1 ysl zs1 ps pk xsl p6 pl ysi yynl zznl pii p7 x zsl PIT p8 xl pkk nel z y1 pli 6 95 KADAR NAKED
174. setq sl getvar SURFTABI S2 getvar SURFTAB2 setq vl entsel nSeleccione Primer Lado bb s1 princ in N Divisiones en direccion 1 princ bb princ setq sl getint if eq eval sl nil setq sl bb setq v2 entsel nSeleccione Segundo Lado bb s2 princ in N Divisiones en direccion 2 princ bb princ setq s2 getint if eq eval s2 nil setq s2 bb setvar SURFTABI sl setvar SURFTAB2 s2 setq v3 entsel nSeleccione Tercer Lado v4 entsel nSeleccione Cuarto Lado command EDGESURF vl v2 v3 v4 avisoUNDO pgosm pgscp pgcap defun c m4 m4 6 2 6 Generaci n de Sistemas Estructurales por vol menes go KRAKA SISTEMAS ESTRUCTURALES DESARROLLADOS POR VOLUMENES pbase Ver su definici n para AutoCAD e IntelliCAD en Entorno lsp tetra Dibuja un tetraedro como malla poligonal dados los v rtices s4 Pide los cuatro v rtices de un tetraedro y lo dibuja como malla poligonal j c s4 z s4a DIBUJA UN SOLIDO TETRAEDRO DADOS LOS VERTICES DE LA BASE Y ALTURA c s4a 6 88 EFCiD Manual del usuario prs Rellena un prisma triangular con tetraedros Gipr3 pra Rellena un prisma cuadrangular con tetraedros c pr4 58 Pide los ocho v rtices de un s lido de 6 caras y lo dibuja como y malla poligonal C238 7 s8a Pide los cuatro v rtices de la base de un s lido de 6 caras y la altur
175. setvar CLAYER cl P 7 7 H H H H KK C HEC KK CHECK CC KO A A AA A A AAA A HHAH A AAA A AH AAA AH AA AA HHAH H AAA AAA KO AAA AH AAA HH H H Crea una REGION ALVEOLADA a partir de un conjunto de polilineas JURE ERU R RESY RR MEN XAMA ob oboe HR ERE R HD LASE NARA AA RE ARA A AVE RRA SA LES H RUAA REN GN SEDE EFE RAF S defun crealv cl Nombre de la capa actual cex Regi n con el contorno exterior alv Regi n con los alveolos to Contador auxiliar noecho r non siH setq cl getvar CLAYER command LAYER ON REGION OFF SOMBREADO setvar CLAYER REGION getconj n nSeleccione el contorno exterior de la seccion if sslength conj 1 progn command REGION conj setq cex entlast progn command REGION ssname conj 0 setq cex entlast t0 1 repeat sslength conj 1 command REGION ssname conj t0 command UNION cex entlast setq cex entlast to EEO 1 getconj n nSeleccione el contorno del hueco de la seccion if sslength conj 1 progn command _REGION conj 6 130 LISP EFCiD Manual del usuario setq alv entlast progn command REGION ssname conj 0 setq alv entlast to 1 repeat sslength conj 1 command REGION ssname conj t0 command UNION alv entlast setq alv entlast EQ e EQ 2 command SUBTRACT cex alv setq secc
176. squina prompt n n defun C ZON zona p 7 H H RO KK OH KOC HEC OK RI H H H A A HA AA IR HA AA H AAA AH AAA AH AAA AAA AAA KO AAA AAA AAA AAA AH H H H Zona dentro de la que se dibujan el EJE NEUTRO o el NUCLEO CENTRAL A RA RA RA SAIS ARA SED RA RDL DA SR Kol oos ol olei k RES SD ok ol ARD S se of occ RDL LASA HRD SAR ol RR RD vor HHE R D Le A defun zonaEN prompt strcat nZona en la que se dibuja el Eje Neutro setq p3 getpoint nPrimera esquina p4 getpoint nSegunda esquina prompt n n 6 138 EFCiD Manual del usuario defun C ZONEN zonaEN CORO RR IRR IRI KA KOR RARA Trazado del EJE NEUTRO 4 ESAE KARAKA NA RAKA ene ool Ae RIDE sol SEER RER oboe ARA kaba kakaba sk ol A cl eA ol BU sene ik g kakaba ak ook defun ejen zi z2 yl y2 ei ef eje noecho if sistref YZCDG scp cdg coef if fl 0 if 2 0 if gt f3 0 progn prompt nEl estado es de tracci n simple setq eje 0 progn prompt nEl estado es de compresi n simple n setq eje 0 setq zl car p3 yl 3 2 Recta horizontal z2 car p4 y2 yl ei list zl yl ef list z2 y2 if 2 0 setq zl f3 f1 yl cadr pl Recta vertical z2 zi y2 cadr p2 ei list zl yl ef list z2 y2 setq zl car p3 yM MP E EI j zl fi B2 z2 car p4 y2 3 z2 f1 2 ei list z1 yl ef l
177. testacero insecusr LF strcat rtos a 2 0 defun inseczf a b testacero insecusr gp strcat rtos a 2 0 defun insecld a b c testacero insecusr defun insecldf 6 120 Ip strcat rtos a 2 0 a b c n m _ mon rtos b 2 0 rtos b 2 0 rtos 10 b 2 0 rtos b 2 0 rtos c 2 0 EFCiD Manual del usuario testacero insecusr LDF strcat rtos 2 20 rtos b 2 0 xtos c 2 0 defun insecuf a b c testacero insecusr UF sErcat rtos a 2 0 rtos b 2 0 rtos e 2 0 defun insecof a b c testacero insecusr OF strcat rtos a 2 0 rtos 10 c 2 0 defun inseccf a b testacero insecusr CF strcat rtos a 2 0 rtos b 2 0 defun insecupn a testacero insecusr UPN rtos a 2 0 CROCO IRR OK IR I ROR H A KO RARA 7 SECCION cualquiera definida por el USUARIO FIR IIR KO CK OC IR RI A H H A A AA A AAA AA AAA A AH AAA AH AAA AH AAA AH AH AA HH AA AAA A AAA AH AAA HHH defun secusr fich secc setq fich getstring nDenominacion del fichero x secc getstring nDescripci n de la secci n insecusr fich secc OO 7 H H E e H H d KO IO KO OO KK CR OK K I AAA it PIDE ESPESOR DE PLACAS CROCO ORC k KO I KOC HEC OK CC OK H A H A A IR AAA A H AAA H AAA AH I ORR ORO OK AA AAA AAA AH AAA HHH defun inesp 6 121 Ru
178. tinas LISP setq nomsec Placa esplac getreal nEspesor de placa cm dimsec strcat Espesor rtos 10 esplac 2 0 actualiza r 7 7 H H H KO H H CO COCHE OK CC CO KO A HA A AH A A KA OC H AAA AH AAA KK CORO KO IIR KO EO AA HA AA HH H H PONE A CERO EL ANGULO DE GIRO DE LA BARRA rj 7 H H H KK OEC KOCH OK e H A H CC KO A H A HAHA A A AAA A H AAA AAA AAA defun girocero setq anggiro 0 actualiza FRR KKK I KOC OK e H H A CORO A A A A HA A A AAA A H AA A H AAA AH AA AA AH HHAH H AAA AAA A AAA AH AAA HH H H INTRODUCE EL ANGULO DE GIRO DE LA BARRA pK OK OC KOC HE CC A H COO H A AAA A AAA A AAA A AH AAA A AAA A HHAH HHH AA AAA A AAA AH AAA H H H defun intgiro setq anggiro getreal nAngulo giro actualiza j KAKA ORC k KO IRR IR RI A EC CO A A A A AAA A H AAA H AAA AH AAA A AAA AA AAA AA AAA AAA AH AAA H H H ASIGNACION DEL PATRON DE ELEMENTO ACTIVO A UNO O VARIOS ELEMENTOS gp NAKAKAKABA KAKA RR H OK e H A OK CO A A A AAA A AAA A AH AAA AH AA AH AAA A AAA AH AAA AA AAA AAA AA AAA HH H HA defun asignar tip ent entac cap conj v n fich tl tll noecho diano cond 1 tip setq tl props gt t1 tll cons 6 tl and 2 tip nomsec Placa setq tl strcat M chr 64 atoi nummat orm rtos esplac 10 2 0 tll cons 6 tl and 3 tip nomsec Solido setq tl strcat N chr 64 atoi nummat
179. to 12 0 1 n FRR KK OEC OK CHE OK CC KO CO A CC KK HA A AAA A AH AAA A AAA A HAHA AH KO AA AAA HAHA A HAHA AH H H H CARGA UN TIPO DE LINEA PARA ASIGNAR PROPIEDADES ESTRUCTURALES OOOO ROO OOOO ROO ROO ROO A AH A A AAA A AH AAA AH AAA AH AAA A HAHA HHH AA AAA A AAA AH AAA HH H H defun CargaTl tpl command _LINETYPE _L tpl c cid cad st lin P 7 H H H KK C IR RI IRR H A A CO A A A AAA A HA A AH AAA A AAA A AAA A HAHA KO AAA AA AAA A AAA A HH H H CALCULA UN PUNTO INTERMEDIO ENTRE OTROS DOS POR UN FACTOR OOOO KO OC KOC ORO ROO AA IIR AAA A AH AAA AH AAA AH AAA HAHAHA KO IIR KO AAA AA AAA HH H H defun puntint pin pf fact pm x y z setq x car pf car pin fact car pin y gt cadr pf cadr pin fact cadr pin z caddr pf caddr pin fact caddr pin pm list x y z ORR I KK OEC KC OK CC OK CO KO HH A A OR OC AH AAA AH AAA A HAHA HAHA AAA KO AAA AH AAA HHAH PUNTO MEDIO ENTRE LOS PUNTOS P1 Y P2 ORR I KO ORC KOC HE OK CC COO A AH A KO A AAA A I AAA AAA AA AAA AH KO ORO AAA AAA HA AA HAHA defun pmig pin pf pm xyz setq x car pin car pf 2 y cadr pin cadr pf 2 z caddr pin caddr pf 2 pm list x y z FRR OK KO I RR IIR IRR IRR I KO I H AA A I A AH AAA A HHH AA KO AAA AA IR OE EE PUNTO INTERMEDIO EN UNA FRACCION f partes iguales ENTRE pi Y pf r 7 H H C OK COE CK OC IRI RR C OK A HH A A AA
180. to al Sist Referencia Actual Inserta un bloque que muestra las propiedades mec nicas de la REGION Cambia el origen del SCP al CDG de la REGION y obtiene Prop Mec nicas Cambia al SCP de direcciones principales e inserta bloque ejes Dibuja la elipse de los radios de giro centrada Obtenci n de las solicitaciones sobre la secci n Inserci n del cuadro de solicitaciones Coeficientes de la ecuaci n de tensiones Zona dentro de la que se dibuja el bloque de PROPIEDADES Zona dentro de la que se dibujan el EJE NEUTRO o el NUCLEO CENTRAL Trazado del EJE NEUTRO Trazado del NUCLEO CENTRAL Calcula la tensi n en un punto e inserta un bloque Desplaza el eje neutro seg n sea el punto de aplicacion del axil pK KO COE CK C C KO CC H e H A OK I A A AAA A AAA A H AA AA AAA KK HHAH HA IIR KO AAA AH HA A HH H H INICIALIZACIONES P 7 H 7 CK ORC KOC OK CO OK H A H H KO AA A I AH AAA H AAA AAA AA HAHA AH HA IIR KO AAA AH AAA K H setq cero cero escblk 0 000001 0 000001 1 0 setvar MIRRTEXT 1 setvar UCSICON 0 command LAYER N REGION SOMBREADO kee tq 0 REGION SOMBREADO ON 0 REGION gn Qn COLOR 30 REGION COLOR 31 SOMBREADO prompt n n n n n n n n n n n n n n n n n n n n n n n n n n n n P 7 H H CORO KK C HEC KOC HE OK e H A KO CO A A AAA A KOC KOC H AAA AH AA AA HAHA KO ACI KO AAA AH AAA o FUNCIONES BASICAS pK H k H OEC OK KAKA OK de H A RR H AK H A KK CHEC
181. tos 10 atof substr d 1 v 2 2 0 p4 rtos 10 atof substr d v 2 0 sec USUARIO setq po z pi dim sec GENERICA setq d substr dim 4 v 1 ca while ca x setq ca substr d v 1 v 1 v setq po Y ul C u2 c u3 c u4 C pl substr d 1 v 4 d substr d 1 v ca v 1 vhile ca y setq ca substr d v 1 v 1 v setq p2 substr d 1 v 4 d substr d 1 v 6 37 Rutinas LISP ca Yi while ca z setq ca substr d v 1 v 1 v setq p3 substr d 1 v 4 p4 substr d 1 v T setq p0 strcat Z sec ul o pi dim E AA ane setqv 1 ca setq mat chr 64 atoi substr mat 1 2 gir rtos atof gir 2 0 setq tl strcat p0 mat gir ul pl u2 p2 u3 p3 u4 p4 if gt strlen tl 31 prompt Descripci n de barra demasiado compleja setq out tl ORR K KO I KOC OK k H AE KO CC A A I A AAA A KA KAKA AK AAA AA HAHA AH H AAA HA AAA AAA HA AA HH H H ACTUALIZACION DEL BLOQUE PATACT 7 7 H P H H He KK C IRR AI OK RI RR A A HA AA AAA A AAA A AH AAA H AA AA AAA HAHA HAHAHA A AAA AA AAA OE HH o defun actualiza ab msg d mat sec dim gir p suf p0 pl p2 p3 p4 ca ul u2 u3 u4 vtl gt noecho setq b ssname ssget X list cons 2 PATACT 0 m entnext b s entnext m d entnext s g entnext d mat entget m sec ent
182. tremo Toneladas metro m setq q getpoint nExtremo FINAL de la carga uniforme if q nil setq q puntoaplic setq mf getreal inValor de la carga en este extremo Toneladas metro r non if nil mi setq mci mi if nil mf setq mcf mf capa hip if o BETA progn setq o getorient p nOrientacion de la fuerza dibcu p q mci mcf o progn setq o atof o 20 if nil member o list 0 90 180 270 prompt n nLa orientaci n de la fuerza no es valida progn setq o cvunit o grado radian dibcu p q mci mcf o 6 157 pgosm Rutinas LISP r 7 7 H E H H A H KO IR KO HEC H AH H A AAA AA HAHAHA AA AAA AA AAA AAA KO AAA AA AA HAHAHA HAHH hk kk 7 COLOCA UNA CARGA UNIF VERTICAL ENTRE DOS PUNTOS P 7 H H P H H A H H H I KA KAKA KA AA HAHA A A E AAA A AAA A AAA AAA AAA AAA HAHA AA HA AH HAHA HH defun cv p pl q q1 r pin pj mm x1 yl zi x2 y2 z2 zz osm lyr cposm cpcap cpscp scpu r fmi setq p getpoint nExtremo INICIAL de la carga uniforme if p nil progn pgosm pgscp cvb progn setq pl p setq q 1 while q nil r fmi setq q getpoint pl nExtremo FINAL r non if q nil progn setq xl car p yl cadr p z1 caddr p x2 car q y2 cadr q z2 caddr q ql list x2 y2 zl zi 100 z1 r list x1 yl z1 command UCS 3p p q1 r setq mm getreal if 7
183. verse m RR CK OC IRR H A H H CC H A AH CC RR KO E e Ro TRAZADO BARRAS CAPA SUPERIOR E INFERIOR DE UNA MALLA NO ALIGERADA NTE EAE RRR KRKE CK IRR H A H H A A H A AH HA AA AAA A AAA A AAA A AAA A AAA AA A OE EE X ORE defun capasei mod pin v h o p q 1 cprev setq p pin o pin repeat h setq 1 strcat 8 rtos mod 2 2 0 0 0 0 repeat v setq q mapcar list 0 0 mod 0 0 p command LINE pq 1 setq p q setq p mapcar list mod 0 0 0 0 o op repeat v setq q mapcar list 0 0 mod 0 0 p command LINE p q setq p q setq p pin repeat h setq q mapcar list mod 0 0 0 0 p command LINE p q setq p q p 7 7 He H IIR KO CK OC OK e H A H H H A A HH AA AAA RARA TRAZADO DE LAS BARRAS DE LA CAPA INFERIOR DE UNA MALLA ALIGERADA ROCCO H H H k KO I OK COE A A A H A KO A A AAA A AAA A AAA A AAA A AH AAA AH AAA HAHAHA AH AAA AA AAA AAA AA AAA HH H H defun capinfal mod pin v h p q sl s2 o r cprev setq p pin repeat 2 repeat h setq q mapcar list mod 0 0 0 0 p command LINE p q setq p q 6 65 Rutinas LISP setq p mapcar list 0 0 mod v 0 0 pin setq p pin repeat 2 repeat v setq q mapcar list 0 0 mod 0 0 p command LINE p q setq p q setq p mapcar list mod h 0 0 0 0 pin if rem v 2 0 setq sl v 2 s2 sl setq sl v 1 2 s2
184. xO car p yo cadr p x list 0 0 1 25 1 4659 2 5 2 9319 3 75 3 9659 5 0 6 0341 6 25 7 0681 7 5 8 5341 8 75 10 0 y list 0 0 0 5195 0 0 1 0391 0 0 6 50 EFCiD Manual del usuario 1 5586 1 0391 2 0782 1 0391 1 5586 0 0 1 0391 0 0 0 5195 0 0 inc append list 12244 6688 1010 12 12 14 14 15 15 13 13 11 11 5 5 List 2 312327445 4T T7 6 10 9 9 12 42 11 42 12 14 13 8 9 list 9 11 8 7 7 5 carg list 1 0 625 2 1 25 4 HRZ 36 1 25 8 1 25 10 1 25 112 1 25 14 1229 15 0 625 pitch 0 5196 1 25 ex getdist p nLuz entre apoyos m 10 ey ex x exlist x ex y exlist y ey EX x cy y repeat length inc 2 setq ni car inc nf cadr inc i list xo nth ni 1 x yo nth ni 1 y j list xo nth nf 1 x yo nth nf 1 y command LINE i j setq inc cddr inc cprev reparte cargas setq sup getreal nCarga superficial de la cubierta T m2 dis getdist nDistancia entre cerchas paralelas m Cx x cy y pi 2 pitch atan pitch ey ex repeat length carg 2 setq nudo car carg banda cadr carg banda banda ex cos pitch mod sup dis banda i list xo nth nudo 1 x yo nth nudo 1 y insfue 90 i mod setq carg cddr carg avisoUNDO pgosm pgscp pgcap defun c cell cell ROCK OC KC KA KAKA AK H A RRA AAA A AAA A AAA AH AAA AH AAA AH AAA HAHAH
185. y z command linea pl p2 setq pl p2 X Cb xl y y yl z z z1 avisoUNDO 6 2 2 Generaci n de Celos as planas TRAZADO DE PROTOTIPOS DE CELOS AS PLANAS cell GENERACION DE UNA CELOSIA TIPO 1 CON REPARTO DE CARGAS c cell cel2 GENERACION DE UNA CELOSIA TIPO 2 CON REPARTO DE CARGAS EN NUDOS c cel2 cel3 GENERACION DE UNA CELOSIA TIPO 3 CON REPARTO DE CARGAS 5 c cel3 cordinf Generaci n del cord n inferior cordsup Generaci n del cord n superior montant Generaci n de los montantes diagonW Generaci n de las diagonales tipo W diagonM Generaci n de las diagonales tipo M diagonA Generaci n de las diagonales tipo A pratt GENERACION DE UNA CELOSIA PRATT howe GENERACION DE UNA CELOSIA HOWE warren GENERACION DE UNA CELOSIA WARREN carcel Generaci n de las cargas de cualquier celosia FOR OK C HE KK CHECK CC KO H A H KO AAA KK CHECK OC AH AAA A AAA HAHAHA KO AO A AAA AAA AAA AA HH H H GENERACION DE UNA CELOSIA TIPO 1 CON REPARTO DE CARGAS P 7 H H H Ok OK C I KK COE OK e H A H CO A A H AAA AAA A AAA A AH AAA AH AAA AAA HA KO AAA AAA AAA AA AAA H H H defun cell ex ey cx cy i j ni nf mod nudo banda pitch p xo yo 1 cprev noecho cposm cpscp cpcap r_non setq 1 getvar CLAYER if not wcmatch 1 STR command LAYER T STRO1 ON STRO1 S STRO1 setq p getpoint nPunto de inserci n de la cercha
186. yk 400 gf 1 6 sim SIMETRICA tipfor Viguetas Pretens g 5 50 q 2 00 cpl 0 0 a 0 dmin 10 command LAYER N negat command LAYER N posit command LAYER N textarm command LAYER N kgnegat scpu command PLAN p P 74 H H H CORO k KO CK OC OK CAO KO COR KO AA A A RARA VUES des oi PIDE LAS CARACTERISTICAS DEL FORJADO CORO RR I RR CORO EC A KO A H A A ROR A H AA A H AA A AH HAHA HAHA AH HH AA AAA A AAA AH AAA HHH defun carac bb noecho cpscp scpu setq bb fck princ in Hormigon fck N mm2 H princ bb princ setq fck getreal if eq eval fck nil setq fck bb setq bb fyk princ in Acero fyk N mm2 B princ bb princ setq fyk getreal if eq eval fyk nil setq fyk bb setq bb gf princ Yin Coef mayoracion gamma f princ bb princ setq gf getreal if eq eval gf nil setq gf bb setq bb b princ in Ancho Nervio cm princ bb princ setq b getreal if eq eval b nil setq b bb setq bb h princ Yin Canto total cm princ bb 6 169 Rutinas LISP princ setq h getreal if eq eval h nil setq h bb setq bb h0 princ Yin Canto losa comprs alas cm princ bb princ setq h0 getreal if eq eval h0 nil setq h0 bb setq bb b0 princ n Intereje viguetas cm lt prin

RUTINAS EN LISP - Universidad Politécnica de Valencia

Contents

Download Pdf Manuals

Related Search

Related Contents

RUTINAS EN LISP - Universidad Polit&eacute;cnica de Valencia

Contents

Download Pdf Manuals

Related Search

Related Contents

RUTINAS EN LISP - Universidad Politécnica de Valencia