Gemauerter Rundbogen

Hmooslechner · ‎2009-06-23

Die in Archicad bestehenden Bib-Elemente sind unbefriedigend - nur eine grobe Näherung.

deshalb habe ich begonnen, einen fachlich richtig gemauerten Rundbogen zu erzeugen.

Rundbogen:

Der Schlußstein oben ist immer in der Ansicht stehend.
Dies bedeutet, daß der Bogen aus ungerader Anzahl Steine betehen muß!
Jede 2. Schar ist gedreht, damit der Ziegelverband stimmt.
Die Ziegelschar-Anzahl und somit die Fugendicke wird über die
Öffnungsbreite immer auf die obigen Regeln angepaßt.

Noch in Zukunft anzupassen:
Der Widerlager-Stein zu Anfang und zu Ende liegt um eine halbe
Ziegelhöhe zu tief (geometrisch aber richtig, fachlich falsch).
In der Praxis wird der natürlich der Widerlagerstein eben mit dem
Bogenfuß gelegt und die weiteren Steine nicht nach der Achse und dem
Bogenmittelpunkt, sondern nach der unteren Kante und einer Tangente
an denem Hilfkreis im Mittelpunkt ausgerichtet.

Segmentbogen:

kommt später dazu..

Rundbogenv12a.gsm

Und größere Öffnungsbreite zum Vergleich:


 material zm
 if art="Rundbogen" then bl=a*pi/4
 
 if art="Segmentbogen"then
 	brad=(4*segh*segh+a*a)/8*segh  	!!Segmentbogenradius
 	iwi=4*atn((2*segh)/a)			!!Mittelpunktswinkel
 	bl=(iwi/180*pi*brad)				!!Bogenlänge
  else
 endif
 
 
 
 oft=int(bl/zh+fus) !!!Wie oft geht der Bogen - gerade oder ungerade
 
 halbe=oft/2  !!!sorgt für senkrechtem Schlußstein
 if fra(halbe)=0 then 
 	oft=oft-2
 	else
 	oft=oft-3
 endif  !!!sorgt für senkrechtem Schlußstein
 
 
 
 
 
 if art="Rundbogen" gosub 100
 if art="Segmentbogen" gosub 200
 
 
 end
 
 
 200:
 
 dwin=iwi/oft/2
 
 addx a/2
 addz -a/2+segh-zh
 roty -(90-iwi/2)
 block 0.1, 0.1, 0.1
 
 addx brad
 block zl, zb, zh
 
 
 
 
 return
 
 
 
 
 100:  !!!Rundbogen Blockverband 2x Halbbogen
 
 dwin=90/oft
 
 addx a/2
 
 zaehler=1   !!!!Halbbogen rechts
 for i=0 to oft*2
 	addx a/2
 	addz -zh/2
 		if zaehler=1 then
 			block zl, zb, zh
 			addy zb + fus
 			block zl, zb, zh
 			del 1			
 			zaehler=0
 		else
 			zaehler=1
 			block zb, zl, zh
 			addx zb+fus
 			block zb, zl, zh
 			del 1
 		endif
 	del 2
 	roty -dwin
 next i	
 del oft+1
 
 return   !!!Rundbogen Blockverband ende

Parameterliste:
a - Öffnungsbreite
zl - Ziegellänge
zb - Ziegelbreite
zh - Ziegelhöhe
fus - Fugendicke
zm - Ziegelmaterial
art - Bogenart="Rundbogen"
segh - Segmentbogenhöhe (für später)
projezier2d - Darstellung in 2D als Projektion?

2D-Code:

hotspot2 0, 0
 hotspot2 a, 0
 hotspot2 a, zb*2+fus
 hotspot2 0, zb*2+fus
 
 if projezier2d=1 then 
 	project2 3, 270, 2
 else
 endif

[ 23. Juni 2009, 07:44: Beitrag editiert von: Heimo ]