Parametrikus modellezés (GDL) 7.

CAAD és építészinformatika (BMEEPAG0202)

Kiss Zsolt
egyetemi adjunktus

Egyedi nyílászárók 2. 7. gyakorlat A 7. gyakorlat az előző órai gyakorlat lesarkított ablakának továbbfejlesztése, egyedi ablakkeretezés és könyöklőpárkány 2D jelképe és 3D modellezése Szükséges néhány új paraméter definiálása: fk_b: keret szélessége fk_v: keret kiugrása p_tny: ablakpárkány túlnyúlása p_k: ablakpárkány kiugrása p_v: ablakpárkány vastagsága
	A keretezés 2D nézetének elkészítéséhez a falból a keretezés szélességével nagyobb nyílást kell "kivágni" (2D-ben) Ezt a Részletek párbeszédablakban adhatjuk meg a Falnyílás túlmérete a névleges-(A és B) mérethez képest: , az és az paramétereinek kitöltésével, valamint a Körvonalak: alábbi beállításával: A kiegészítéssel a 2D nézet:


lesarkitott_ablak / 2D leírás
! lesarkított ablak 2D 3.0 ! ! Kiss Zsolt !------------------------------- SET FILL WALL_FILL PEN WALL_SECT_PEN ADD2 0, WIDO_SILL FOR i=1 to 2 HOTSPOT2 -a/2,0 HOTSPOT2 -a/2,-WALL_THICKNESS HOTSPOT2 -a/2, fk_v HOTSPOT2 -a/2-fk_b, fk_v POLY2_B 6, 3, WALL_FILL_PEN, WALL_FBGD_PEN, -a/2-fk_b, 0, 1, -a/2-fk_b, fk_v, 1, -a/2, fk_v, 1, -a/2, -WALL_THICKNESS, 1, -a/2-fk_b,-WALL_THICKNESS, 0, -a/2-fk_b, 0, -1 MUL2 -1,1 NEXT i DEL 2 PEN p_nezet POLY2 4,1, -a/2-fk_b-p_tny, 0, -a/2-fk_b-p_tny, p_k, a/2+fk_b+p_tny, p_k, a/2+fk_b+p_tny, 0 LINE2 -a/2, -WALL_THICKNESS, a/2, -WALL_THICKNESS DEL 1 PEN SYMB_SECT_PEN IF GLOB_SCALE >= 100 THEN RECT2 a/2,0,a/2-ts,-tv RECT2 -a/2,0,-(a/2-ts),-tv PEN p_nezet LINE2 -(a/2-ts),0,(a/2-ts),0 LINE2 -(a/2-ts),-tv,(a/2-ts),-tv LINE2 -(a/2-ts),-tv/2,(a/2-ts),-tv/2 ELSE SET FILL SYMB_FILL FOR i=1 TO 2 POLY2_B 9,3, SYMB_FILL_PEN, SYMB_FBGD_PEN, a/2,0,1, a/2-ts,0,1, a/2-ts,-tv/3,1, a/2-ts+0.015,-tv/3,1, a/2-ts+0.015,-2tv/3,1, a/2-ts+0.03,-2tv/3,1, a/2-ts+0.03,-tv,1, a/2,-tv,1, a/2,0,-1 POLY2_B 5,3, SYMB_FILL_PEN, SYMB_FBGD_PEN, a/2-ts+0.045,-tv, 1, a/2-ts+0.045,-4tv/3, 1, a/2-ts+0.045-.08,-4tv/3, 1, a/2-ts+0.045-.08,-tv/3, 1, a/2-ts,-tv/3, 1 MUL2 -1,1 NEXT i DEL 1 PEN p_nezet LINE2 -(a/2-ts),0,a/2-ts,0 FOR i= 1 TO 4 LINE2 -(a/2-ts+0.045-.08),-itv/3, a/2-ts+0.045-.08, -itv/3 NEXT i ENDIF	A kitöltés beállítása a fal kitöltés-re A toll beállítása a fal metszet toll-ra (WALL_SECT_PEN) KR eltolása az ablak párbeszédablakban megadott értékkel ciklus kezdete kétoldali kiegészítéshez fogópontok elhelyezése . . . poligon 6 ponttal megadva kitöltéssel, kontúrral a kitöltés tolla a fal kitöltés tolla (WALL_FILL_PEN) a háttér tolla a fal kitöltés háttér tolla (WALL_FBGD_PEN) -a/2-fk_b,0,1, -a/2-fk_b,fk_v,1, -a/2,fk_v,1, -a/2,-WALL_THICKNESS,1, -a/2-fk_b,-WALL_THICKNESS,0, -a/2-fk_b,0,-1 KR tükrözése x irányban ciklus vége 2 KR visszatörlés a párkány tollának beállítása poligon 4 ponttal x₁,y₁, x₂,y₂, x₃,y₃, x₄,y₄ a fal belső síkjának nézetvonala 1 KR visszatörlés toll beállítása ha a lépték 100, vagy nagyobb, akkor tok jobb tok bal toll (nézetvonal tok vonalai . . egyébként kitöltés=metszett kitöltés ciklus (bal és jobb tok) tok poligon 9 ponttal, , kitöltés, kitöltés háttérszín, x₁, y₁, maszk₁, x₂, y₂, maszk₂, . . . . . . x₉, y₉, maszk₉ szárny poligon 5 ponttal, , kitöltés, kitöltés háttérszín, x₁, y₁, maszk₁, x₂, y₂, maszk₂, . . x₅, y₅, maszk₅ tükrözés x irányban ciklus vége egy KR transzformáció törlés nézet tol beállítása vonal ciklus 1 - 4-ig vonal ciklus vége feltétel vége
Módosítsuk 3D leírást úgy, hogy minden lépcsőfok közepén legyen egy oszlop!
lesarkitott_ablak / 3D leírás
! ! lesarkított ablak 2D 1.0 ! Kiss Zsolt !---------------- ! lyuk a falban ! --------------- WALLHOLE 7, 1, -a/2 , 0 , 15, -a/2 , b-d , 15, -a/2+c , b , 15, a/2-c , b , 15, a/2 , b-d , 15, a/2 , 0 , 15, -a/2 , 0 , 15 ADDZ -WIDO_SILL ! -------------- ! falkeret ! --------------- MATERIAL fk_mat TUBE 7,8,127, 0,0,0, fk_b,0,0, fk_b,-fk_v,0, -.005,-fk_v,0, -.005,WIDO_SILL,0, 0,WIDO_SILL,0, 0,0,0, -a/2,-1,0,0, -a/2,0.02,0,0, -a/2,b-D,0,0, -a/2+C,b,0,0, a/2-C,b,0,0, a/2,b-D,0,0, a/2,0.02,0,0, a/2,-1,0,0 ! ---------------------- ! ablakpárkány ! ----------------------- ADD 0,-p_v+.02, -p_k CPRISM_ p_mat, p_mat, p_mat, 5,p_k + WIDO_SILL, -a/2-fk_b-p_tny,0,15, -a/2-fk_b-p_tny,p_v,15, a/2+fk_b+p_tny,p_v,15, a/2+fk_b+p_tny,0,15, -a/2-fk_b-p_tny,0,-1 DEL 2 ! --------------- ! tok ! --------------- MATERIAL fa TUBE 9,9,127, 0,0,0, ts,0,0, ts,tv/3,0, ts-0.016,tv/3,0, ts-0.016,2tv/3,0, ts-0.031,2tv/3,0, ts-0.031,tv,0, 0,tv,0, 0,0,0, -a/2,b,0,0, -a/2,0,0,0, a/2,0,0,0, a/2,b-d,0,0, a/2-c,b,0,0, -a/2+c,b,0,0, -a/2,b-d,0,0, -a/2,0,0,0, a/2,0,0,0 ! --------------- ! szárny ! --------------- ADD -(a/2-(ts-0.06)),0,tv+tv/6 !----vasalat ---- ROTX -90 ADDZ (b-d)/4 MATERIAL vasalat CYLIND .05,.01 ADDZ (b-d)/2 CYLIND .05,.01 DEL 3 !---------------- MATERIAL fa ROTY -alfa ADD a/2-(ts-0.06),0,-(tv+tv/6) TUBE 9,9,127, ts-0.045,tv,1, ts-0.045,4tv/3,1, ts-0.045+.08,4tv/3,1, ts-0.045+.08,1tv/3,1, ts-0.014,1tv/3,1, ts-0.014,2tv/3,1, ts-0.029,2tv/3,1, ts-0.029,3tv/3,1, ts-0.044,tv,1, -a/2,b,0,0, -a/2,0,0,0, a/2,0,0,0, a/2,b-d,0,0, a/2-c,b,0,0, -a/2+c,b,0,0, -a/2,b-d,0,0, -a/2,0,0,0, a/2,0,0,0 !--------------------------- ! üvegezés !--------------------------- ub=(ts-0.045+.08) gamma=ATN(c/d) aa=a-2ub bb=b-2ub cc=c-(1-TAN(gamma/2))ub dd=d-(1-TAN(45-gamma/2))ub ADDZ tv/32.5-.01 ADDY ub CPRISM_ uveg,uveg,uveg, 7,0.02, -aa/2, 0, 15, -aa/2, bb-dd, 15, -aa/2+cc, bb, 15, aa/2-cc, bb, 15, aa/2, bb-dd, 15, aa/2, 0, 15, -aa/2, 0, -1 !-----üvegosztó borda--------------- CUTPOLY 3, -aa/2, bb, -aa/2, bb-dd, -aa/2+cc, bb CUTPOLY 3, aa/2, bb, aa/2, bb-dd, aa/2+cc, bb dxo=(aa+tos)/(nx+1) dyo=(bb+tos)/(ny+1) ADD -aa/2,0,0.02 ADDX -tos FOR j=1 to nx ADDX dxo BLOCK tos,b-2ub,tov NEXT j DEL nx+1 FOR j=1 to nx+1 FOR i=1 to ny ADDY dyo BLOCK* dxo-tos,tos,tov NEXT i DEL ny ADDX dxo NEXT j CUTEND CUTEND !-----------------------------------	Luk definiálása az ablak számára KR* eltolása az ablak eltolással a keretezés anyagának beállítása a keretezés a keretezés szelvény koordinátái a keretezés szelvény transzlációs pályája KR* eltolása az ablakpárkány 2 KR transzformáció visszatörlése a tok anyaga tok a tokszelvény koordinátái a tok szelvény trenszlációs pályája KR* transzformáció a szárny forgástengelyébe vasalat itt kezdődik KR* transzformáció a henger (CYLIND) elhelyezéséhez a pipapánt anyagának beállítása egy pipapánt (henger) elhelyezése KR* eltolása másik pipapánt (henger) elhelyezése a legutolsó 3 KR* transzformáció törlése a szárny anyagának beállítása szárny nyitásszögének megfelelő KR* transzformáció a szárny szelvényének koordinátái a szárny szelvényének trenszlációs pályája üvegezés üvegezés szélének távolsága a külső széltől a lesarkítás függőlegessel bezárt szöge az üveg szélessége az üveg magassága az üveg lesarkítása x az üveg lesarkítása y KR* eltolása az üvegezés síkjára KR* eltolása az üveg aljára az üveg "leírása" az üvegosztó (ál)bordák definiálunk két vágópoligont, amivel a a kilógó bordákat levágjuk