---

Lagerdeckel.rar

Guten Tag,

ich verzweifle gerade an einem Bauteil bei dem das Parent einer Skizze nicht erkannt werden kann... Ich weiß leider nicht warum?!

Ich habe das Part angehangen. Hier mal ein Beispielcode:
Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("Hauptkörper")

Set sketches1 = body1.Sketches

Set sketch1 = sketches1.Item("Skizze.1")

msgbox(sketch1.Value.Parent.Name) <--- Da passiert nichts!

Wenn ich mir das das Objekt sketch1 im VB-Editor anschaue, verfügt es über kein Parent.

Hat jemand eine Idee?

[Diese Nachricht wurde von runio am 02. Sep. 2011 editiert.]

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

---

Servus
Deine Datei kann ich nicht öffnen (bitte umbenennen oder zippen)
Versuch es mal mit:
msgbox(sketch1.Parent.Name)
(Dann sollte "Sketches" kommen)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

msgbox(sketch1.Value.Parent.Name) <- das .Value hat da nicht verloren

Code:

---

MsgBox (sketch1.Parent.Parent.Name)

---

liefert den "Hauptkörper"
gruß

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

---

Danke für die Rückmeldungen.

Habe den Anhang aktualisiert.
Es geht mir darum, das Objekt Block.1 zu erfassen zu dem die Skizze gehört.

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

---

Servus
IMHO weiß die Skizze nicht von ihrem Glück dass sie in einem Feature verwendet wurde (obwohl es im Baum so dargestellt wird).
Du musst vom Shape (zb Block.1) aus suchen, ob die entsprechende Skizze verwendet wird.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Du könntest deinen code mit sowas ergänzen.
gruß

Code:

---

    ' ...
    Dim shapes1 As Shapes
    Set shapes1 = body1.Shapes
   
    Dim pad1 As Pad
    Dim i As Integer
   
    For i = 1 To shapes1.Count
        If TypeName(shapes1.Item(i)) = "Pad" Then
            Set pad1 = shapes1.Item(i)
            If pad1.Sketch Is sketch1 Then Exit For
        End If
    Next i

    If pad1 Is Nothing Then
        MsgBox "Block nicht gefunden"
    Else
        MsgBox "Block gefunden: " & pad1.Name
    End If

---

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

---

"weiß die Skizze nicht von ihrem Glück dass sie in einem Feature verwendet wurde"

Davon höre ich aber auch zum ersten Mal  wie so etwas wohl zu Stande kommt?

Jetzt kann ich beruhigt weiterarbeiten... ich dachte ich hätte etwas übersehen.

Danke für die Hilfe.

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