---

watch_UserRefProperties.JPG

Hallo an alle Hilfswilligen!!!

Ich möchte die benutzer definierten Properties auslesen. Dazu verwende ich erstens folgenden Algorithmus zum Analysieren der Baugruppe:
*****************************************
Function Analysieren(P As Product)

Dim PP As Products
Dim i As Integer

Call Schreiben(P, iArZ)

Set PP = P.Products
i = 0
Do While i < PP.Count
   i = i + 1
   Call Analysieren(PP.Item(i))
Loop
*****************************************

und mit folgenden Befehlen versuch ich die Daten in ein Array zu schreiben:

*****************************************
Function Schreiben(P, iArZ)
Dim URP As Object
Dim oPar As Object

iArZ = iArZ + 1
Set URP = P.UserRefProperties

ReDim Preserve aProps(6, iArZ - 1)

Set oPar = URP.GetItem("ZEICHNUNGSNUMMER")
aProps(0, iArZ - 1) = oPar.Value
*****************************************

Das merkwürdige daran ist, dass es beim Hauptprodukt funtioniert. Nur bei den Unterprodukten und Teilen fehlt irgendwie der Zugriff auf die UserRefProperties. Im Anhang seht ihr das Watch Fenster und die Ausgabe, das blau Markierte! Das kommt beim ersten Teil nachdem das Hauptprodukt ausgelesen wurde.

Ich hoffe ich konnte meine Problematik genau genug erklären und ihr könnt mir weiterhelfen.

------------------
Grüße

Christoph

*************************************************
Die Katia am Morgen, bringt dir reichlich Sorgen!

[Diese Nachricht wurde von MakroNovize am 05. Aug. 2009 editiert.]

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

---

Hallo Christoph,

Zitat aus der V5Automation.chm

Returns the collection object containing the product properties. All the user defined properties that are created in the reference product might be accessed through that collection.
Only available on reference products.

Das heißt du musst dir das ReferenceProduct Objekt instanzieren. Dort sind die UserRefProperties für Parts und Unterprodukte eines Rootprodukts verfügbar

Hier mal ein Beispielcode:

Code:

---

Sub CATMain()

    Dim oDoc As Document
    Dim oRoot As Product
    Dim oProds As Products
    Dim myAktiProd As Product
    Dim myRefProduct As Product
    Dim myRootUserRefs As Parameters
    Dim myPartUserRefs As Parameters
   
    Set oDoc = CATIA.ActiveDocument
    Set oRoot = oDoc.Product
    'Auslesen der UserRefProperties des Root-Produkts
    Set myRootUserRefs = oRoot.UserRefProperties
   
    Set oProds = oRoot.Products
    For i = 1 To oProds.Count
        Set myAktiProd = oProds.Item(i)
        Set myRefProduct = myAktiProd.ReferenceProduct
        'Hier werden die UserRefProperties von Parts und Untreprodukten ausgelesen
        Set myPartUserRefs = myRefProduct.UserRefProperties
    Next

End Sub

---

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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

---

Hi Daniel,

danke das klappt einwandfrei. Da wär ich als Anfänger nie drauf gekommen. Echt super
       

Riesen Dank nochmals!!!!

------------------
Grüße

Christoph

*************************************************
Die Katia am Morgen, bringt dir reichlich Sorgen!

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

---

Hallo,

naja vielleicht hättest du die V5Automation.chm befragen können. Aber ich geb schon zu die ist für einen Anfänger teilweise noch kryptischer wie der Code selber 

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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

---

Da es meine Bachelorarbeit ist bin ich bemüht eigentlich alles selber herbeizuzaubern, aber in diesem Fall ging nix. Ich hätte das jetzt dann irgendwie anders versucht. Dann wär das Programm aber wohl unnötig riesig geworden. Deswegen bin ich dir so dankbar ;-)

------------------
Grüße

Christoph

*************************************************
Die Katia am Morgen, bringt dir reichlich Sorgen!

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