---

Hallo Zusammen,
Ich habe folgendes Problem:

Meine Slection (über Suche erstellt) enhält Bohrungen die sich in verschiedenen Körpern innerhalb eines Bauteils befinden. (Solange sich alle im Part Body befunden haben hat mein Marko Super funktioniert - muss wohl den entsprechenden Body deklarieren!?)
Diese will ich nun in einer Schleife nach und nach modifizieren.
Folgenden Ansatz habe ich versucht:

Quelltext: (etwas gekürzt)

Dim BodyName As Body
Dim HoleName As Shape
Dim Hole1 As Shape
Dim ThreadlistM12 As Selection

' Innerhalb der Schleife: (For Laufindex I - Next)

HoleName = ThreadlistM12.Item(I).Value.Name          'read out Hole Name
Set BodyName = ThreadlistM12.Item(I).FindObject("CATIABody")  'Versuch den dazugehörigen Body zu erwischen
Set shapes1 = body1.Shapes
Set hole1 = Shape.Item(HoleName)
hole1.Type =catSimpleHole 'modifizieren des Lochs
hole1. ....          ' weitere mod

Nun die Frage an einen erfahrenen User, ob bei mir nur die Syntax im argen liegt, oder ob ich hier komplett auf dem Holzweg bin!

Sorry für das etwas generelle Problem - aber ich bin hier am verzweifeln...

Danke und Grüsse schon mal im Voraus.

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

---

Was ich mich gerade Frage ist, warum du so einen umständlichen Weg gehst?

ThreadlistM12.Item(I).Value ist das Objekt Hole, welches du modifizieren möchtest. Du lässt dir den Namen ausgeben (Namen sind Zeichenketten, also vom Typ String) suchst den Body und dann innerhalb des Body's über den Namen wieder das Objekt...

Code:

---

ThreadlistM12.Item(I).Value.Type

---

würde da sicherlich reichen. Und du hast auch keine Probleme wegen Namen (diese sind ja nicht zwingend eineindeutig).
Alternativ würde ich, wenn kein Weg dran vorbeiführt, das Objekt selber abgleichen:

Code:

---

If (selektiertesObjekt Is zuprüfendesObjekt) Then ...

---

Scheint aber leider nicht mit Section's zu funktionieren (falls du damit mal zu tun hast... aber das ist ne andere Baustelle)

Welchen Fehler gibt CATIA denn aus? Body.Shapes sind ja nicht nur Hole's. Obiges Problem mit der Namens-Uneindeutigkeit

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

---

Vielen Dank für die schnelle Antwort!

wie von Dir beschrieben funktioniert das natürlich einwandfrei.

Der erste Makro entwurf basierte auf meinen ersten Veruchen mit dem Makro rekorder - nicht so geschickt.

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