public void SonderU_Extrusion(double SonderU_Laenge, double Flanschbreite)
{
double l = SonderU_Laenge;
double f = Flanschbreite;
double R1 = f; // Definition der Eckenradien nach DIN 1026-1
double R2 = R1 / 2;
CATIA_SonderU_Part.Part.InWorkObject = CATIA_SonderU_Part.Part.MainBody;
ShapeFactory SonderU_3D = (ShapeFactory)CATIA_SonderU_Part.Part.ShapeFactory;
Pad SonderU_Pad = SonderU_3D.AddNewPad(CATIA_SonderU_2D, l);
// Kantenverrundung #1 für R1
Reference Referenz11_R1 = CATIA_SonderU_Part.Part.CreateReferenceFromName("");
ConstRadEdgeFillet Verrundung1_R1 = SonderU_3D.AddNewEdgeFilletWithConstantRadius(Referenz11_R1, CatFilletEdgePropagation.catTangencyFilletEdgePropagation, R1);
Reference Referenz21_R1 = CATIA_SonderU_Part.Part.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;4)));None:();Cf11:());Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;3)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", SonderU_Pad);
Verrundung1_R1.AddObjectToFillet(Referenz21_R1);
Verrundung1_R1.set_Name("Verrundung1_R1 = " + R1);
// Kantenverrundung #2 für R1
Reference Referenz12_R1 = CATIA_SonderU_Part.Part.CreateReferenceFromName("");
ConstRadEdgeFillet Verrundung2_R1 = SonderU_3D.AddNewEdgeFilletWithConstantRadius(Referenz12_R1, CatFilletEdgePropagation.catTangencyFilletEdgePropagation, R1);
Reference Referenz22_R1 = CATIA_SonderU_Part.Part.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;5)));None:();Cf11:());Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;4)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", SonderU_Pad);
Verrundung2_R1.AddObjectToFillet(Referenz22_R1);
Verrundung2_R1.set_Name("Verrundung2_R1 = " + R1);
// Kantenverrundung #1 für R2
Reference Referenz11_R2 = CATIA_SonderU_Part.Part.CreateReferenceFromName("");
ConstRadEdgeFillet Verrundung1_R2 = SonderU_3D.AddNewEdgeFilletWithConstantRadius(Referenz11_R2, CatFilletEdgePropagation.catTangencyFilletEdgePropagation, R2);
Reference Referenz21_R2 = CATIA_SonderU_Part.Part.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;3)));None:();Cf11:());Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;2)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", SonderU_Pad);
Verrundung1_R2.AddObjectToFillet(Referenz21_R2);
Verrundung1_R2.set_Name("Verrundung1_R2 = " + R2);
// Kantenverrundung #2 für R2
Reference Referenz12_R2 = CATIA_SonderU_Part.Part.CreateReferenceFromName("");
ConstRadEdgeFillet Verrundung2_R2 = SonderU_3D.AddNewEdgeFilletWithConstantRadius(Referenz12_R2, CatFilletEdgePropagation.catTangencyFilletEdgePropagation, R2);
Reference Referenz22_R2 = CATIA_SonderU_Part.Part.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;6)));None:();Cf11:());Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;5)));None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", SonderU_Pad);
Verrundung2_R2.AddObjectToFillet(Referenz22_R2);
Verrundung2_R2.set_Name("Verrundung2_R2 = " + R2);
SonderU_Pad.set_Name("U-Profiltraeger");
CATIA_SonderU_Part.Part.Update();
}
public void ZylinderkopfInnensechskant(MetrischeGewindegroesse m)
{
#region SKizze bauen
// neue Skizze im ausgewaehlten geometrischen Set anlegen
Sketches catSketches1 = catHybridBody1.HybridSketches;
OriginElements catOriginElements = hsp_catiaPart.Part.OriginElements;
Reference catReference1 = (Reference)catOriginElements.PlaneYZ;
hsp_catiaProfil = catSketches1.Add(catReference1);
// Achsensystem in Skizze erstellen
ErzeugeAchsensystem();
hsp_catiaProfil.set_Name("Zylinderkopf mit Innensechskannt");
// Skizzierer verlassen
hsp_catiaProfil.CloseEdition();
// Part aktualisieren
hsp_catiaPart.Part.Update();
Factory2D catFactory2D1 = hsp_catiaProfil.OpenEdition();
// erst die Punkte
Point2D catPoint2D1 = catFactory2D1.CreatePoint(0, 0);
// dann den Kreis
Circle2D catCircle2D_1 = catFactory2D1.CreateCircle(0, 0, m.kopfdurchmesser / 2, 0, 0);
catCircle2D_1.CenterPoint = catPoint2D1;
// Skizzierer verlassen
hsp_catiaProfil.CloseEdition();
// Part aktualisieren
hsp_catiaPart.Part.Update();
#endregion
#region Pad
// Hauptkoerper in Bearbeitung definieren
hsp_catiaPart.Part.InWorkObject = hsp_catiaPart.Part.MainBody;
// Block(Schaft) erzeugen
ShapeFactory catShapeFactory1 = (ShapeFactory)hsp_catiaPart.Part.ShapeFactory;
KopfPad = catShapeFactory1.AddNewPad(hsp_catiaProfil, -m.mutterhoehe);
// Block umbenennen
KopfPad.set_Name("Kopf");
// Part aktualisieren
hsp_catiaPart.Part.Update();
#endregion
#region Offsetebene
Reference RefmyPlaneYZ = (Reference)catOriginElements.PlaneYZ;
hsp_catiaPart.Part.InWorkObject = hsp_catiaPart.Part;
HybridShapeFactory hybridShapeFactory1 = (HybridShapeFactory)hsp_catiaPart.Part.HybridShapeFactory;
HybridShapePlaneOffset OffsetEbene = hybridShapeFactory1.AddNewPlaneOffset(RefmyPlaneYZ, m.mutterhoehe, true);
OffsetEbene.set_Name("OffsetEbene");
Reference RefOffsetEbene = hsp_catiaPart.Part.CreateReferenceFromObject(OffsetEbene);
HybridBodies hybridBodies1 = hsp_catiaPart.Part.HybridBodies;
HybridBody hybridBody1 = hybridBodies1.Item("Profile");
hybridBody1.AppendHybridShape(OffsetEbene);
hsp_catiaPart.Part.Update();
Sketches catSketches2 = catHybridBody1.HybridSketches;
Sketch SkizzeaufOffset = catSketches2.Add(RefOffsetEbene);
hsp_catiaPart.Part.InWorkObject = SkizzeaufOffset;
SkizzeaufOffset.set_Name("OffsetSkizze");
// Achsensystem in Skizze erstellen
ErzeugeAchsensystem();
// Skizzierer verlassen
SkizzeaufOffset.CloseEdition();
// Part aktualisieren
hsp_catiaPart.Part.Update();
#endregion
#region Innensechskannt
Factory2D catFactory2D2 = SkizzeaufOffset.OpenEdition();
// Sechskant erzeugen
double tan30 = Math.Sqrt(3) / 3;
double cos30 = Math.Sqrt(3) / 2;
double mSW = m.innensechskant / 2;
// erst die Punkte
Point2D catPoint2D2 = catFactory2D2.CreatePoint(mSW, tan30 * mSW);
Point2D catPoint2D3 = catFactory2D2.CreatePoint(mSW, -(tan30 * mSW));
Point2D catPoint2D4 = catFactory2D2.CreatePoint(0, -(mSW / cos30));
Point2D catPoint2D5 = catFactory2D2.CreatePoint(-mSW, -(tan30 * mSW));
Point2D catPoint2D6 = catFactory2D2.CreatePoint(-mSW, tan30 * mSW);
Point2D catPoint2D7 = catFactory2D2.CreatePoint(0, mSW / cos30);
// dann die Linien
Line2D catLine2D1 = catFactory2D2.CreateLine(mSW, tan30 * mSW, mSW, -(tan30 * mSW));
catLine2D1.StartPoint = catPoint2D2;
catLine2D1.EndPoint = catPoint2D3;
Line2D catLine2D2 = catFactory2D2.CreateLine(mSW, -(tan30 * mSW), 0, -(mSW / cos30));
catLine2D2.StartPoint = catPoint2D3;
catLine2D2.EndPoint = catPoint2D4;
Line2D catLine2D3 = catFactory2D2.CreateLine(0, -(mSW / cos30), -mSW, -(tan30 * mSW));
catLine2D3.StartPoint = catPoint2D4;
catLine2D3.EndPoint = catPoint2D5;
Line2D catLine2D4 = catFactory2D2.CreateLine(-mSW, -(tan30 * mSW), -mSW, (tan30 * mSW));
catLine2D4.StartPoint = catPoint2D5;
catLine2D4.EndPoint = catPoint2D6;
Line2D catLine2D5 = catFactory2D2.CreateLine(-mSW, (tan30 * mSW), 0, mSW / cos30);
catLine2D5.StartPoint = catPoint2D6;
catLine2D5.EndPoint = catPoint2D7;
Line2D catLine2D6 = catFactory2D2.CreateLine(0, mSW / cos30, mSW, tan30 * mSW);
catLine2D6.StartPoint = catPoint2D7;
catLine2D6.EndPoint = catPoint2D2;
// Part aktualisieren
hsp_catiaPart.Part.Update();
#endregion
#region Verrundung
hsp_catiaPart.Part.InWorkObject = hsp_catiaPart.Part.MainBody;
ShapeFactory catshapeFactoryRadius = (ShapeFactory)hsp_catiaPart.Part.ShapeFactory;
Reference reference1 = hsp_catiaPart.Part.CreateReferenceFromBRepName( //Hier scheint der Fehler drin zu stecken, er erkennt nicht die richtige kante--wenn nicht die Kante, sondern die Fläche ausgewählt wird, scheint der Fehler behpoben zu sein
"RSur:(Face:(Brp:(Pad.2;2);None:();Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", KopfPad);
// "REdge:(Edge:(Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;1)));None:();Cf11:());Face:(Brp:(Pad.1;2);None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", SchaftPad);
RadiusKopf = catshapeFactoryRadius.AddNewEdgeFilletWithConstantRadius(reference1, CatFilletEdgePropagation.catTangencyFilletEdgePropagation, m.fase);
RadiusKopf.set_Name("Radius");
hsp_catiaPart.Part.Update();
#endregion
#region Tasche Innensechskannt
// Hauptkoerper in Bearbeitung definieren
hsp_catiaPart.Part.InWorkObject = hsp_catiaPart.Part.MainBody;
// Tasche erzeugen erzeugen
ShapeFactory catShapeFactory2 = (ShapeFactory)hsp_catiaPart.Part.ShapeFactory;
SchlitzPocket = catShapeFactory2.AddNewPocket(SkizzeaufOffset, -m.innensktiefe);
// Block umbenennen
SchlitzPocket.set_Name("Innensechskant");
// Part aktualisieren
hsp_catiaPart.Part.Update();
#endregion
}
