---

Ich habe ein Part erstellt, dessen wichtigen Parameter mit einer Konstruktionstabelle gesteuert werden.
Dieses habe ich als Generative Part in einen Katalog eingefügt und die Varianten generiert.

Vom ersten Part existiert ein Drawing.

Gibt es eine Möglichkeit, dieses Drawing im Katalog mit seinem Part zu verknüpfen, sodass zu jedem generierten Part ein Drawing generiert werden kann?

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

---

Hallo Lionel,

nein, das wäre mir neu. Du könntest du nur die Zeichnung am Referenzpart kopieren und via Edit/Links an die neu generierten Parts anhängen und updaten.

Das geht aber nur bei identischer UUID. Falls diese nicht identisch ist, hat einer meiner Kunden ein Makro erzeugt, das diese UUID umgeht. Wie genau das funktioniert weiß ich nicht, aber es gibt demnach auch hier eine Lösung.

Hilft dir das weiter?

Gruß, Sebastian Zitzmann

------------------
Beste Grüße,

Sebastian Zitzmann
PLM4ENGINEERS GmbH

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

---

Abgesehen von meinen Träumen, die du mir soeben zerstört hast, hilft mir die Antwort weiter.

Umhängen einer Kopie der Zeichnung auf ein durch den Katalog generiertes Part funktionert über Edit/Links.
Da ich im Entstehungsprozess verschiedene Varianten darstellen möchte und die Zeichnung entsprechend häufig angepasst werden wird, muss ich mich nach Möglichkeiten der Automatisierung umschauen (Referenz-Drawing unter gegebenem Dateinamen aus Designtabelle speichern [mit überschreiben], Referenz umhängen auf generiertes Part aus Designtabelle und Drawing aktualisieren).

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

---

Servus Lionel

Falls du auf das Problem mit den unterschiedlichen UUIDs triffst: auf Catia.cad.de ist ein Workaround beschrieben.

Gruß
Bernd

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

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

---

Mit den UUIDs habe ich in diesem Fall keine Probleme.

Allerdings lässt sich das Edit/Links=>Replace wohl nicht so einfach automatisieren (siehe http://www.coe.org/p/fo/et/thread=29069 )

Lösungsansatz (manuell durchgespielt):

1. existierendes Katalogpart (KP) umbenennen (.bak anhängen) => Datei nicht mehr verfügbar
   
2. Referenzdrawing (RD) mit Referenzpart (RP) öffnen
   
3. Save As mit Dateinamen von KP.name und Katalog Drawing (KD.name) (alternativ mittels Send To)
   
4. Dateien schließen
   
5. Part mit KP-Namen löschen
   
6. Umbennenung rückgängig machen
   
7. Drawing aktualisieren

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

---

Servus

Hast du dir schonmal GenerativeBehavior.Document oder GenerativeLinks einer DrawingView angeschaut (siehe zB hier)

Gruß
Bernd

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

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

---

Hallo,

also die Links sollte man auch per Makro umhängen können (sogar wenn die UUID nicht übereinstimmt, allerdings mit der Konsequenz das die Maße in der Regel defekt sind und sich ggf. die Ansichten ändern).

Hatte mal folgendes Makro geschrieben:

Code:

---

Sub CATMain()

Dim oDrwDoc As DrawingDocument
Dim oDrwSheet As DrawingSheet
Dim oDrwView As DrawingView
Dim intViewNr As Integer
Dim strDocToLink As String
Dim oDocToLink As Document

On Error Resume Next
    Set oDrwDoc = CATIA.ActiveDocument
    If Err.Number <> 0 Then
        MsgBox "Wrong document type (only Drawings)", vbInformation, "Program abort"
        Exit Sub
    End If
On Error GoTo 0

strDocToLink = CATIA.FileSelectionBox("Select the CATIA V5 document for the new links.", "*", CatFileSelectionModeOpen)

    If CATIA.FileSystem.FileExists(strDocToLink) Then
        Set oDocToLink = CATIA.Documents.Open(strDocToLink)
    Else
        MsgBox "File not found.", vbInformation, "Program abort"
        Exit Sub
    End If

For Each oDrwSheet In oDrwDoc.Sheets
    If IsMySheetADetail(oDrwSheet) = False Then
        For intViewNr = 3 To oDrwSheet.Views.Count
            Set oDrwView = oDrwSheet.Views.Item(intViewNr)
            oDrwView.GenerativeLinks.RemoveAllLinks
            oDrwView.GenerativeLinks.AddLink oDocToLink.Product
        Next
    End If
Next
oDrwDoc.Activate
MsgBox "Well done!", vbInformation, "Done!"
End Sub
Private Function IsMySheetADetail(t_oSheet As DrawingSheet) As Boolean
If t_oSheet.IsDetail = False Then
    IsMySheetADetail = False
Else
    IsMySheetADetail = True
End If

End Function

---

Evtl. kannst du dir das ja irgendwie zurecht biegen.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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