---

Guten Morgen zusammen!

Ich habe mir das Schriftfeld-Tool von Stefan nach unseren Bedürfnissen angepasst und möchte jetzt noch das Material eines Parts auslesen.
Habe dazu eine Textbox (txtSfMaterial) und folgende Prozedur eingefügt:

--------------------------------------------------------------------------------
Sub Material()

    Dim swApp As Object
    Dim Model As Object
       
    Set swApp = CreateObject("SldWorks.Application")
    swApp.Visible = True
    Set Model = swApp.activedoc
   
    If Model Is swDocPART Then
   
    Dim retval
         
    retval = Model.getCustomInfoValue("Material")
   
    txtSfMaterial.Text = retval
   
    End If
   
End Sub
--------------------------------------------------------------------------------

Eine Fehlermeldung kriege ich nicht, allerdings wird meine Textbox auch nicht mit dem zugewiesenen Material ausgefüllt.
Habe mir diese Prozedur aus verschiedenen Forumsbeiträgen zusammengereimt. Ich hoffe, es ist nicht die ganz große Katastrophe...!

Könnte mir evtl. jemand beratend zur Seite stehen?

Besten Dank!
Mfg, Sebastian

------------------
Einem Eisberg, der nur die Spitze zeigt, fehlt Selbstvertrauen...

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

---

willst Du das Material aus einer Dateieigenschaft auslesen, also händisch befüllt oder aus dem Materialfeld im Featurbaum?

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

---

20655_dateiegenschaft-material.png

Hallo Sebastian,

hast du denn deinem Modell auch die Dateieigenschaft "Material" verpasst und diese mit dem SolidWorks Material verheiratet?

Und wie hast du deine Routine in den Gesamtzusammenhang eingebunden, eine Schriftfeldausfüllprogramm wird ja gewöhnlich in einer Zeichnung genutzt, deine Routine geht aber davon aus, dass das Modell aktiv ist und ändert sonst nichts an dem Textfeld ...

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

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

---

So sollte es gehen:

Code:

---

Sub Material()

    Dim swApp As Object
    Dim swModel As Object
     
    Set swApp = CreateObject("SldWorks.Application")
    swApp.Visible = True
    Set swModel = swApp.ActiveDoc
   
    Dim typ As Integer
    typ = swModel.GetType() 'Prüfen, ob ein Teil geöffnet ist
    If typ <> swDocPART Then
        'ende
        Else
            Dim MatValue As String
            MatValue = swModel.GetCustomInfoValue("", "Material") ' Konfigurations-String einfach leer lassen
            txtSfMaterial.Text = MatValue
    End If
End Sub

---

------------------
 
http://www.worldcommunitygrid.org

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

---

@pressplayontape und stefan:
Es geht nur um das Auslesen der Dateieigenschaft "Material", die ich vorher im Featurebaum über 'Material bearbeiten' zugewiesen habe.
In der Schriftfeld-Tool-Umgebung will ich also das Material nur sehen, nicht ändern.

@GDawg:
Danke. Aber auch damit bleibt das Feld leer.

------------------
Einem Eisberg, der nur die Spitze zeigt, fehlt Selbstvertrauen...

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

---

Zitat:

---

Original erstellt von Seminger:
Danke. Aber auch damit bleibt das Feld leer.

---

Versuche es mal so:
FORMULARNAME.FORMULARFELD.text=MatValue
FORMULARNAME.txtSfMaterial.text=MatValue

------------------
 
http://www.worldcommunitygrid.org

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

---

Hallo Sebastian,

ah so, in deiner Funktion fragst du eine Dateieigenschaft namens "Material" ab, nicht das Material des Parts. Das geht aber auch, schu mal in der API nach dem Beispiel "Get Material Example (VBA)", der Schlüsselbefehl ist IPartDoc::GetMaterialPropertyName2

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

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

---

@GDawg: Leider auch nicht.

@Stefan:
Wenn ich im Featurebaum ein Material zugewiesen habe, ist das doch das Material des Parts, oder nicht?
Und das hätte ich gern im Tool sichtbar.
Wenn ich über Datei -> Eigenschaften gehe steht dort:

Eigenschaftsname: Material
Wert/Textausdruck: "SW-Material@Teil1.sldprt"
Evaluierter Wert: 1.0038

Und die 1.0038 möchte ich auslesen.

------------------
Einem Eisberg, der nur die Spitze zeigt, fehlt Selbstvertrauen...

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

---

Kannst Du mal das Makro hochladen?
Oder wenigsten den Teil (inklusive Formular), wo das Material in das Formular eingefüllt werden muss?

Weiter Möglichkeit, was Stefan sagt:

Code:

---

    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Dim swPart As SldWorks.PartDoc
    Dim mat As String
    Dim sMatDB As String
    mat = swModel .GetMaterialPropertyName2("", sMatDB)
    Debug.Print "  Material = " & mat & " (" & sMatDB & ")"

---

------------------
 
http://www.worldcommunitygrid.org

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

---

Zitat:

---

Original erstellt von Seminger:
Eine Fehlermeldung kriege ich nicht

---

Bist Du schon mal im Debug-Modus (F8) Dein Makro durchgegangen?
Kannst Du im Debug-Modus den Materialwert in den lokalen Variablen (Ansicht, Lokalfenster) sehen?
Wenn ich mir Dein erstes Makro so ansehe, kommst Du nie in die IF-Schleife rein. Daher kein (Fehler-)Meldung.

------------------
 
http://www.worldcommunitygrid.org

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

---

hi,

ich nutze auch Stefans Makro und lese den "Evaluierten Wert" mit

txtSfWEB_Material = Model.GetCustomInfoValue("", "WEB_Material_DIN_Typ")

aus.

geht ohne Probleme.........

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

---

Mahlzeit!

Es läuft....
So ähnlich wie Joshua63 es macht, hatte ich es auch erst.
Hatte aber in der Klammer ("Material") stehen und nicht ("", Material").
Dann kann ich mir die extra Prozedur ja sparen...

Trotzdem Danke an Euch alle für die Vorschläge und Mühe! 
Schönen Tag noch!

Mfg, Sebastian

------------------
Einem Eisberg, der nur die Spitze zeigt, fehlt Selbstvertrauen...

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

---

Material_auslesen.zip

Hallo Sebastian,
ich bin gerade dabei mich in das Thema Makros einzuarbeiten und nutze jeden Beitrag etwas neues zu lernen.
Ich habe mal ein wenig rumkopiert(geklaut) und dabei etwas gelernt.
Es hat bei mir geklappt, auch wenn ich noch nicht weiß wozu ich es gebrauchen kann.
1.Dateieigenschaften nach Stefans Anweisung geändert
2. GDawg Makro etwas abgeändert

MfG
Ralf

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