Sub CATMain()
Dim partdocument1 As PartDocument
Set partdocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partdocument1.Part
Dim hybridbodies1 As hybridbodies
Set hybridbodies1 = part1.hybridbodies
Dim hybridbody1 As HybridBody
Set hybridbody1 = hybridbodies1.Item("Claus")
Dim hybridbodies2 As hybridbodies
Set hybridbodies2 = hybridbody1.hybridbodies
Dim hybridbody2 As HybridBody
Set hybridbody2 = hybridbodies2.Item("Peter")
Dim Zahl As RealParam
Hier bin ich angekommen.
Was muss ich jetzt Zählen? Den hybridbody2, weil sich die Sachen ja in dem Zweiten GeoSet befinden?
Das erste Set ist "claus" und "peter" steckt in claus drin. Da habe ich ein paar Punkte und linien reingezeichnet. So wollte ich weiter machen.
Zahl = hybridbody2.count
dann habe ich noch
Zahl = hybridbodies2.count ausprobiert. WAs mir richtiger vorkamm, weil ich .count zur Auswahl hatte in der Programmierunterstützung. Hat aber auch nicht funktioniert.
VB.net hatte ich mir auch selbst beigebracht. Und da hatte ich bei weitem nicht solche Probleme wie bei VBA für Catia.
Danke noch mal
------------------
Hinweise auf Rechtschreibfehler kann man sich bitte sparen.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP