---

Hallo Freunde,

ich nutze Inventor 2014 und Vault 2014.

Wenn ich von einer Zeichnung eine PDF machen will, nimmt er automatisch die gleiche Nummer. Wenn ich eine Step-Datei erzeugen will, muss ich die Nummer von Hand eingeben, da er eine neue nehmen will. Gibt es eine Möglichkeit, dass das wie bei der PDF funktioniert?

Gruß, Uwe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

VBA oder iLogic.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also keine Lösung? Zumindestens für mich, kann ich beides nicht!
Trotzdem vielen Dank!
Herzlichen Gruß, Uwe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ach Uwe,

dafür gibtŽs schon 1000 Lösungen. Entweder als fertige (kaufbare) Tools oder suche mal im VBA-Forum.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich weiß nicht, was VBA ist, was zum essen oder zum anziehen?
Gruß, Uwe

Also, noch einmal die Frage, kennt jemand einen Weg, wie man beim Erzeugen einer step-Datei erreichen kann, dass der selbe Name der Inventordatei genommen wird?javascript:InsertSMI('  %20');

Was mich wundert, jeder, der Teile zum Laserfritzen mailt, muss eine step erzeugen, weil die sowas haben wollen. Ich kann doch nicht der einzige sein, der das Problem hat mit dem Namen beim Erzeugen einer Datei?

[Diese Nachricht wurde von Xantes am 02. Mrz. 2018 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Uwe

Ich denke auch, dass der Step-Export von Hause aus komfortabler sein könnte. Aber es ist halt so, wie es ist.

Wenn Du dieses VBA-Skript ans laufen kriegst, funktioniert der Step-Export eigentlich ganz gut:

Code:

---

Public Sub ExportToSTEP()
    ' Get the STEP translator Add-In.
    Dim oSTEPTranslator As TranslatorAddIn
    Set oSTEPTranslator = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")

    If oSTEPTranslator Is Nothing Then
        MsgBox "Could not access STEP translator."
        Exit Sub
    End If

    Dim oContext As TranslationContext
    Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
    Dim oOptions As NameValueMap
    Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap
   
    Dim oDoc As Inventor.Document
    Set oDoc = ThisApplication.ActiveDocument
   
    If oSTEPTranslator.HasSaveCopyAsOptions(oDoc, oContext, oOptions) Then
        ' Set application protocol.
        ' 2 = AP 203 - Configuration Controlled Design
        ' 3 = AP 214 - Automotive Design
        oOptions.Value("ApplicationProtocolType") = 3

        ' Other options...
        oOptions.Value("Author") = Application.UserName
        'oOptions.Value("Authorization") = ""
        'oOptions.Value("Description") = ""
        'oOptions.Value("Organization") = ""

        oContext.Type = kFileBrowseIOMechanism

        Dim oData As DataMedium
        Set oData = ThisApplication.TransientObjects.CreateDataMedium
       
        ' Calculate FileName
        Dim sExportFullFileName As String
        Dim sRev As String
        sRev = Property_lesen(oDoc, "Revision Number")
        If sRev = "" Then sRev = "0"
        sExportFullFileName = VBA.Left(oDoc.FullFileName, VBA.Len(oDoc.FullFileName) - 0)
        sExportFullFileName = sExportFullFileName & "[" & sRev & "]"
        sExportFullFileName = sExportFullFileName & Property_lesen(oDoc, "Title")
        sExportFullFileName = sExportFullFileName & ".stp"
        'Debug.Print sExportFullFileName
        'Debug.Print FileName

        oData.FileName = sExportFullFileName
        Call oSTEPTranslator.SaveCopyAs(oDoc, oContext, oOptions, oData)
    End If
End Sub

Public Function Property_lesen(oDoc As Document, sPropName As String) As Variant
' Liest eine Property.
' Ist die Property nicht vorhanden, so wird "" zurückgegeben.

    Property_lesen = ""

If oDoc Is Nothing Then Return

    ' Obtain the PropertySets collection object
    Dim oPropSets As PropertySets
    Set oPropSets = oDoc.PropertySets

    Dim oProp As Property
   
    ' Iterate through all the PropertySets one by one using for loop
    Dim oPropSet As PropertySet
    For Each oPropSet In oPropSets
   
        For Each oProp In oPropSet
            'Debug.Print oProp.Name
            If oProp.name = sPropName Then
                Property_lesen = oProp.Value
                Exit For
            End If
        Next
       
    Next

End Function

---

Der Dateiname wird generiert aus dem Dateinamen der Inventor-Datei, der Revisionsnummer in eckigen Klammern und (damit man die Datei besser identifizieren kann dem iProperty "Title"..

Hoffe das hilft Dir.

------------------
mit freundlichem Gruß
aus der Burggemeinde Brüggen
Lothar Boekels

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Lothar, mal eine Frage dazu: Es ist ja nicht einfach möglich, ein STEP von einer Posrep zu erstellen.

Wäre eine VBA-Lösung denkbar, die eine temporäre Baugruppe von der gewünschten Posrep erstellt, und diese dann als STEP exportiert?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Lothar,

vielen Dank für Deine Mühe, aber wie ich oben schon schrieb, ich habe Null-Ahnung von VBA!
Herzlichen Gruß, Uwe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Fangen wir doch noch mal ganz oben neu an:

Zitat:

---

ich nutze Inventor 2014 und Vault 2014.
Wenn ich von einer Zeichnung eine PDF machen will, nimmt er automatisch die gleiche Nummer. Wenn ich eine Step-Datei erzeugen will, muss ich die Nummer von Hand eingeben, da er eine neue nehmen will.

---

Wer nimmt bei pdf die gleiche, bei step aber eine neue? Inventor tuts nich, der nimmt auch bei step die gleiche. Vault vielleicht? Welche vault ausbaustufe? Is der nummerngenerator von vault aktiv? Vielleicht is es ja eine frage fürs vault forum.

------------------
himmelblau

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Uwe,

keine Angst vor VBA. Das ist alles recht überschaubar.

Hier eine kleine Anleitung für Dich:

Im Inventor drücke mal die Tasten "ALT"+F11", da kommst Du in den VBA Editor. Das ist von der Sache erst mal eine Textbearbeitung.

In dem Fenster links oben mit der Überschrift Projekt gehst Du in das Anwendungsprojekt in den Ordner Module und öffnest diesen.
Mit einem Rechtsklick auf die Überschrift "Module" kannst du ein neues Modul erstellen. Gib den einfach einen Namen, der dir gefällt.
Auf der rechts Seite ist dann ein leeres Fenster, in das Du den Text aus dem Beitrag oben reinkopierst.
Mit "Strg"+"s" speichern.

So - schon fast gewonnen.

Jetzt kennt dein Inventor die Funktion, die das aktuelle Modell als Step-Datei speichert. Du musst es nur noch laufen lassen.
Wenn Du noch im VBA-Editor bist, kannst Du - der Cursor sollte im ersten Teil der Textdatei stehen - mit "F5" oder dem "Play"-Symbol aus dem Werkzeugkasten den Export starten.
Aus dem Inventor geht das auch:
"Extras" - Makros" - "Makros in" einstellen auf "Anwendungsprojekt" und Makro oben auswählen dann "Run" drücken.

Wenn du es häufig benötigst, kannst Du das Makro auch in die Werkzeugleiste "Extras" einfügen - mit "Anpassen"

------------------
mit freundlichem Gruß
aus der Burggemeinde Brüggen
Lothar Boekels

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Walter

Wenn Du iM Inventor die BG auf die entsprechende gewünschte Posistion gebracht hast, kannst Du ohne das zu speichern direkt den Export starten. Es wird die aktuelle Geometrie so exportiert, wie du sie eingestellt hast.

------------------
mit freundlichem Gruß
aus der Burggemeinde Brüggen
Lothar Boekels

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP