danke für den Vorschlag, aber ich hab schon ne Lösung gefunden. Ich habs einfach mal mit Makroaufzeichnung ausprobiert und das hat mir folgendes geliefert:
Dim product2 As Product
Set product2 = products1.Item("Box3.1")
group1.AddExplicit product2
Dim spatialQuery1 As SpatialQuery
Set spatialQuery1 = product1.GetTechnologicalObject("SpatialQuery")
Dim group2 As Group
Set group2 = spatialQuery1.ProximityWithFilters(10#, 20#, 1, 0, 0, group1)
Dim long1 As Long
long1 = group2.CountExplicit()
Dim product3 As Product
Set product3 = group2.ItemExtract(1)
group2.FillSelWithExtract
Lustig ist dabei, dass die v5automation-Hilfe weder die ProximityWithFilters-Methode noch die SpatialQuery-Methode kennt...
Gruß, Tobi
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP