---

SpeichernAlsPDF.txt

Hallo zusammen

Ich habe leider keine Ahnung von Makroprogrammierung. Das angehängt Makro habe ich mir aus verschiedenen Makros selbst "zusammengebastelt". 

Dieses funktioniert auch wunderbar. Der Dateiname der PDF Datei entspricht dem Dateinamen der Zeichnungsdatei.
Ich hätte aber lieber das der Dateiname aus den beiden benutzerdefinierten Eigenschaften "Zeichnung" und "Index" zusammengestellt wird. Also "Zeichnung.Index.PDF"

Kann mir da jemand weiterhelfen?

Danke und Gruss

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

---

Code:

---

Option Explicit

Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swModelDocExt As ModelDocExtension
    Dim swPropManager As CustomPropertyManager
    Dim propVal As String
    Dim resolvedVal As String
    Dim wasResolved As Boolean
    Dim success As Boolean
   
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
    Set swPropManager = swModelDocExt.CustomPropertyManager("")
   
    success = swPropManager.Get6("Index", False, propVal, resolvedVal, wasResolved, False)
   
    Debug.Print (propVal)
End Sub

---

Hilft dir das weiter? Ist ein einfaches Beispiel um eine Eigenschaft aus der Standardkonfiguration auszulesen. Es werden allerdings keine Fehler abgefangen!

Hier ist ein sehr gutes deutsches Tutorial über VBA Programmmierung in SWX https://www.youtube.com/channel/UCIHl3el5Ie3PJNSne53fbtA

[Diese Nachricht wurde von R3vo am 17. Dez. 2021 editiert.]

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

---

Danke @R3vo

Ich werde mir das über die Tage mal anschauen.

Gruss Tom

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