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