---

clsSelect-vb.txt

Hallo zusammen,

ich habe hier ein merkwürdiges Phänomen, vielleicht kann es ja wer erklären:

Ich habe in einem Bauteil mehrere Arbeitsebenen per Programm erstellt.
An diese hänge ich Attribute, die von einer anderen procedure ausgelesen werden. In dieser (anderen) procedure lasse ich die AE mittels SelectionEvents auswählen. Als Code habe ich das Beispiel der Class clsSelect aus den Onlinehilfe verwendet (siehe Anhang).

So, die Attribute sind nicht da, wenn ich die AE auswähle:

        Dim oSelectWP As WorkPlane
        Dim cSelect As New clsSelect
        oSelectWP = cSelect.Pick(SelectionFilterEnum.kWorkPlaneFilter)

Die Auswahl funktioniert so weit (oSelectWP.Name ist richtig), aber
oSelectWP -> AttributeSets -> Count steht auf 0 

Wenn ich aber "von hinten durch die Brust in Auge schieße" und die AE als "Child" des "Parent" der AE suche:

        oPartCompDef = oSelectWP.Parent
        Dim oWP As WorkPlane = Nothing
        For n As Integer = 4 To oPartCompDef.WorkPlanes.Count
            If oPartCompDef.WorkPlanes.Item(n).Name = oSelectWP.Name Then
                oWP = oPartCompDef.WorkPlanes.Item(n)
            End If
        Next

... dann sind die Attribute da: oWP -> AttributeSets -> Count=1
Diese "Lösung" ist aber unbefriedigend, weil man eine AE umbenennen kann, und dann habe ich ein Problem...
(Die AE hat ein Attribut "InternalName", worüber ich sie eindeutig identifizieren will.)

Christoph

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

---

Schon mal probiert den Rückgabewert von oSelectWP = cSelect.Pick(SelectionFilterEnum.kWorkPlaneFilter) zu casten (von Object in WorkPlane Typ)?

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

FX64 Software Solutions - Inventor Tools

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

---

Hallo Igor,

habe noch nicht so ganz verstanden, was du mit dem "casten" meinst. Da muss ich immer an Heidi Klum denken.   

Aber ich hab's gefunden:
Die ...SelectEvents.SelectedEntities sind Proxies! Beim Debuggen habe ich immer nur bis .Name geschaut, aber nach N kommt ja noch o,p,q,r,s,t und bei T kommt Type. 
Und das Zauberwort heißt .NativeObject

        ' Select workplane.
        Dim oSelectWP As WorkPlaneProxy
        Dim cSelect As New clsSelect
        oSelectWP = cSelect.Pick(SelectionFilterEnum.kWorkPlaneFilter)
        Dim oWP As WorkPlane = oSelectWP.NativeObject

...und dann klappt's auch mit den Attributen 

Danke,

Christoph

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

---

Nachtrag: Das mit dem Proxy ist wohl nur in einer Assembly. In einem Part ist "Pick" das ursprüngliche Objekt und hat AttributeSets.

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