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