Inventor iLogic: STEP einer Abwicklung exportieren? -So geht’s

Hallo liebe Inventor Anwender,

eigentlich kann man aus der Abwicklung eines Inventor Blechteils sehr komfortabel eine DXF oder SAT Datei abspeichern. Sie erinnern sich evtl., dass habe ich auch schon mit iLogic automatisier. 🙂 Für viele Laser-, Plasma- oder Wasserstrahl- Schneidemaschinen reicht das.

cuting sheet metal

Doch in letzter Zeit werde ich immer mal wieder gefragt:
„Wie kann man eine STEP-Datei aus der Inventor Abwicklung erstellen?“

Mit den Standardfunktionen von Inventor geht das nur, wenn man ein Blech mit der Abwickeln-Funktion aus der Bereich „Ändern“ abgewickelt. Allerdings geht das nur wenn man eine stationäre Fläche zur verfügung hat, bei einem Kegel geht das zum Beispiel nicht.

Aus diesem Grunde habe ich etwas Zeit investiert und eine passende iLogic erstellt, die den Process automatisiert. Also ein modeliertes Blechteil abwickelt, eine SAT abspeichert, die Datei direkt wieder lädt, und anschließend die gewünschte STEP exportiert.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
'Diese Regel erstellt eine STEP-Datei aus der Abwickung eines Blechteils
'Die STEP-Datei erhält den selben Namen wie die Bauteildatei und wird in C:\Temp gespeichert
'Position der Bauteil-Datei
ThisFile = ThisDoc.PathAndFileName(False)
'Hier wird die STEP-Datei gespeichert
SETFilePath = "C:\Temp"
If ThisApplication.ActiveDocument.DocumentType <> kPartDocumentObject Then
    MessageBox.Show ("Bitte öffnen Sie ein Blech-Bauteil", "iLogic-Abbruch")
End If
Try
    Dim oDoc As PartDocument
    oDoc = ThisApplication.ActiveDocument
    Dim oCompDef As SheetMetalComponentDefinition
    oCompDef = oDoc.ComponentDefinition
    Dim oDataIO As DataIO
    oDataIO = oDoc.ComponentDefinition.DataIO
    Dim sOut As String
    sOut = "FLAT PATTERN SAT"
    'Abwickling wird erstellt wenn noch nicht vorhanden
    If oCompDef.HasFlatPattern = False Then
        oCompDef.Unfold
    Else
        oCompDef.FlatPattern.Edit
    End If
    'Die SAT-Datei wird gespeichert
    oDataIO.WriteDataToFile(sOut, ThisFile & ".sat")
    Dim oSMDef As SheetMetalComponentDefinition
    oSMDef = oDoc.ComponentDefinition
    oSMDef.FlatPattern.ExitEdit
    'SAT wird zu STEP-Konvertiert (im Hintergrund)
    satDoc = ThisApplication.Documents.Open(ThisFile & ".sat", False)
    satDoc.SaveAs(SETFilePath & "" & ThisDoc.FileName(False)& ".step", True)
    satDoc.Close()
    'SAT-Datei wird gelöscht
    My.Computer.FileSystem.DeleteFile(ThisFile & ".sat")
    MessageBox.Show ("STEP wurde erstellt", "iLogic")
Catch
End Try

Hier die Regel als Download

Schreiben Sie mir, wenn Sie Fragen haben! – Ich helfe Ihnen gerne.

Mit freundlichen Grüßen,
Helge Brettschneider

%d Bloggern gefällt das: