Gerekli Parametreler
- Kenar tipi seçimi (EdgeType)
Sağ taraf bordürü mü yoksa sol taraf bordürü mü olacağını belirtir.
- Döşeme listesi (Slabs)
Hangi döşemelerin üzerinde olması gerekiğinin seçimidir.
- Bordür konumu (Location)
Bordürün yolun en sağında mı, en solunda mı yoksa ortasında mı olduğunun seçimidir.
- Bordür genişliği (KerbW)
Bordürün yol doğrultusunda dik yöndeki boyutunu belirtir.
- Bordür yüksekliği (KerbH)
Bordürün Z doğrultusundaki boyutunu belirtir.
- Kenara olan uzaklık (Off_y) (cm)
Bordürün yol kenarına olan offset mesafesini belirtir.Asfalt kaplaması ile korkuluk arasındaki kot farkını oluşturan ve yaya kaldırımı olarak kullanılabilen yapı elemanıdır.
Kullanıcı Parametreleri
Code Block | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
<O N="GeometricParameters" T="Project">
<P N="EdgeType" V="1" D="KenarTipi[SagKenarBordür=1/SolKenarBordür=2]" Role="Input" Category="Geometri" />
<P N="Location" V="1" D="BordürKonumu[Sag=1/Sol=2/Orta=3]" Role="Input" Category="Geometri" />
<P N="KerbW" V="500" D="Bordür Genişliği" Role="Input" Category="Geometri" UT="Length" UC="CM_KGF" />
<P N="KerbH" V="300" D="Bordür Yüksekliği" Role="Input" Category="Geometri" UT="Length" UC="CM_KGF" />
<P N="Off_y" V="0" D="Kenara Olan Uzaklık" Role="Input" Category="Geometri" UT="Length" UC="M_KN" />
<P N="Slabs" V="[Doseme1,DD1,Doseme2]" T="Dos" D="Döşeme Listesi" Role="Input" Category="Geometri" />
<O T="ParamInfo" Min="1" Max="50" Required="1" Param="Slabs" Pick="1" List="1" />
</O> |
Gerekli Parametreler
Kenar tipi seçimi (EdgeType)
Sağ taraf bordürü mü yoksa sol taraf bordürü mü olacağını belirtir.
Döşeme listesi (Slabs)
Hangi döşemelerin üzerinde olması gerekiğinin seçimidir.
Bordür konumu (Location)
Bordürün yolun en sağında mı, en solunda mı yoksa ortasında mı olduğunun seçimidir.
Bordür genişliği (KerbW) (cm)
Bordürün yol doğrultusunda dik yöndeki boyutunu belirtir.
Bordür yüksekliği (KerbH) (cm)
Bordürün Z doğrultusundaki boyutunu belirtir.
Kenara olan uzaklık (Off_y) (m)
Bordürün yol kenarına olan offset mesafesini belirtir.
ParamInfo
3D Geometri
Code Block | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
<O N="Geometry" T="Project">
<O N="General" T="Group" Alignment="KerbRoute" AlignH="Warp" AlignV="Warp" AlignT="Warp" SegmentsAlong="1" SegmentsAround="40">
<O N="Trial" T="Repeat" S="0" E="Count-1" I="1" CTRL="i" i="0">
<O N="KerbVolume" T="Volume">
<P N="Color" V="#AFEEEE" T="Text" />
<O T="Repeat" S="0" E="1" I="1" CTRL="j" j="0">
<O N="KerbSurface" T="Surface">
<O T="Point" X="GeneralList1[i][j][0]" Y="GeneralList1[i][j][1]" Z="GeneralList1[i][j][2]" />
<O T="Point" X="GeneralList2[i][j][0]" Y="GeneralList2[i][j][1]" Z="GeneralList2[i][j][2]" />
<O T="Point" X="GeneralList2[i][j][0]" Y="GeneralList2[i][j][1]" Z="GeneralList2[i][j][2]+KerbH-(KerbW*e)-Chamfer+iif(TDelzR.GT.0,TDelzR,0)" />
<O T="Point" X="GeneralList2[i][j][0]" Y="GeneralList2[i][j][1]+iif(EdgeType .EQ.1,-Chamfer,Chamfer)" Z="GeneralList2[i][j][2]+KerbH-(KerbW-Chamfer)*e+iif(TDelzR.GT.0,TDelzR,0)" />
<O T="Point" X="GeneralList1[i][j][0]" Y="GeneralList1[i][j][1]" Z="GeneralList2[i][j][2]+KerbH+iif(TDelzR.LT.0,-TDelzR,0)" />
</O>
</O>
</O>
</O>
</O>
</O> |
Export
Code Block | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
<O T="Export">
<O N="Internal_Parameters" T="Group">
<P N="KerbRoute" V="iif( SlabList .NE. NULL , SlabList[0].SlabRoute , SlabJointList[0].JointRoute ) " />
<P N="e" V="0.01" D="Eğim" />
<P N="Chamfer" V="50" />
<P N="SlabList" V="filter( Slabs , x. ObjectType .EQ. 1 )" />
<P N="SlabJointList" V="filter( Slabs , x. ObjectType .EQ. 2 )" />
<O N="KerbLocation_R" T="Group">
<O N="R_Ref_Coordinates" T="Group">
<P N="Slab_R" V="map( SlabList , x.SlabRefline_R) " />
<P N="SlabJoint_R1" V="map( SlabJointList , x. ddr1)" />
<P N="SlabJoint_R2" V="map( SlabJointList , x. ddr2)" />
<P N="Kerb_R_Ref" V="sort(concat(Slab_R,SlabJoint_R1,SlabJoint_R2),x[0][0])" />
<P N="point_R" V="length(Kerb_R_Ref)" />
<O N="OnlineFuncR" T="Repeat" S="0" E="point_R-1" I="1" CTRL="i" i="0">
<O N="on2_R" T="Repeat" S="0" E="1" I="1" CTRL="j" j="0">
<P N="KerbSkew_R" V="online([Kerb_R_Ref[i][j],Kerb_M_Ref[i][j]],Off_y+KerbW)" />
<P N="KerbOff_R" V="online([Kerb_R_Ref[i][j],Kerb_M_Ref[i][j]],Off_y)" />
</O>
<P N="TEST1" V="map( on2_R , x. KerbSkew_R)" />
<P N="TEST2" V="map( on2_R , x. KerbOff_R)" />
</O>
<P N="Kerb_R_Ref1" V="map( OnlineFuncR , x. TEST1)" />
<P N="Kerb_R_Ref2" V="map( OnlineFuncR , x. TEST2)" />
</O>
</O>
<O N="KerbLocation_L" T="Group">
<O N="L_Ref_Coordinates" T="Group">
<P N="Slab_L" V="map( SlabList , x.SlabRefline_L) " />
<P N="SlabJoint_L1" V="map( SlabJointList , x. ddl1)" />
<P N="SlabJoint_L2" V="map( SlabJointList , x. ddl2)" />
<P N="Kerb_L_Ref" V="sort(concat(Slab_L,SlabJoint_L1,SlabJoint_L2),x[0][0])" />
<P N="point_L" V="length(Kerb_L_Ref)" />
<O N="OnlineFuncL" T="Repeat" S="0" E="point_L-1" I="1" CTRL="i" i="0">
<O N="on2_L" T="Repeat" S="0" E="1" I="1" CTRL="j" j="0">
<P N="KerbSkew_L" V="online([Kerb_L_Ref[i][j],Kerb_M_Ref[i][j]],Off_y+KerbW)" />
<P N="KerbOff_L" V="online([Kerb_L_Ref[i][j],Kerb_M_Ref[i][j]],Off_y)" />
</O>
<P N="TEST3" V="map( on2_L , x. KerbSkew_L)" />
<P N="TEST4" V="map( on2_L , x. KerbOff_L)" />
</O>
<P N="Kerb_L_Ref1" V="map( OnlineFuncL , x. TEST3)" />
<P N="Kerb_L_Ref2" V="map( OnlineFuncL , x. TEST4)" />
</O>
</O>
<O N="KerbLocation_M" T="Group">
<O N="M_Ref_Coordinates" T="Group">
<P N="Slab_M" V="map( SlabList , x.SlabRefline_M) " />
<P N="SlabJoint_M1" V="map( SlabJointList , x. ddm1)" />
<P N="SlabJoint_M2" V="map( SlabJointList , x. ddm2)" />
<P N="Kerb_M_Ref" V="sort(concat(Slab_M,SlabJoint_M1,SlabJoint_M2),x[0][0])" />
<P N="point_M" V="length(Kerb_M_Ref)" />
<O N="OnlineFuncM" T="Repeat" S="0" E="point_M-1" I="1" CTRL="i" i="0">
<O N="on2_M" T="Repeat" S="0" E="1" I="1" CTRL="j" j="0">
<P N="KerbSkew_M" V="online([Kerb_M_Ref[i][j],Kerb_R_Ref[i][j]],iif(EdgeType.EQ.1,-Off_y-KerbW,Off_y+KerbW))" />
<P N="KerbOff_M" V="online([Kerb_M_Ref[i][j],Kerb_R_Ref[i][j]],iif(EdgeType.EQ.1,-Off_y,Off_y))" />
</O>
<P N="TEST5" V="map( on2_M , x. KerbSkew_M)" />
<P N="TEST6" V="map( on2_M , x. KerbOff_M)" />
</O>
<P N="Kerb_M_Ref1" V="map( OnlineFuncM , x. TEST5)" />
<P N="Kerb_M_Ref2" V="map( OnlineFuncM , x. TEST6)" />
</O>
</O>
<O N="General" T="Group">
<P N="GeneralList1" V="iif( Location .EQ. 1 ,iif(EdgeType.EQ.1,Kerb_R_Ref2,Kerb_R_Ref1) , iif( Location .EQ. 2 ,iif(EdgeType.EQ.1,Kerb_L_Ref1,Kerb_L_Ref2) ,iif(EdgeType.EQ.1, Kerb_M_Ref2,Kerb_M_Ref2))) " />
<P N="GeneralList2" V="iif( Location .EQ. 1 ,iif(EdgeType.EQ.1,Kerb_R_Ref1,Kerb_R_Ref2) , iif( Location .EQ. 2 ,iif(EdgeType.EQ.1,Kerb_L_Ref2,Kerb_L_Ref1) ,iif(EdgeType.EQ.1, Kerb_M_Ref1,Kerb_M_Ref1))) " />
<P N="mappointlist" V="map( Elimination , x. Testing) " />
<P N="Pointlist" V="filter( mappointlist , x .NE. -999 )" />
<P N="RefLine_Points" V="iif(length(SlabJointList) .NE. 0 , Pointlist , GeneralList2) " />
</O>
<O N="Elimination" T="Repeat" S="0" E="Count-2" I="1" CTRL="i" i="0">
<P N="Testing" V="iif(GeneralList2[i][1][0] .EQ. GeneralList2[i+1][0][0],[GeneralList2[i][0],GeneralList2[i+1][1]],-999)" />
</O>
<P N="Count" V="length(GeneralList1)" />
<P N="TDelzR1" V="alignT(KerbRoute,GeneralList2 [0][0][0],GeneralList2[0][0][1])" />
<P N="TDelzR2" V="alignT(KerbRoute,GeneralList1[0][0][0],GeneralList1[0][0][1])" />
<P N="TDelzR" V="-TDelzR1+TDelzR2" />
</O>
<O N="Trial2" T="Repeat" S="0" E="Count-1" I="1" CTRL="i" i="0">
<O N="GuardRail_Ref" T="Volume" Alignment="KerbRoute" AlignH="Warp" AlignV="Warp" AlignT="Warp">
<O N="PT1" T="Point" X="GeneralList1[i][0][0]" Y="GeneralList1[i][0][1]" Z="GeneralList1[i][0][2]+KerbH+iif(TDelzR.LT.0,-TDelzR,0)" />
<O N="PT2" T="Point" X="GeneralList1[i][1][0]" Y="GeneralList1[i][1][1]" Z="GeneralList1[i][1][2]+KerbH+iif(TDelzR.LT.0,-TDelzR,0)" />
</O>
<O N="CarRail_Ref" T="Volume" Alignment="KerbRoute" AlignH="Warp" AlignV="Warp" AlignT="Warp">
<O N="PT1" T="Point" X="GeneralList2[i][0][0]" Y="GeneralList2[i][0][1]+iif(EdgeType .EQ.1,-Chamfer,Chamfer)" Z="GeneralList2[i][0][2]+KerbH-(KerbW-Chamfer)*e+iif(TDelzR.GT.0,TDelzR,0)" />
<O N="PT2" T="Point" X="GeneralList2[i][1][0]" Y="GeneralList2[i][1][1]+iif(EdgeType .EQ.1,-Chamfer,Chamfer)" Z="GeneralList2[i][1][2]+KerbH-(KerbW-Chamfer)*e+iif(TDelzR.GT.0,TDelzR,0)" />
</O>
<O N="Pavem_Ref" T="Volume" Alignment="KerbRoute" AlignH="Warp" AlignV="Warp" AlignT="Warp">
<O N="PT1" T="Point" X="GeneralList2[i][0][0]" Y="GeneralList2[i][0][1]" Z="GeneralList2[i][0][2]" />
<O N="PT2" T="Point" X="GeneralList2[i][1][0]" Y="GeneralList2[i][1][1]" Z="GeneralList2[i][1][2]" />
</O>
<O N="Ref_Lines_Controls" T="Group">
<P N="Guard_RailingRef" V="toglobal(GuardRail_Ref)" />
<P N="Car_RailingRef" V="toglobal(CarRail_Ref)" />
<P N="Pavement_Ref" V="toglobal(Pavem_Ref)" />
</O>
</O>
<O N="Ref_Coordinates" T="Group">
<P N="GuardCoordinates" V="map(Trial2, x.Guard_RailingRef)" />
<P N="CRCoordinates" V="map(Trial2, x.Car_RailingRef)" />
<P N="PavementCoordinates" V="map(Trial2 ,x.Pavement_Ref)" />
</O>
<O N="Design_Parameters" T="Group">
<P N="Pavement" V="refs('KBYS_Asfalt')" />
<P N="Pavement_thickness" V="iif(Pavement .EQ. NULL , 0 , Pavement[0].asf_h )" />
</O>
</O> |