---

Hallo zusammen,

wie kann ich ein Part oder Product aus einem Drawing öffnen? Der folgende Code funktioniert nicht immer z.B. wenn die Zeichnungsableitung von einer Szene stammt.

Sub CATMain()

CATIA.StatusBar = "Part öffnen, Version 1.0"

Dim ReferenceComponent

    Set ReferenceComponent = drawingView1.GenerativeBehavior.Document.Parent

    CATIA.Documents.Open (ReferenceComponent.FullName)

End Sub

Welche Möglichkeiten gibt es noch den Namen abzufragen?

Danke schon mal

Georg

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

---

Hallo Georg,

gib doch mal den Pfad/Dateiname als Messagebox aus:

msgbox ReferenceComponent.FullName

und vergleiche die Dateiformate.
Vielleicht gibt es hierbei Unterschiede.

Grüsse Dominik

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

---

Hallo Dominik,

die Fehlermeldung kommt schon bei   

Set ReferenceComponent = drawingView1.GenerativeBehavior.Document.Parent

Unter Pointed Documents sehe ich jedoch das Part oder das Product.

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

---

Hallo GeorgK,

ich stelle mich mal ganz dumm und frage: "Wer oder was sollen denn die 'Eltern' einer Datei sein?" 

Aus meiner (bescheidenen) Sicht sollte Dein Skript wie folgt lauten:

Code:

---

Sub CATMain()

CATIA.StatusBar = "Part öffnen, Version 1.0"

Dim ReferenceComponent

    Set ReferenceComponent = drawingView1.GenerativeBehavior.Document

    CATIA.Documents.Open (ReferenceComponent.FullName)

End Sub

---

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

---

Hallo Lusilnie,

leider geht es so auch nicht. Kann es sein, dass es bei Szenen zu Problemen kommt?

Danke

Georg

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

---

Hallo GeorgK,

als erstes einmal "Sorry", denn meine Aussage ist falsch!  War wohl doch schon zu spät! 
Dein Code stimmt so:

Code:

---

Sub CATMain()

CATIA.StatusBar = "Part öffnen, Version 1.0"

Dim ReferenceComponent

    Set ReferenceComponent = drawingView1.GenerativeBehavior.Document.Parent

    CATIA.Documents.Open (ReferenceComponent.FullName)

End Sub

---

Allerdings funktioniert er nur bei "normalen" Ableitungen vom 3D! Bei "Szenen" läuft er auf einen Fehler, da hier das "Document" die Szene ist und deren "Parent" dann die "Scenes-Collection". Theoretisch müsste man von hier über "Parent" auf das "Product" und über "Parent.Parent" auf das "ProductDocument" zugreifen können.

Wie gesagt, theoretisch!

Leider funtkioniert das nicht, was daran liegen könnte, das die "Scenes-Collection" ein "TechnologicalObject" ist. Vielleicht kennt sich hier ja jemand mit diesen "TechnologicalObject"'s aus und weiß, wie man von diesen auf ihre "Parent" zugreift. Ich bin mir hier aber nicht sicher, ob dies funktioniert oder ob hier wirklich die strukturelle Verknüpfung einfach "vergessen" wurde.

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

---

Servus
Also bei funktioniert über:

Code:

---

Set oProduct = oView.GenerativeBehavior.Document.Parent.Parent.Parent
CATIA.Documents.Open oProduct.FullName

---

das Product zu öffnen.
Dabei müsste nur noch eine Fallunterscheidung eingebaut werden (also wenn die Ansicht nicht aus einer Szene abgeleitet wurde).

Gruß
Bernd

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

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

---

Wie würdet ihr die Fälle unterscheiden? Wie könnte das aussehen?

Grüße

Georg

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

---

Servus
Die Fall unterscheidng könnte über das Abfangen eines Fehlers geschehen. zB:

Code:

---

Sub CATMain()

On Error Resume Next

Set odoc = CATIA.ActiveDocument

Set oView = odoc.Sheets.ActiveSheet.Views.ActiveView

Set oProduct = oView.GenerativeBehavior.Document.Parent

oName = oProduct.FullName

If Err.Number <> 0 Then
    Set oProduct = oView.GenerativeBehavior.Document.Parent.Parent.Parent
    oName = oProduct.FullName
    Err.Clear
End If

On Error GoTo 0

CATIA.Documents.Open (oName)

End Sub

---

(ungetestet). Allerdings fehlen dabei noch: zb CATDrawing geöffnet? Vordergrund aktiv? Ansicht aktiv? ...

Gruß
Bernd

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

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

---

Super vielen Dank. Ich werde die anderen Abfragen noch einbauen. Viele Grüße Georg

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

---

Hallo Bernd!

Unten stehenden Code habe ich probiert.
Leider bekomme ich nur die Fehlermeldung, dass das Dokument nicht geelesen werden kann.
Liegt das eventuell an Smarteam in Kombination mit Scenes?

Language="VBSCRIPT"

Sub CATMain()
On Error Resume Next

Set odoc = CATIA.ActiveDocument

Set oView = odoc.Sheets.ActiveSheet.Views.ActiveView

Set oProduct = oView.GenerativeBehavior.Document.Parent

oName = oProduct.Name

If Err.Number <> 0 Then
    Set oProduct = oView.GenerativeBehavior.Document.Parent.Parent.Parent
    oName = oProduct.Name
    Err.Clear
End If

On Error GoTo 0

CATIA.Documents.Open (oName)

End Sub

Mein Ziel ist, an die CATProduct-ID zu kommen und in meinen Zeichnungskopf einzufügen.

Mit freundlichem Gruß

Stephan

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

---

Servus
Lass dir mal die Varialbe "oName" in einer MesageBox ausgeben.
Ich vermute dass du:

Code:

---

oName = oProduct.Fullname

---

verwenden (also mit Pfad und Dateiendung) verwenden musst.

Gruß
Bernd

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

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

---

Scenes.zip

Danke für Deine Antwort, Bernd!

Leider hat FullName auch noch nicht zum Ziel geführt.
Damit Du Dir auch die Randbedingungen ansehen kannst, habe ich den Code und Bildschirmfotos beigefügt.

Mein Eindruck ist, dass nur das erste .Parent ohne Fehler funktioniert. Schon die nächsthöhere Ebene .Parent ist leer.

Mit freundlichem Gruß
Stephan

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

---

Servus
Bei mir läuft der Code, mit kleinen Änderungen (oName statt oFullname verwenden und oName = oProduct.Fullname) durch:

Code:

---

Sub CATMain()
On Error Resume Next
Set odoc = CATIA.ActiveDocument
Set oView = odoc.Sheets.ActiveSheet.Views.ActiveView
Set oProduct = oView.GenerativeBehavior.Document.Parent
oName = oProduct.FullName

If Err.Number <> 0 Then
    Set oProduct = oView.GenerativeBehavior.Document.Parent.Parent.Parent
    oName = oProduct.FullName
    Err.Clear
End If

On Error GoTo 0
MsgBox("oName = oProduct.FullName: " & oName)
CATIA.Documents.Open (oName)
End Sub

---

Hast du die Ansicht von der Szene abgeleitet oder nur vom Part?

Gruß
Bernd

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

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

---

Scenes1.zip

Hallo Bernd!

Ich habe eine Ansicht von einem Produkt erstellt.
Anschließend habe ich die Verknüpfung der Ansicht zu einer Szene erstellt.
Sobald eine Szene abgefragt wird, bekomme ich eine Fehlermeldung.
Eventuell ist noch interessant, dass wir SmarTeam verwenden.

Die Abhängigkeitsanalyse habe ich auch mal als Bild angehangen.

Mit freundlichem Gruß
Stephan

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

---

Servus Stephan
Also bei mir funktioniert es (der Pfad wird richtig ermittelt).
Ist auch die entsprechende Ansicht aktiv? (deshalb gehören zu dem Script noch einige Abfragen/Fehlerbehandlungen)
Ist das Product im "work-Verzeichnis" abgelegt?

Gruß
Bernd

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

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

---

Hallo Bernd!

Das Makro starte ich nachdem ich die Ansicht aktiviert habe.
(Zeichnung und Produkt liegen nach dem Checkout im Work.)

Das Ergebnis Deines letzten Codes ist sowohl im Hintergrund und in der Arbeitsansicht ein leerer Inhalt. Damit gibt es beim Dateiaufruf eine Fehlermeldung.
Der Test an den Dateien, die ich in einen separaten Ordner gesendet hatte, war ebenfalls erfolglos.

Mit freundlichem Gruß
Stephan

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

---

Servus
Also im Hintergrund kann das Makro nicht funktionieren.
Verschiebe mal das On Error Resume Next nach Set oProduct = oView.GenerativeBehavior.Document.Parent
Wo steigt das Makro aus (mit welcher Fehlermeldung)?

Gruß
Bernd

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

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

---

Hallo Bernd!

Die MsgBox ist leer, das Produkt kann also nicht geöffnet werden.

Mit freundlichem Gruß
Stephan

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

---

Hallo Bernd!

Im Ausschlussverfahren habe ich mal Produkt und Zeichnung ohne Smarteam erstellt und getestet.
Da es hiermit auch nicht klappt, rätsel ich um so mehr, dass Du scheinbar keine Probleme mit demselben Code hast.

Jetzt erst einmal Dir einen schönen Feierabend!

Mit freundlichem Gruß
Stephan

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

---

Servus Stephan
Ich hab nochmal dein Beispiel ausprobiert, mit dem gleichen Ergebnis wie bei dir (kein Pfad wird ausgegeben).
Aber, nach einem Neustart von CATIA lief das Makro wieder (CATIA = close and try it again)

Gruß
Bernd

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

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

---

Hallo Bernd!

Du hattest den Daumen drauf!
Jetzt funktioniert mein Makro auch!

Deinen Tipp werde ich mir merken, auch die Definition von CATIA.

Hiermit ein herzliches Dankeschön an Dich!!

Mit freundlichem Gruß
Stephan

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

---

Hallo Bernd,

ich habe eben das supernützliche Script hier entdeckt und gleichmal ausprobiert. Funktioniert auch bei Produkten sehr gut.
Meine Frage allerdings:
Wenn ich ein einzelnes Part aktiv schalte auf der Zeichnung und das Makro verwende, gibt er eine Fehlermeldung aus (Document can not be read).
Vermutlich muss ich dem Makro irgendwie noch sagen, dass er noch Parts auswählen soll, ich hab aber keine Ahnung vom Programmieren.

Kannst Du mir ev. einen Tip geben? Vielen Dank.

Grüße

Alex

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