---

Servus, und zwar habsch ein Problem. Wie kann es anders sein        Ich hab es zwar schon in dem eigentlich Thread gepostet in folge dessen es entstanden ist, aber so denke ich erreicht es einfach mehr Leute...

Jedenfalls bekomme ich ständig eine Fehlermeldung, wenn ich zu meiner Selection etwas adden will.

QUELLTEXT mit Fehlermeldung: Method 'Add' of object 'Selection' failed
-> kann mir da jemand weiter helfen

Code:

---

Public bItems As Collection '--> meine globale Collection

Sub CATMain()
  ...
  Set bItems = New Collection
  ...
  SelectionShow(1) '-->Methode die aufgerufen wird
  ...
End Sub

'--> aufgerufene Methode
Sub SelectionShow(Multipagenumber As Integer)

  Dim sSelection As Selection
  Set sSelection = CATIA.ActiveDocument.Selection

  Select Case Multipagenumber

  Case "1"
  If UserForm.ListBox_B_CAE.ListCount > 0 Then

    For i = 1 To UserForm.ListBox_B_CAE.ListCount Step 1

        sSelectedItem = UserForm.ListBox_B_CAE.List(i)
        Set oItem = bItems.Item(sSelectedItem)
        sSelection.Add (oItem) '---> FEHLER

    Next
    End If
  ...
  End Select

  Set visPropertySet1 = Selection.VisProperties
  visPropertySet1.SetShow 1

  sSelection.Clear

End Sub

---

Hat jemand eine Ahnung, was daran falsch ist!?!?!?

------------------
ODI PROFANUM VULGUS

[Diese Nachricht wurde von Smerg am 11. Sep. 2008 editiert.]

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

---

Hallo,
was für ein Objekt wird dann an die Selection übergeben bzw. was für Objekt ist denn oItem kurz vor dem Fehler? Ist das ein existierendes CATIA-Element oder nur ein reiner Text? Das kannst du ja im Watch-Fenster sehen oder aber mit Msgbox(TypeName(oItem)).
Wenn oItem kein CATIA-Objekt ist, kannst du es auch nicht auswählen - sprich es in eine Selection packen.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing

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

---

Eigentlich sollte es ein Objekt sein 
Hab auch schon mit Watch versucht und versucht; irgendwas anderes Sinnvolles hinzu bekommen

Bild: Auszug Watch

Ich grübbel und grübbel 

Beim adden zu der Collection vielleicht was falsch gemacht:

Code:

---

bItems.Add UserSelection.Item(i), UserSelection.Item(i).Value.Name

---

ne andere Frage: ein product ist auch ein Objekt, oder irr ich mich da!?

Bzw. wenn das mit der Collection nicht klappen sollte, gibt es da eine Möglichkeit sich Selections zu speichern um sie zu einem gegeben Zeitpunkt einfach wieder zu verwenden!? Was wäre dabei zu beachten!?

------------------
ODI PROFANUM VULGUS

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

---

Hallo Smerg,

 

Zitat:

---

bItems.Add UserSelection.Item(i), UserSelection.Item(i).Value.Name

---

das dürfte auf jeden Falls schon mal falsch sein.

Probiers mal mit
bItems.Add UserSelection.Item(i).Value....

Gruß

------------------
tomtom1972

[Diese Nachricht wurde von tomtom1972 am 15. Sep. 2008 editiert.]

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

---

Hallo,
seh ich das richtig, dass du versuchst, ein Dokument in die Selection zu packen?
Eine Selection funktioniert nur INNERHALB eines Dokumentes. Wenn du versuchst ein bestimmtes Dokument anzusprechen, dann würde ich über die Collection Products gehen, WENN sich das auszuwählende Dokument um eine Unterbaugtuppe bzw. um ein Bauteil handelt.
Hast du dagegen nur eine Reihe von unabhängigen Dokumenten geöffnet, dann kannst du nur innerhalb dieser Dokumente irgendwelche Objekte wie Block, Tasche, Punkte, Flächen, usw. auswählen.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing

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

---

Hallo Smerg,

ausgehend von Deinem "Watch" würde ich folgende Änderung vorschlagen:

Code:

---

        sSelectedItem = UserForm.ListBox_B_CAE.List(i)
        Set oItem = bItems.Item(sSelectedItem).Value
        sSelection.Add (oItem) '---> FEHLER

---

Wenn ich es richtig im Gedächtnis habe, kannst du nur das wirkliche Element zur Selektion hinzufügen, nicht aber ein "SelectedElement".

mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

tausend danke für eure Hilfe...

Ich versuch es gleich mal umzusetzen.

------------------
ODI PROFANUM VULGUS

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

---

 

Zitat:

---

Original erstellt von tomtom1972:
Hallo Smerg,

...

Probiers mal mit
bItems.Add UserSelection.Item(i).Value....

Gruß

---

Tausend dank, das war der entscheidente Tipp

Zitat:

---

Hallo Smerg,

ausgehend von Deinem "Watch" würde ich folgende Änderung vorschlagen:

    Code:        sSelectedItem = UserForm.ListBox_B_CAE.List(i)
            Set oItem = bItems.Item(sSelectedItem).Value
            sSelection.Add (oItem) '---> FEHLER

Wenn ich es richtig im Gedächtnis habe, kannst du nur das wirkliche Element zur Selektion hinzufügen, nicht aber ein "SelectedElement".

mfg,
Lusilnie

---

Deine Variante habe ich auch getestet. Jedoch funktioniert diese nicht. Trotzdem danke ^^

[Diese Nachricht wurde von Smerg am 19. Sep. 2008 editiert.]

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