Thema "Betreff: Aussparungen am Ende von Biegungen" in Inventor - Deutsches Forum

Aussparungen am Ende von Biegungen

sebastian6DVPL — Wed, 06 Jan 2021 11:18:24 GMT

Hallo zusammen,

Falls das Thema schon mal irgendwo in der Form erwähnt wurde, bitte ein kurzer Hinweis, ich habe bis jetzt noch nichts entsprechendes gefunden.

Mein Problem ist folgendes:

Wir arbeiten viel mit Blechbauteilen die wir auf dem Plasmaschneider zuschneiden. Danach sollen diese auf der Kantbank gebogen werden. Da wir viel Übergänge in allen möglichen und denkbaren Formen bauen sind die Biegungen nicht immer mit genauem Abstand messbar und nicht sinnvoll zu bemaßen für die Werkstatt. Hier haben wir uns angewöhnt, das wir am Ende einer Biegung einen kleinen Einstich machen der vom Plasmaschneider mit ausgeschnitten wird. Diesen Zeichnen wir nachträglich von Hand in einem weiteren Programm, was sehr umständlich ist.

Gibt es eine Möglichkeit am Ende einer Biegung eine Aussparung einzufügen?

Auf dem Bild ist ein sehr simples Bauteil zu sehen, bei dem sich aber keine Biegung so schneidet. Wir würden gerne auf jeder Seite einer Biegung eine Aussparung haben damit in der Werkstatt die Punkte als Hilfspunkte genommen werden können.

Vielen Dank schon mal vorab.

Kai

Betreff: Aussparungen am Ende von Biegungen

S_May — Wed, 06 Jan 2021 12:21:29 GMT

Hallo @sebastian6DVPL

kannst du bitte das Blechteil mal hochladen 🙂

Betreff: Aussparungen am Ende von Biegungen

Andre_Becker — Wed, 06 Jan 2021 12:53:35 GMT

Hallo @sebastian6DVPL

Ich habe das wie folgt gelöst...

Als erstes habe ich ein Auswahlfenster erstellt indem ich auswählen kann welche Enden markiert werden sollen.

Oben / Unten / Links / Rechts in Bezug auf das Koordinatensystem.

Oder wie der Code unten anzeigt...Alle Biegelinien-Enden.

In der Abwicklung eine planare Fläche auswählen

Sub Kantlinien_alle() 'Call Datum Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument Dim oDef As SheetMetalComponentDefinition Set oDef = oDoc.ComponentDefinition Dim oFlatpattern As FlatPattern Set oFlatpattern = oDef.FlatPattern oFlatpattern.Edit Dim oFace As Face Set oFace = ThisApplication.CommandManager.Pick(kPartFacePlanarFilter, "Bitte eine planare Fläche auswählen.") Dim oSketch As sketch Set oSketch = oFlatpattern.Sketches.Add(oFace) oSketch.Edit Dim oTopFaceBendUpEdges As Edges Set oTopFaceBendUpEdges = oFlatpattern.GetEdgesOfType(kBendUpFlatPatternEdge, True) Set oTopFaceBendDownEdges = oFlatpattern.GetEdgesOfType(kBendDownFlatPatternEdge, True) Dim oTG As TransientGeometry Set oTG = ThisApplication.TransientGeometry Dim oEdge As Edge Dim oProjectedEdge As SketchLine For Each oEdge In oTopFaceBendUpEdges Set oProjectedEdge = oSketch.AddByProjectingEntity(oEdge) Call oSketch.SketchCircles.AddByCenterRadius(oTG.CreatePoint2d(oProjectedEdge.Geometry.StartPoint.x, oProjectedEdge.Geometry.StartPoint.Y), 0.05) Call oSketch.SketchCircles.AddByCenterRadius(oTG.CreatePoint2d(oProjectedEdge.Geometry.EndPoint.x, oProjectedEdge.Geometry.EndPoint.Y), 0.05) Next oEdge 'Ab hier For Each oEdge In oTopFaceBendDownEdges Set oProjectedEdge = oSketch.AddByProjectingEntity(oEdge) Call oSketch.SketchCircles.AddByCenterRadius(oTG.CreatePoint2d(oProjectedEdge.Geometry.StartPoint.x, oProjectedEdge.Geometry.StartPoint.Y), 0.05) Call oSketch.SketchCircles.AddByCenterRadius(oTG.CreatePoint2d(oProjectedEdge.Geometry.EndPoint.x, oProjectedEdge.Geometry.EndPoint.Y), 0.05) Next oEdge 'Bis Hier oSketch.ExitEdit Set oProfile = oSketch.Profiles.AddForSolid Dim oCutDefinition As CutDefinition Set oCutDefinition = oFlatpattern.Features.CutFeatures.CreateCutDefinition(oProfile) Call oCutDefinition.SetThroughAllExtent(kNegativeExtentDirection) Dim oCutFeature As CutFeature Set oCutFeature = oFlatpattern.Features.CutFeatures.Add(oCutDefinition) End Sub

Ich hoffe das hilft Dir etwas...

Betreff: Aussparungen am Ende von Biegungen

ca-d.one — Wed, 06 Jan 2021 14:34:09 GMT

Huhu !

Coole Lösung (also find ich )

Respekt !!!

+dirk+

Betreff: Aussparungen am Ende von Biegungen

S_May — Wed, 06 Jan 2021 16:02:13 GMT

sehr cool

Betreff: Aussparungen am Ende von Biegungen

sebastian6DVPL — Thu, 07 Jan 2021 13:36:30 GMT

@S_May

Ich habe die Datei in den Anhang gepackt.

Betreff: Aussparungen am Ende von Biegungen

sebastian6DVPL — Thu, 07 Jan 2021 14:40:28 GMT

Oke, wenn das so klappt wie du das beschrieben hast eine super Sache. Ich werde es mal versuchen wie man das genau eingibt, bei Fragen werde ich mich melden.

Betreff: Aussparungen am Ende von Biegungen

S_May — Thu, 07 Jan 2021 14:41:42 GMT

Hallo @sebastian6DVPL

so kann man das auch lösen ohne das in einem fremden System zu machen.

Betreff: Aussparungen am Ende von Biegungen

sebastian6DVPL — Thu, 07 Jan 2021 15:20:58 GMT

@S_May

@ca-d.one

@Andre_Becker

An die Variante mit den Bohrungen in der Abwicklung zu machen habe ich nie gedacht. Das ist auf jeden Fall schon mal deutlich einfacher wie die Variante die wir sonst immer nehmen! Ich werde das mit dem Automatisieren auch noch mal in einer ruhigen Minute (wahrscheinlich aber eher Stunde oder mehr :D) versuchen, aber grundsätzlich helfen die Bohrungen in der Abwicklung uns vorerst schon mal sehr viel weiter!

Vielen Dank euch allen für die Hilfe!