Autor
|
Thema: Teilereferenzlink bei Erstellung einer Zeichnung umbiegen (1503 mal gelesen)
|
ser4 Mitglied
Beiträge: 5 Registriert: 30.11.2011 V5 R19 SP1 T9300(2x2,6GHz), 2GB RAM NVidia Quadro FX360M(512M GRAM)
|
erstellt am: 30. Nov. 2011 15:39 <-- editieren / zitieren --> Unities abgeben:
Hallo Forum, habe schon Suchfunktion bemüht, bin anscheinend zu dumm um "richtige" Posts zu finden ggf. gefundene richtig interpretieren. Ich habe folgende Frage: es ist ein Verzeichnis mit 3d-Teilen(vorerst CATParts) vorhanden. Ein angedachtes Macro soll Part aufrufen, eine Zeichnung vom Template(NewFrom) erstellen und vom geöffnetem Part ein Zeichnungsansicht erstellen. Danach wird die Zeichnung aktualisiert, und mit SaveAs abgespeichert. Zeichnungstemplate beinhaltet externe Referenzen, die auf ein Parttemplate zeigen. Diese will ich "umbiegen" auf durch ein bereits vom Macro geöffnetes und verwendetes CatPart. Mit Clicks sähe es so aus: Bearbeiten(Edit)-> Verknüpfungen(Links)->Reiter"Dokumente, auf die verwiesen wird"(Ref. Documents)->Template CatPart aktivieren-> Ersetzen(Replace)-> Browser schlißen-> Im Auswahl-Fenster icon "Geladenes Dokument" anklicken-> im Fenster "SitzungsDokument" des einzig vorhandene anklicken-> Bestätigen. Also diese "Clickfolge" lässt sich nicht mit Macrorecorder aufzeichnen! Und ich weiß nicht wie ich es an Macro weitergeben kann. Nachfolgend Code:
Sub CATMain() CATIA.DisplayFileAlerts = False Dim oFileSys As FileSystem Set oFileSys = CATIA.FileSystem Dim sFolderPath As String sFolderPath = InputBox( "Enter a folder path:", "Create Drawings", _ sDocPath & "input Folder Path") If (Not oFileSys.FolderExists(sFolderPath)) Then Err.Raise 9999,,sFolderPath & ": This Folder does not exist" End If Dim oFolder As Folder Set oFolder = oFileSys.GetFolder(sFolderPath) Dim iI For iI = 1 To oFolder.Files.Count Dim oFile As Object Set oPartToDraw = oFolder.Files.Item(iI) If InStr(oPartToDraw.Name, ".CATPart") <> 0 Then Dim oDoc As Document Set oDoc = CATIA.Documents.Open(oPartToDraw.Path) End If Dim oDrawing As DrawingDocument Set oDrawing = CATIA.Documents.NewFrom("C:\...\test_3d\vorlage_drw.CATDrawing") Dim oSheet As DrawingSheet Set oSheet = oDrawing.Sheets.ActiveSheet Dim oFrontView As DrawingView Set oFrontView = oSheet.Views.Add("Front View")
Dim oFrontViewGB As DrawingViewGenerativeBehavior Set oFrontViewGB = oFrontView.GenerativeBehavior
oFrontViewGB.Document = oDoc
oFrontViewGB.DefineFrontView 1, 0, 0, 0, 1, 0 oFrontView.x = 300 oFrontView.y = 150 oFrontViewGB.Update 'save as Dim generativDoc As Document Set generativDoc = oFrontView.GenerativeBehavior.Document oName = oPartToDraw.Name & I & ".CATDrawing" msgbox oName CATIA.ActiveDocument.SaveAs (oName) 'CATIA.ActiveDocument.Close
Next End Sub
Danke und Gruß p.s. Sorry, V5R19SP1-9HF6 ------------------ ...Mäuse weinten, stachen sich blutig, frassen der Kaktus aber weiter... [Diese Nachricht wurde von ser4 am 30. Nov. 2011 editiert.] 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: 30. Nov. 2011 15:44 <-- editieren / zitieren --> Unities abgeben: Nur für ser4
Servus Willkommen im Forum. Dein Makro sieht auf den ersten Blick doch vielversprechende aus. Wo liegen deine Problemen? Was funktioniert nicht? Gruß Bernd
------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ser4 Mitglied
Beiträge: 5 Registriert: 30.11.2011 V5 R19 SP1 T9300(2x2,6GHz), 2GB RAM NVidia Quadro FX360M(512M GRAM)
|
erstellt am: 30. Nov. 2011 16:14 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd, danke für schnelle Reaktion. Sorgen bereitet mir die bleibende Verlinkungen, die auf ein ursprünglich mit Templatedrawing verknüpftes Catpart zeigen. Diese will ich durch auf ein in Sitzung vorhandenes Catpart umbiegen. Wie im Bild zu sehen wäre, bleiben nach der Erstellung beide Refenzlinks. Wie kann man Zuweisung c:\5_tage\temp\vorlage.CATPart durch eine belibige(in meinem Fall C:\5_tage\20048.Catpart) ersetzen? ------------------ ...Mäuse weinten, stachen sich blutig, frassen der Kaktus aber weiter... 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: 30. Nov. 2011 16:19 <-- editieren / zitieren --> Unities abgeben: Nur für ser4
Servus Hast du mehrere Ansichten in der Zeichnung? Ich vermute, dass du für jede Ansicht den Link einzeln umhängen musst. Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ser4 Mitglied
Beiträge: 5 Registriert: 30.11.2011 V5 R19 SP1 T9300(2x2,6GHz), 2GB RAM NVidia Quadro FX360M(512M GRAM)
|
erstellt am: 30. Nov. 2011 16:35 <-- editieren / zitieren --> Unities abgeben:
|
| Entwicklungsingenieur / Berechnungsingenieur (m/w/d) | Digitale Transformation. Nachhaltigkeit. Friedenssicherung. Spannende Aufgaben, an denen auch wir bei Diehl in unseren fünf Teilkonzernen Metall, Controls, Defence, Aviation und Metering und unsere über 16.000 Mitarbeiterinnen und Mitarbeiter mit Hochdruck arbeiten. Entdecken Sie faszinierende Technologien und bewerben Sie sich. In einem von Vertrauen und Mut geprägten Familienunternehmen, das beständig und stabil ist ? aus Tradition.... | Anzeige ansehen | Entwicklung |
|
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 30. Nov. 2011 16:43 <-- editieren / zitieren --> Unities abgeben: Nur für ser4
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|