Autor
|
Thema: Drawing an Katalogteil anhängen (1541 mal gelesen)
|
Lionel Hutz Mitglied
Beiträge: 363 Registriert: 26.03.2014 CATIA V5 R20
|
erstellt am: 25. Jun. 2019 07:29 <-- editieren / zitieren --> Unities abgeben:
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 |
Sebastian Zitzmann Mitglied CAD-/PLM-Consultant
Beiträge: 62 Registriert: 09.04.2013
|
erstellt am: 26. Jun. 2019 14:43 <-- editieren / zitieren --> Unities abgeben: Nur für Lionel Hutz
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 |
Lionel Hutz Mitglied
Beiträge: 363 Registriert: 26.03.2014 CATIA V5 R20
|
erstellt am: 27. Jun. 2019 11:35 <-- editieren / zitieren --> Unities abgeben:
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 |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 27. Jun. 2019 11:44 <-- editieren / zitieren --> Unities abgeben: Nur für Lionel Hutz
|
Lionel Hutz Mitglied
Beiträge: 363 Registriert: 26.03.2014 CATIA V5 R20
|
erstellt am: 27. Jun. 2019 13:03 <-- editieren / zitieren --> Unities abgeben:
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):
- existierendes Katalogpart (KP) umbenennen (.bak anhängen) => Datei nicht mehr verfügbar
- Referenzdrawing (RD) mit Referenzpart (RP) öffnen
- Save As mit Dateinamen von KP.name und Katalog Drawing (KD.name) (alternativ mittels Send To)
- Dateien schließen
- Part mit KP-Namen löschen
- Umbennenung rückgängig machen
- Drawing aktualisieren
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 27. Jun. 2019 13:14 <-- editieren / zitieren --> Unities abgeben: Nur für Lionel Hutz
|
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18-R21, R27-29
|
erstellt am: 27. Jun. 2019 14:06 <-- editieren / zitieren --> Unities abgeben: Nur für Lionel Hutz
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 |