---

Hallo,

ich möchte ein VBA-Skript schreiben.
Welches schaut ob sich in einem Geometrical Set (Name: Belastung1) Elemente befinden und wenn ja alle löscht.

Da ich noch ein Anfänger im programmieren bin fehlen mir auch noch bei solchen einfachen Sachen die Ideen. Ich hoffe das wird sich bald ändern.

Danke für eure Hilfe.

Dominik

------------------
Hinweise auf Rechtschreibfehler kann man sich bitte sparen.

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

---

Hallo SirKlabauter,

die Ideen zu liefern, ist kein Problem.
Deine Aufgabe läßt sich auf folgende Anforderung reduzieren: Löschen aller Elemente im "Geometrical Set" namens "Belastung.1".
Also mußt Du nur im Part unter dem Knoten "Hybridbodies" das "Item" namens "Belastung.1" suchen (selektieren) und in diesem in einer For-Next-Schleife alle Items (von 1 bis "Count") löschen.

Soviel zur Idee, nun gutes Gelingen beim Umsetzen! Ich gebe Dir absichtlich nicht das Script, erstens lernst Du dabei wenig(er), zweitens mache ich nicht Deine Arbeit und drittens wirst Du sicher auch in Zukunft oft vor Problemen stehen, wo Du selbst den Weg finden mußt.
Falls Du allerdings auf konkrete Fragen stößt, trau Dich ruhig, sie zu stellen! Sie werden sicher beantwortet werden!

mfg,
Lusilnie

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

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

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

---

Hallo SirKlabauter,

gut, Du bist ja schon weit gekommen.
Allerdings taucht an Deiner Problemstelle nun die Frage auf, zu welchem Typ die Elemente gehören: Bodies, GeometricElements, HybridBodies oder HybridShapes?
Wenn es z.B. Planes sind, gehören sie zu HybridShapes und die korrekte Zeile lautet dann:

Code:

---

Zahl = hybridbody2.HybridShapes.Count

---

Scheinbar geht es genau an dieser Stelle nicht ganz so einfach, wie von mir gestern gedacht! Sorry!

[Edit]
PS: Vielleicht wäre es einfacher, das GeoSet "peter" zu löschen und anschließend neu zu erstellen, als darin nach Elementen zu suchen und diese dann zu löschen!!!
[/Edit]

mfg,
Lusilnie

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

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

[Diese Nachricht wurde von Lusilnie am 21. Dez. 2006 editiert.]

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