---

Moin!

Ich habe mal unser Skript, was wir mal für STP-Export angelegt haben etwas abgeändert, so dass wir auch PDFs damit speichern können.

Hierfür kann ein bestimmter Ordner im User-Verzeichnis angegeben werden.

Vielleicht kann es jemand gebrauchen?!

Bei uns wird unsere iProperty "Dateiname ausgelesen"

Code:

---

Option Explicit

' Set target path
Const sDir_STEP = "\Desktop\PDF_STEP\"

Sub STEP()

' Set reference to active document.
Dim oDoc As Inventor.Document
Set oDoc = ThisApplication.ActiveDocument

' Check the Document type is an assembly or part
If (oDoc.DocumentType <> kAssemblyDocumentObject And oDoc.DocumentType <> kPartDocumentObject) Then
    MsgBox "Error: Document type is not an assembly/part"
    Set oDoc = Nothing
    Exit Sub
End If

' Get document's full file name
Dim sFName As String
sFName = oDoc.PropertySets("Inventor User Defined Properties").Item("Dateiname").Value
sFName = Environ("USERPROFILE") & sDir_STEP & sFName
sFName = sFName & ".stp"

' Push the filename onto the Inventor clipboard
Call ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent, sFName)

' Start the Save Copy As command. The file extension decides the file type
Call ThisApplication.CommandManager.StartCommand(kFileSaveCopyAsCommand)

Set oDoc = Nothing

End Sub

Sub PDF()

' Set reference to active document.
Dim oDoc As Inventor.Document
Set oDoc = ThisApplication.ActiveDocument

' Check the Document type is a drawing
If (oDoc.DocumentType <> kDrawingDocumentObject) Then
    MsgBox "Error: Document type is not a drawing"
    Set oDoc = Nothing
    Exit Sub
End If

' Get document's full file name
Dim sFName As String
sFName = oDoc.PropertySets("Inventor User Defined Properties").Item("Dateiname").Value
sFName = Environ("USERPROFILE") & sDir_STEP & sFName
sFName = sFName & ".pdf"

' Push the filename onto the Inventor clipboard
Call ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent, sFName)

' Start the Save Copy As command. The file extension decides the file type
Call ThisApplication.CommandManager.StartCommand(kFileSaveCopyAsCommand)

Set oDoc = Nothing

End Sub

---

[Diese Nachricht wurde von Schattenbacke am 04. Jan. 2017 editiert.]

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