---

Hi!

Ich würde gern einen Code für eine UserSelection erstellen, bei dem der Benutzer ein GeoSet im Baum anwählen kann und die Anzahl der darin befindlichen Elemente ausgegeben bekommt.

Mit dieser Anzahl soll mein Makro dann weiter arbeiten.

Hintergrund ist, dass es in meinem Part ein GeoSet mit projizierten Achsensystemen darin gibt, welche mir als Angriffspunkte für mein Makro dienen.

Ich brauche die Anzahl, weil ich auf diesen Achsensystemen automatisiert Geometrie aufbauen lassen möchte.

Habe bisher diesen Code, welcher mir den Inhalt zählt. Aber ich krieg den Kniff nicht, wie ich die ausgegebene Anzahl weiterverwende.

.
.
.
'Sucht nach dem GeoSet "Clippunkte_Rohbau und setzt es In Work
'--------------------------------------------------------------
selection1.Search "Name=Clippunkte_Rohbau,all"
'part1.InWorkObject = selection1

'Sucht im GeoSet nach Objekten mit dem Namen *Anbindungspunkt_*
'--------------------------------------------------------------
selection1.Search "Name=*Anbindungspunkt_*,in"

'Gibt eine Messagebox mit der Anzahl der gezählten Namen im GeoSet aus
'--------------------------------------------------------------
MsgBox selection1.Count

For I = 1 To selection1.Count

If I = 1 Then
            Set Anbindungspunkt_1 = selection1.Item(I).Value
     ElseIf I = 2 Then
            Set Anbindungspunkt_2 = selection1.Item(I).Value
     ElseIf I = 3 Then
            Set Anbindungspunkt_3 = selection1.Item(I).Value
     ElseIf I = 4 Then
            Set Anbindungspunkt_4 = selection1.Item(I).Value
     ElseIf I = 5 Then
            Set Anbindungspunkt_5 = selection1.Item(I).Value
     ElseIf I = 6 Then
            Set Anbindungspunkt_6 = selection1.Item(I).Value
     ElseIf I = 7 Then
            Set Anbindungspunkt_7 = selection1.Item(I).Value
End If

Next
.
.
.

Danke und viele Grüße

[Diese Nachricht wurde von denniszappi am 22. Jul. 2015 editiert.]

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

---

Hallo,

Ich vermute, dass die Anzahl wirklich variable sein kann. Deswegen, würde ich eher mit einer Sammlung arbeiten, um die Punkte zu speichern.

Code:

---

Dim PointCollection As Collection
Set PointCollection = New Collection

For i=1 to selection1.count
  PointCollection.Add selection1.item(i).Value
Next

---

Dann kann man auf die Elemente der Sammlung in einer schleife zugreifen.

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