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