---

Guten Tag, liebe Gemeinde!

Ich wollte nur mal eine API/VBA-Frage in die Runde werfen:
Wie kann ich die Dateieigenschaften "Evaluierter Wert" auslesen?
Die Eigenschaft "Wert/Textausdruck" habe ich bereits...

Was ich damit will, ist die geniale Stückliste, von Andreas Müller, für mich "erweitern"! Da für mich der "Wert/Textausdruck" ungüstig ist!

Vielen Dank im Voraus!
Gilu.

------------------
~~~you can't change the world but you can leave a dent~~~
------------------

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

---

Hallo Gilu,

das machst du mit retval = ModelDoc2.GetCustomInfoValue ( configuration, FieldName ), da wird laut API Hilfe der Wert und nicht das, was drin geschrieben ist, zurückgegeben.

Ciao,
Stefan

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

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

---

Vielen Dank!

Jetzt muss ich nur noch herausfinden, wieso das Progi ein Objekt braucht, beim Aktualisieren der Stüli...! (nach abändern der Abfrageroutine der Eigenschaften)
Daran werde ich wohl noch ein wenig zu beissen haben! 

Aussert, dass jemand gleich weiss, was ich hier tun muss:
Diesen Code hier,

Code:

---

ModelDoc2.GetCustomInfoValue ( configuration, FieldName )

---

in den hier einfügen/abändern

Code:

---

Private Sub Eigenschaften_lesen(Modeldoc As Object, Konfiguration As String)

Dim i As Integer

For i = 1 To Anzahl_Eigenschaften
    If Eigenschaften(i, 2) = "B" Or Eigenschaften(i, 2) = "b" Then
    ' benutzerdefinierte Eigenschaft lesen
       
'''''    ' LCA **************************************
'''''    ' die Eigenschaft Stückzahl (1) und Baugruppe (14) werden direkt aus dem
'''''    ' Modell gelesen und nicht aus bestehenden Werten-> überspringen
'''''    If i = 1 Or i = 14 Then
'''''        i = i + 1
'''''    End If
'''''    ' LCA **************************************
       
        zelle_GO.Offset(aktZeileNr - 7, i).Value = Modeldoc.CustomInfoValue(Eigenschaften(i, 1))
    End If
    If Eigenschaften(i, 2) = "K" Or Eigenschaften(i, 2) = "k" Then
        'konfigurationsspezifische Eigenschaft lesen
        zelle_GO.Offset(aktZeileNr - 7, i).Value = Modeldoc.CustomInfo2(Konfiguration, Eigenschaften(i, 1))
    End If
Next
End Sub

---

------------------
~~~you can't change the world but you can leave a dent~~~
------------------

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

---

Hi Gilu.

Ich gehe mal davon aus, dass Du die V7.1 "udatest"  . Mit Stefan's Hinweis kann ich Dir nun auch weiterhelfen. Mit folgendem Code sollte es eigentlich gehen:

Private Sub Eigenschaften_lesen(Modeldoc As Object, Konfiguration As String)
Dim i As Integer

For i = 1 To Anzahl_Eigenschaften
    If Eigenschaften(i, 2) = "B" Or Eigenschaften(i, 2) = "b" Then
    ' benutzerdefinierte Eigenschaft lesen
        zelle_GO.Offset(aktZeileNr - 7, i).Value = Modeldoc.GetCustomInfoValue("",Eigenschaften(i, 1))
    End If
    If Eigenschaften(i, 2) = "K" Or Eigenschaften(i, 2) = "k" Then
        'konfigurationsspezifische Eigenschaft lesen
        zelle_GO.Offset(aktZeileNr - 7, i).Value = Modeldoc.GetCustomInfoValue(Konfiguration, Eigenschaften(i, 1))
    End If
Next
End Sub

------------------
Gruss
Andreas
A+E Müller AG

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

---

"wäutklass"!!!!
Jetzt funktioniert das Tool 1A!!!
Genau das habe ich gebraucht!
Vielen Dank für Eure Hilfe!!

------------------
~~~you can't change the world but you can leave a dent~~~
------------------

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