---

Hallo zusammen,

für ein Speichernmakro welches diverse Eigenschaften kontroliert (unter anderem auch die Blattvorlagenversion überwacht) und einträgt. Nun habe ich ein Problem mit dem auslesen der Pfadangabe für die Blattformate in den Systemeinstellungen. Nachfolgendes habe ich mir von dem Makro29 auf Stefans Seite kopiert, eingefügt und anpassen wollen. ( Hallo Stefan)
Da das Makro an unterschiedlichen Standorten eingesetzt wird und die Systemoptionen somit auch nicht immer gleich sind, ist es sinn- und Zweckvoll diesen Pfad nicht fest zu hinterlegen wie im Makro29 von Stefan.

In dem nun folgenden Auschnitt aus dem Quellcode wird allerdings die Angabe nicht ausgelesen und bleibt leer. Irgendwie bin ich Blind und weis nicht mehr wo ich ansetzen soll. Mit der festen Pfadangabe funktioniert es tadellos.

--------
Public Enum swUserPreferenceStringValue_e
        swFileLocationsSheetFormat = 7
        swMaterialPropertyCrosshatchPattern = 13
End Enum
--------

Dim swApp As Object
Dim Model As Object
Dim sheetformatpath(12) As String
Dim sheetformatdir As String
   
    Set swApp = CreateObject("SldWorks.Application")
    swApp.Visible = True
    Set Model = swApp.ActiveDoc
   
    sheetformatdir = Model.GetUserPreferenceStringValue(swFileLocationsSheetFormat)
    'sheetformatdir = "G:\Allgemeines-Konstruktion\Anwendungen\SWX-Tools\Blattformate\"
   
    sheetformatpath(7) = sheetformatdir & "temp_a4v.slddrt"
    sheetformatpath(8) = sheetformatdir & "temp_a3.slddrt"
    sheetformatpath(9) = sheetformatdir & "temp_a2.slddrt"
    sheetformatpath(10) = sheetformatdir & "temp_a1.slddrt"
    sheetformatpath(11) = sheetformatdir & "temp_a0.slddrt"
    sheetformatpath(12) = sheetformatdir & "blank.slddrt"

------

Hoffentlich könnt ihr mir helfen.

Gruß Ralf

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

---

Hallo Ralf,

Es handelt sich dabei um eine Systemoption und nicht um eine Dokumentoption.
Folgender Befehl führt dehalb zum Ziel:

Code:

---

sheetformatdir = _ swApp.GetUserPreferenceStringValue(swFileLocationsSheetFormat)

---

------------------
Mfg Daniel

SolidWorks macht schnell abhängig, fangen Sie gar nicht erst an!
----------------------------------------------
Wir machen Sie fit für die Zukunft, damit Sie Kosten sparen und SolidWorks optimieren!

SolidWorks API Programmierung; Schuler Design Automation GmbH |      kontakt@schuler-da.de 

[Diese Nachricht wurde von tbd am 20. Feb. 2007 editiert.]

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

---

Hallo tbd

kurzer Hinweis und es funzt. 

Danke.

Gruß Ralf

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