---

Hallo Liebe Forum User,
für unsere Bohranlage müssen wir öfters Modelle (.ipt's) im bestimmten Speicherort im Step Format ablegen. Dazu müssen wir jedes mal auf "Datei Kopie speichern unter" gehen und den ganzen Pfad durchklicken, was bei 30-40 Teilen etwas umständlich ist.
Die Idee von mir ist: einen Button zu erstellen und den mit Makro belegen. Praktisch eine
One-Klick-Lösung, bei der eventuell Speicherfenster aufgeht, wo Pfad, Format und im Idealfall Artikelnummer vom Originalteil schon eingetragen ist.
Verwendet sowas schon jemand?
Wie würde das Befehl dann aussehen ?
Wäre ganz dankbar für eure Tipps.

P.S. Suche im Forum ergab leider keine Ergebnisse...

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

---

kuckst Du unter:

Inventor ?
Hilfe Programmierung / API Hilfe
Sample Programms
Translators
Export
Export to Step

Da steht eigentlich alles bis auf die Namensfestlegung.

------------------
mit freundlichem Gruß
aus Mönchengladbach
Lothar Boekels

-----------------------------------------------------
Wir unterstützen die Arbeit der
Rettungshundestaffel des DRK in Viersen

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

---

' Get the STEP translator Add-In.
Dim oSTEPTranslator As TranslatorAddIn
oSTEPTranslator = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")
Dim oContext As TranslationContext
oContext = ThisApplication.TransientObjects.CreateTranslationContext
Dim oOptions As NameValueMap
oOptions = ThisApplication.TransientObjects.CreateNameValueMap

If oSTEPTranslator.HasSaveCopyAsOptions(ThisApplication.ActiveDocument, 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") = ""
    'oOptions.Value("Authorization") = ""
    'oOptions.Value("Description") = ""
    'oOptions.Value("Organization") = ""
    oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
    Dim oData As DataMedium
    oData = ThisApplication.TransientObjects.CreateDataMedium
Ordner=Right(Left(ThisDoc.FileName(False),4),2)
    oData.FileName = "\\Hier Pfad eintragen" & Ordner & " step\" & ThisDoc.FileName(False) & ".stp"
oSTEPTranslator.SaveCopyAs(ThisApplication.ActiveDocument, oContext, oOptions, oData)
MessageBox.Show("Gespeichert in: " & oData.FileName, "STP")

End If

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

---

Danke für die schnellen Antworten !
@ Duc-men
oSTEPTranslator.SaveCopyAs(ThisApplication.ActiveDocument, oContext, oOptions, oData)
MessageBox.Show("Gespeichert in: " & oData.FileName, "STP")

wird bei mir rot angezeigt unf somit funzt nicht 

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

---

Kann es sein, dass du was vergessen hast?

Code:

---

Call oSTEPTranslator.SaveCopyAs(ThisApplication.ActiveDocument, oContext, oOptions, oData)

---

------------------
MFG

Chris

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

---

Da hat sich etwas html während copy/paste in den Code eingeschlichen. Am besten den Code zuerst in ein Texteditor kopieren um die Formatierungen los zu werden, und dann in den VBA Editor. Meistens sind es irgendwelche Zeilenumbrüche - könntest du in VBA editor auch versuchen zu löschen.

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools
FX64 LambdaSpect - Lichtsimulation mit Autodesk Inventor

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

---

fuf.jpg

Mach das nicht so kompliziert.
passt einfach eure Projektdatei an und das speichern ist ein schneller Vorgang

------------------
************************************
 

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

---

MessageBox.Show("Gespeichert in: " & oData.FileName, "STP")

Dies ist nur damit mann sieht wo es gespeichert wird.
Dies könnte mann auch weg lassen.

Versuche es dann noch mal.
Bei mir funktioniert es einwandfrei.

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

---

Danke sehr für eure Tipps !
Die Sache mit Projektdatei werde ich auch ausprobieren. Weiß aber nicht ob das funktioniert, weil der Speicherordner für STEP-Dateien "außerhalb" der Projektdatei liegt.

@Duc-men:
Die Zeile "MessageBox..." habe ich probiert wegzulassen, funzt aber immer noch nicht.
Was steht bei dir vor und nach dem Code ?
Sowas wie Sub... und End Sub ?
In den nächsten Tagen wird ein Mitarbeiter der EDV sich das ansehen. Mal sehen was er dazu sagen wird...

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

---

versuche es mal hiermit,

' Get the STEP translator Add-In.
Dim oSTEPTranslator As TranslatorAddIn
oSTEPTranslator = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")
Dim oContext As TranslationContext
oContext = ThisApplication.TransientObjects.CreateTranslationContext
Dim oOptions As NameValueMap
oOptions = ThisApplication.TransientObjects.CreateNameValueMap

If oSTEPTranslator.HasSaveCopyAsOptions(ThisApplication.ActiveDocument, 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") = ""
    'oOptions.Value("Authorization") = ""
    'oOptions.Value("Description") = ""
    'oOptions.Value("Organization") = ""
    oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
    Dim oData As DataMedium
    oData = ThisApplication.TransientObjects.CreateDataMedium
    oData.FileName = ThisDoc.PathAndFileName(False) & ".stp"
oSTEPTranslator.SaveCopyAs(ThisApplication.ActiveDocument, oContext, oOptions, oData)
End If

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

---

Wegen
"Die Sache mit Projektdatei werde ich auch ausprobieren. Weiß aber nicht ob das funktioniert, weil der Speicherordner für STEP-Dateien "außerhalb" der Projektdatei liegt."

Das klappt wenn man weiss wie 
Erstelle in deinem Projektstammverzeichniss einen neuen Ordner z.B.
"STEP_EXTERN"
Diesen fügst du also "Häufig genutzter Ordner" hinzu
In dem nun eine Verknüpfung zum eigentlichen Zielordner
//Freigabe/Externe_Daten/STEP

So nun sieht der Anwender links den Ordner darin die Verknüpfung also genau 2 Klicks

------------------
************************************
 

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