Betonschachtkonus Kanalbau

[Hmooslechner]

Ich will meinem freien 3D Polygonzug - gdl einen Kanalverlauf "aufprägen"

Mit welchen Programmiertools würdet Ihr so einen Schachtkonus herstellen?

Mit SOE-Befehlen will ichs nicht, weil die alles verlangsamen und bei Reihungen mit den Namen Probleme machen - allerdings - ..

(... allerdings wäre es, ein externes GDL mit einem SOE-Konus zu erstellen, das wiederholt aufgerufen wird - hat sowas schon wer versucht - gemacht?)


Den Schacht selber habe ich bisher so drin:

				cutpolya 2, 1, 0,    			!!!!!Schacht-Hauptzylinder
				0, 0, 979,
				Schachtradius-Schachtwanddicke, 360, 4015
				
					addz - Schachthoehen[k]
					cylind Schachthoehen[k], Schachtradius
					del 1
	
				cutend    						!!!!! Ende Schacht-Hauptzylinder

Irgenwas einfaches in der Art sollte es auch für den Konus oben drauf geben..


Es müßte wohl mit dem Cutform - Befehl zu machen sein - aber wie genau würde der Befehl dann aussehen?


Any better idea?

[Ma_Scht]

Hallo Egon,
Danke fürs raussuchen, ich habe es mir angesehen.
Gruß Mario
Beigefügt mein Vorschlag:


!!! 3D-SCHRPT
!!!!!!!!!! copyright Ma_Scht, Mrz. 2020 !!!!!!!!!!!!!!
!!!!!!!! For free use, but at one's own risk. !!!!!!!!
!!!!! Zur freien Verwendung, auf eigenes Risiko !!!!!!
!! Solidarität mit Alten & Kranken - haltet Abstand !!

!!!!!!!!!!! BASIS-WERTE ALLGEMEIN !!!!!!!!!!!!!
EPS = 0.00001
oberflaeche = 4 !!! "Beton, rauh"
winkel = 15
teilung = 360/winkel
radiAbstZ = 1.25 !!! vertikaler Abstand zw. den beiden Radien
wandungsStaerke = 0.150
statusCodeStandard = 13 !13
geglaettetJN = 1 !1

sc01 = 1 !1 !!! STATUS-CODE-Schalter des MASS-Befehls
sc04 = 1 !1
sc16 = 1 !1
sc32 = 0 !0
sc64 = 0 !0
sc128 = 0 !0

!!!!!!!!! BASIS-WERTE AUSSEN-KONUS !!!!!!!!!!!
hoeheZylinderUAKo = 0.25 !!! keiner gerader ZYLINDER oben, ÄUSSERER KONUS
hoeheZylinderOAKo = 0.35 !!! kleiner gerader ZYLINDER oben, ÄUSSERER KONUS
radiUAKo = 2.00 * 0.5 !!! Radius UNTEN, ÄUSSERER KONUS
radiOAKo = 0.965 * 0.5 !!! Radius OBEN, ÄUSSERER KONUS
radiOAversX = 0 !!! der Form halber ergänzt, aber der Konus wird später mittels ROTz gedreht wie er gebraucht wird.
radiOAversY = radiUAKo - radiOAKo - 10*EPS !!! das ergibt den max. zulässigen Versatz

!!!!!!!!! BASIS-WERTE INNEN-KONUS !!!!!!!!!!!
!hoeheZylinderUIKo = muss für jeden Pkt. errechnet werden !!! kleiner NICHT gerader ZYLINDER unten, INNERER KONUS
!hoeheZylinderOIKo = muss für jeden Pkt. errechnet werden !!! kleiner NICHT gerader ZYLINDER unten, INNERER KONUS
radiUIKo = (radiUAKo - wandungsStaerke) !!! Radius UNTEN, INNERER KONUS
radiOIKo = (radiOAKo - wandungsStaerke) !!! Radius OBEN, INNERER KONUS
radiOIversX = 0 !!! der Form halber ergänzt, aber der Konus wird später mittels ROTz gedreht wie er gebraucht wird.
radiOIversY = radiUAKo - radiOAKo - 10*EPS !!! das ergibt den max. zulässigen Versatz

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!! GRUPPE - AUSSEN_KONUS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
GROUP "AUSSEN_KONUS"
statusCode = statusCodeStandard
FOR i = 0 TO teilung ! unterste Ebene - das ist das 1. VIERTEL im MASS-Befehl
PUT radiUAko*SIN(i*winkel) * (1+EPS) ! X
PUT radiUAKo*COS(i*winkel) * (1+EPS) ! Y
PUT 0 ! Z
IF i = teilung THEN statusCode = -1
PUT statusCode
NEXT i

statusCode = statusCodeStandard
FOR i = 0 TO teilung ! obere Ebene des ZYLUNDER-Stummel - das ist das 2. VIERTEL im MASS-Befehl
PUT radiUAKo*SIN(i*winkel) ! X
PUT radiUAKo*COS(i*winkel) ! Y
PUT hoeheZylinderUAKo ! Z
IF i = teilung THEN statusCode = -1
PUT statusCode
NEXT i

statusCode = statusCodeStandard
FOR i = 0 TO teilung ! obere Ebene des KONUS - das ist das 3. VIERTEL im MASS-Befehl
PUT radiOAversX + radiOAKo*SIN(i*winkel) ! X
PUT radiOAversY + radiOAKo*COS(i*winkel) ! Y
PUT hoeheZylinderUAKo + radiAbstZ ! Z
IF i = teilung THEN statusCode = -1
PUT statusCode
NEXT i

statusCode = statusCodeStandard
FOR i = 0 TO teilung ! obere Ebene des KONUS - das ist das 3. VIERTEL im MASS-Befehl
PUT radiOAversX + radiOAKo*SIN(i*winkel) * (1-10*EPS) ! X
PUT radiOAversY + radiOAKo*COS(i*winkel) * (1-10*EPS) ! Y
PUT hoeheZylinderUAKo + radiAbstZ + hoeheZylinderOAKo ! Z
IF i = teilung THEN statusCode = -1
PUT statusCode
NEXT i

MASS oberflaeche, oberflaeche, oberflaeche,
0.25*NSP/4, 0.75*NSP/4, sc01*1 + sc04*4 + sc16*16 + sc32*32 + ABS(geglaettetJN-1)*64 + sc128*128, 0.00,
GET(NSP)
ENDGROUP


!!!!! KEHRWOCHE im Stack !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
FOR i = 1 TO NSP : hlp = GET(1) : NEXT i
!!!!! KEHRWOCHE im Stack !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!! GRUPPE - ABZUGSVOLUMINA_INNEN_KONUS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
GROUP "ABZUGSVOLUMINA_INNEN_KONUS"
!!!!!!!!!!!! INNEN-KONUS !!!!!!!!!!!!!!
laenge1 = 2*radiUAKo - 2*radiOAKo
alpha = ATN(radiAbstZ / (2*radiUAKo - 2*radiOAKo))
beta = 45 + 0.5*alpha
gamma = beta - alpha
h1 = wandungsStaerke * TAN(gamma)

statusCode = statusCodeStandard
FOR i = 0 TO teilung ! unterste Ebene - das ist das 1. VIERTEL im MASS-Befehl
PUT radiUIko*SIN(i*winkel) * (1+EPS) ! X
PUT radiUIKo*COS(i*winkel) * (1+EPS) ! Y
PUT 0 ! Z
IF i = teilung THEN statusCode = -1
PUT statusCode
NEXT i

statusCode = statusCodeStandard
FOR i = 0 TO teilung ! obere Ebene des ZYLUNDER-Stummel - das ist das 2. VIERTEL im MASS-Befehl
PUT radiUIKo*SIN(i*winkel) ! X
PUT radiUIKo*COS(i*winkel) ! Y
PUT hoeheZylinderUAKo + 0.5*h1*COS(i*winkel) - 0.5*h1 ! Z
IF i = teilung THEN statusCode = -1
PUT statusCode
NEXT i

statusCode = statusCodeStandard
FOR i = 0 TO teilung ! obere Ebene des KONUS - das ist das 3. VIERTEL im MASS-Befehl
PUT radiOIversX + radiOIKo*SIN(i*winkel) ! X
PUT radiOIversY + radiOIKo*COS(i*winkel) ! Y
PUT hoeheZylinderUAKo + radiAbstZ + 0.5*h1*COS(i*winkel) - 0.5*h1 ! Z
IF i = teilung THEN statusCode = -1
PUT statusCode
NEXT i

statusCode = statusCodeStandard
FOR i = 0 TO teilung ! obere Ebene des KONUS - das ist das 3. VIERTEL im MASS-Befehl
PUT radiOIversX + radiOIKo*SIN(i*winkel) * (1-10*EPS) ! X
PUT radiOIversY + radiOIKo*COS(i*winkel) * (1-10*EPS) ! Y
PUT hoeheZylinderUAKo + radiAbstZ + hoeheZylinderOAKo ! Z
IF i = teilung THEN statusCode = -1
PUT statusCode
NEXT i

MASS oberflaeche, oberflaeche, oberflaeche,
0.25*NSP/4, 0.75*NSP/4, sc01*1 + sc04*4 + sc16*16 + sc32*32 + ABS(geglaettetJN-1)*64 + sc128*128, 0.00,
GET(NSP)
ENDGROUP

result1 = SUBGROUP ("AUSSEN_KONUS", "ABZUGSVOLUMINA_INNEN_KONUS")
PLACEGROUP result1

KILLGROUP "ABZUGSVOLUMINA_INNEN_KONUS"
KILLGROUP "AUSSEN_KONUS"

END:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

[Frank Beister]

Ich wusste doch, dass wir das schon mal am Wickel hatten. Ich bin gerade auf der Suche nach so einem (möglichst flexiblen - keine Angst vor zu viel Parametern) Betonring-Revischacht. Die Außenanlagenvariante mit Stahldeckel. Was nehmt ihr da?

[graber]

Ich finde es erstaunlich (und ärgerlich), dass sowas -ein (Beton)-Schacht- nicht in der Standard-MEP-Bibliothek enthalten ist!

[Ma_Scht]

Naja Graber,
es ist schon recht speziell für den Tiefbau. Rollenbänder gibt es auch nicht und jeder wird was finden was fehlt. Das es KEINE Schiebefenster gibt, das ist ein Manko.
Gruß Mario

[graber]

@Ma_Scht:
Zumindest in unserem Teil Österreichs ist der Kanal (Regenwasser und Schmutzwasser - speziell außerhalb des Gebäudes) u.a. als Teil der behördlichen Einreichung (Architekturplanung) bei jedem(!) Projekt mitabzugeben.
Und dieser besteht praktisch immer aus Rohren und Betonschächten.
Da kommen tatsächlich die Schiebefenster weit seltener zur Anwendung.