---

Werte Profis,

kleines Problem am Rande das mich schon ein paar Tage vom Weiterarbeiten abhält. Die Lösung ist warscheinlich trivial, doch irgendwie hänge ich trotzdem fest.

Möchte die selektierten Elemente in Referenzen umwandeln, um sie dann später weiterverarbeiten zu können.
Hier mein bisheriger Code:

Sub CATMain()

Dim partDocument1 As Document
Dim Auswahl As Object
Dim Liste As Collection
Dim f As Long
Dim Test(100) As String
Dim Referenz(100) As Reference

Set partDocument1 = CATIA.ActiveDocument
Set Liste = New Collection
Set Auswahl = partDocument1.Selection

Auswahl.Search ".Punkt;Sel"

For f = 1 To Auswahl.Count
    MainForm.ListBox1.AddItem (Auswahl.Item(f).Value.Name)
    Set Referenz = Auswahl.Item(f).Value
Next

End Sub

Leider funktioniert das irgendwie nicht. Weiß jemand Rat?

Danke im Voraus

Gehirnsuelze

------------------

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

---

Hallo Sülze,

Code:

---

Set Referenz = Auswahl.Item(f).Reference

---

schau mal in der Hilfe unter "SelectedElement"

Gruß
CAMiCADse

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