Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Step - und PDF-Export in explizites Verzeichnis - leicht änderbar für andere Typen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Step - und PDF-Export in explizites Verzeichnis - leicht änderbar für andere Typen (942 mal gelesen)
Schattenbacke
Mitglied
Dipl.-Ing (FH)


Sehen Sie sich das Profil von Schattenbacke an!   Senden Sie eine Private Message an Schattenbacke  Schreiben Sie einen Gästebucheintrag für Schattenbacke

Beiträge: 114
Registriert: 28.01.2009

Dell Precision T3500
Productstream Professional Easy 2011
Autodesk Inventor 2016

erstellt am: 04. Jan. 2017 14:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz