---

PDF01.JPG PDF02.JPG PDF03.JPG

Hallo zusammen,

ich habe mir in der Zeichgnungsumgebung einen Benutzerbefehl für den PDF-Export erstellt.
Das funktioniert gut, jedoch muss ich vor / beim Speichern den Index noch von Hand jedesmal eingeben.
Gibt es eine Möglichkeit, diesen aus den Bauteilen / Baugruppen, im Feld "Revisionsnummer" eingegtragenen aktuellen Index beim Speichern der PDF im Explorer mit anhängen zu lassen ?

Danke vorab und Grüßle.

[Diese Nachricht wurde von Bonny Pfotenpuff am 12. Dez. 2023 editiert.]

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

---

Moin

Und wir dürfen raten wie dein vorhandener Code aussieht?
Wenn du die Revision mit drin haben willst, musst du den Inhalt des iProps auslesen und in den String deines Dateinamens einfügen. Dazu ist es praktisch, wenn man die einzelnen Bestandteile (Pfad, Dateiname, Erweiterung, Revision) separat in Variablen hält. Dann setzt man den Gesamtstring so zusammen, wie man es gerade benötigt.

Code:

---

    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

    Dim sPath As String
    sPath = "C:\Temp"
   
    Dim sFileName As String
    sFileName = "Name"
   
    Dim sExt As String
    sExt = ".pdf"
   
   
    Dim oPropSet As PropertySet
    Set oPropSet = oDrawDoc.PropertySets.Item("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}")
   
    Dim oRevProp As Property
    Set oRevProp = oPropSet.Item("Revision Number")
   
    Dim sFullFileName As String
   
    If Not oRevProp.Value = "" Then
        sFullFileName = sPath & "\" & sFileName & "-" & oRevProp.Value & sExt
    Else
        sFullFileName = sPath & "\" & sFileName & sExt
    End If
   
    MsgBox (sFullFileName)

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Tach,

ich hab mir diesen Befehl aus der Menüleiste "Benutzerbehele anpassen" geholt...  ...nix Code, dessen bin ich leider nicht mächtig.

Grütziwau

[Diese Nachricht wurde von Bonny Pfotenpuff am 12. Dez. 2023 editiert.]

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

---

Moin

Aso, du hast den Standardbefehl genommen. Das hab ich falsch verstanden. Entschuldige bitte.
Der Standardbefehl läßt sich nicht so leicht modifizieren. Da wirst du um ein Makro nicht herum kommen.

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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