---

Dateieigenschaften.JPG

Hallo,
irgend wie steh ich auf dem Schlauch:
Ich möchte per Macro die Dateieigenschaft Material, in all unseren Modellen füllen lassen.
Einnen bestimmten Text kann ich ja ohne Probleme in die Eigenschaften schreiben Debug.Print ModelDoc.AddCustomInfo3(Config, Prop, swCustomInfoText, "xxxx"), wie kann ich aber die Variable für das SWX-Material einfügen, damit immer des entsprechende Material in den Dateieigenschaften steht?

------------------
Grüße aus dem Allgäu
Conrad

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

---

Hallo,
schau mal darüber:

Code:

---

    Dim swApp          As SldWorks.SldWorks
    Dim swModel        As SldWorks.ModelDoc2 
    Dim Configuration  As SldWorks.Configuration          'aktive Konfiguration der Komponente   
    Dim Config          As String                          'Konfiguration der Komponente
    Dim Material        As String                          'zum Material auslesen
    Dim dbs            As Variant          'zum Material auslesen
    Dim sMatDB          As String          'zum Material auslesen

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set Configuration = swModel.GetActiveConfiguration()        'aktive Konfiguration der Komponente
    Config = Configuration.Name                                'Konfiguration der Komponente
    dbs = swApp.GetMaterialDatabases        'zum Material auslesen
                                           

'das Material der Konfig auslesen
        If (swModel.GetType = swDocPART) Then
            Material = swModel.GetMaterialPropertyName2(Config, sMatDB)
        End If

---

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Dateieigenschaften.JPG

Hallo Andi,
vielen Dank für die Hilfe.
Ich hab mich leider nicht ganz deutlich ausgedrückt.
Aber was ich suche, ist:
Wie kann ich die SWX-Eigenschaft "Material" (Siehe Bild) in die Dateieigenschaften schreiben, sodaß sich SWX das Material selber "heraussucht".
So bräuchte ich nur einmal das Makro über unsere Teile laufen lassen und den Wert noch in die Vorlagen eintragen. Damit wären die Dateieigenschaften ab diesem Zeitpunkt immer gefüllt!
So kann ich in der Zeichnung den Werkstoff über die Variable $PRPSHEET:"Material" im Schriftfeld eintragen lassen.
Grund darür ist die Umstellung auf ein neues ERP/EDM System.

------------------
Grüße aus dem Allgäu
Conrad

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

---

Zitat:

---

Original erstellt von Conrad:
Debug.Print ModelDoc.AddCustomInfo3(Config, Prop, swCustomInfoText, "xxxx")

---

Config = ""
Prop = Material
swCustomInfoText (= 30)
"xxxx" = "SW-Material@Dateiname.SLDPRT" z.B. "SW-Material@9570001916T02.SLDPRT"
Jetzt hab ichs Problem auch verstanden 

"xxxx" = Chr$(34) & "SW-Material@" & "Dateiname.SLDPRT" & Chr$(34) z.B. Chr$(34) & "SW-Material@" & "9570001916T02.SLDPRT" & Chr$(34)

HTH
Ralf

------------------

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

---

Super!
Danke!
Ganau das wars

------------------
Grüße aus dem Allgäu
Conrad

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