| |
| Dassault PLM Integrationen mit der 3DViewStation, eine Pressemitteilung
|
Autor
|
Thema: BATCH Lauf für TIFF bzw. PDF Erstellung (10311 mal gelesen)
|
Fabian Pusch Mitglied Dipl.-Ingenieur (BA)
Beiträge: 18 Registriert: 19.11.2004 CATIA V5 R16 (Win 2k SP4) und PTC Wildfire 2.0 M200
|
erstellt am: 06. Jul. 2006 11:47 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich benötige Info wie ich in einem Batch-Lauf aus dem V5 heraus TIFFs und PDFs erstellen kann. Bekomme auch Probleme bei den Linien / Strichstärken und den Farben. Die Daten kommen aus (bitte nicht erschrecken ) ProE in Form von DXF, wurden dann ins AutoCAD übergeben. Danach dann ins V5 erneut als DXF übergeben.... ziemlich umständlich - aber nicht mein Problem. Also wie kann ich diese Daten sauber als TIFFs und PDFs herausspielen. Vielen Dank, FROHES SCHAFFEN Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cwillmann Mitglied PLM-Berater
Beiträge: 1487 Registriert: 17.03.2001
|
erstellt am: 06. Jul. 2006 18:26 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hallo, "sauber" eigentlich nur über einen geeignet konfigurierten Drucker. Problem der File/Save As Funktion ist, dass farbige Dokumente erzeugt werden. Wenn Dir das reicht -> für die PDF-Variante gibt´s Makros hier im Forum. BTW: Warum werden die DXF-Daten nicht direkt per "Tools/Import External Formats (oder so ähnlich) in ein CATDrawing eingefügt? ------------------ Grüße, Christian Willmann --- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 07. Jul. 2006 10:46 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von Fabian Pusch: [i]Hallo, ich benötige Info wie ich in einem Batch-Lauf aus dem V5 heraus TIFFs und PDFs erstellen kann.
Hallo, Mit folgendem CATSCript kannst Du alle CATDrawings, die in einem Verzeichnis und dessen Unterverzeichnissen liegen, in PDFs rausschreiben: ------------------------------------------------------------- Language="VBSCRIPT" '-------------------------------------------------------------------------------- ' Script um CATDrawings nach PDF zu konvertieren. ' Script written by Dipl.-Ing. Maximilianus (CAD.DE) ' ' !!! Die Verwendung dieses Skripts erfolgt auf eigene Gefahr! !!! ' Es wird keine Garantie für Datenverlust, die Datenqualität oder für sonstige ' vertragliche oder rechtliche Verpflichtungen übernommen, die der Anwender dieses ' Skriptes gegenüber seinem Kunden oder Dritten eingegangen ist. '-------------------------------------------------------------------------------- Sub CATMain() CATIA.DisplayFileAlerts = False s1="Script um CATDrawings nach PDF zu konvertieren." & vbCrLf & "Script written by Dipl.-Ing. Maximilianus (CAD.DE)" s2="!!! Die Verwendung dieses Skripts erfolgt auf eigene Gefahr! !!!" s3="Es wird keine Garantie für Datenverlust, die Datenqualität oder für sonstige" & vbCrLf & "vertragliche oder rechtliche Verpflichtungen übernommen, die der Anwender dieses" & vbCrLf & "Skriptes gegenüber seinem Kunden oder Dritten eingegangen ist." MsgBox s1 & vbCrLf & vbCrLf & s2 & vbCrLf & vbCrLf & s3 & vbCrLf set ShellApp=CreateObject("Shell.Application") 'erzeuge ein neues Objekt "Shell Application" set FolBrowser=ShellApp.BrowseForFolder(0,"Quellverzeichnis ist C:\Temp. Zum Übernehmen 'Abbrechen', oder wählen Sie ein Verzeichnis, in dem die CATDrawings gespeichert sind:",16,17) folderinput = "C:\Temp" If not FolBrowser is Nothing then 'wenn nicht Abbrechen gedrückt oder aus sonstigen Gründen 'nichts im Objekt "FolBrowser" steht, dann... folderinput=FolBrowser.Self.Path '...speichere den Pfad d. Ordners in die Variable "folderinput" End If Dim fs, fso, fld, sfld, ssfld, sssfld, ssssfld, f, f1, fc, s, filename, t Dim SheetCollection As DrawingSheets Set fs = CreateObject("Scripting.FileSystemObject") Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(folderinput) Set fc = fld.Files For Each fil In fc t = fil.Type If t = "CATIA Drawing" then filename = fil.Name Pos1 = instr(1, s, filename) If Pos1 = 0 Then Set documents1 = CATIA.Documents PFADEINGABE = fld & "\" & fil.name Set document1 = documents1.Open(PFADEINGABE) CATIA.ActiveWindow.WindowState = 0 Set drawingDocument1 = CATIA.ActiveDocument fileoutname = replace(fil.name,".CATDrawing","") PFADAUSGABE = fld & "\" & fileoutname & ".pdf" drawingDocument1.ExportData PFADAUSGABE, "pdf" drawingDocument1.Close s = s & PFADEINGABE & ";" & PFADAUSGABE s = s & vbCrLf End if End if Next For Each sfld In fld.SubFolders Set fc = sfld.Files For Each fil In fc t = fil.Type If t = "CATIA Drawing" then filename = fil.Name Pos1 = instr(1, s, filename) If Pos1 = 0 Then Set documents1 = CATIA.Documents PFADEINGABE = sfld & "\" & fil.name Set document1 = documents1.Open(PFADEINGABE) CATIA.ActiveWindow.WindowState = 0 Set drawingDocument1 = CATIA.ActiveDocument fileoutname = replace(fil.name,".CATDrawing","") PFADAUSGABE = sfld & "\" & fileoutname & ".pdf" drawingDocument1.ExportData PFADAUSGABE, "pdf" drawingDocument1.Close s = s & PFADEINGABE & ";" & PFADAUSGABE s = s & vbCrLf End if End if Next For Each ssfld In sfld.SubFolders Set fc = ssfld.Files For Each fil In fc t = fil.Type If t = "CATIA Drawing" then filename = fil.Name Pos1 = instr(1, s, filename) If Pos1 = 0 Then Set documents1 = CATIA.Documents PFADEINGABE = ssfld & "\" & fil.name Set document1 = documents1.Open(PFADEINGABE) CATIA.ActiveWindow.WindowState = 0 Set drawingDocument1 = CATIA.ActiveDocument fileoutname = replace(fil.name,".CATDrawing","") PFADAUSGABE = ssfld & "\" & fileoutname & ".pdf" drawingDocument1.ExportData PFADAUSGABE, "pdf" drawingDocument1.Close s = s & PFADEINGABE & ";" & PFADAUSGABE s = s & vbCrLf End if End if Next For Each sssfld In ssfld.SubFolders Set fc = sssfld.Files For Each fil In fc t = fil.Type If t = "CATIA Drawing" then filename = fil.Name Pos1 = instr(1, s, filename) If Pos1 = 0 Then Set documents1 = CATIA.Documents PFADEINGABE = sssfld & "\" & fil.name Set document1 = documents1.Open(PFADEINGABE) CATIA.ActiveWindow.WindowState = 0 Set drawingDocument1 = CATIA.ActiveDocument fileoutname = replace(fil.name,".CATDrawing","") PFADAUSGABE = sssfld & "\" & fileoutname & ".pdf" drawingDocument1.ExportData PFADAUSGABE, "pdf" drawingDocument1.Close s = s & PFADEINGABE & ";" & PFADAUSGABE s = s & vbCrLf End if End if Next For Each ssssfld In sssfld.SubFolders Set fc = ssssfld.Files For Each fil In fc t = fil.Type If t = "CATIA Drawing" then filename = fil.Name Pos1 = instr(1, s, filename) If Pos1 = 0 Then Set documents1 = CATIA.Documents PFADEINGABE = ssssfld & "\" & fil.name Set document1 = documents1.Open(PFADEINGABE) CATIA.ActiveWindow.WindowState = 0 Set drawingDocument1 = CATIA.ActiveDocument fileoutname = replace(fil.name,".CATDrawing","") PFADAUSGABE = ssssfld & "\" & fileoutname & ".pdf" drawingDocument1.ExportData PFADAUSGABE, "pdf" drawingDocument1.Close s = s & PFADEINGABE & ";" & PFADAUSGABE s = s & vbCrLf End if End if Next Next Next Next Next ' FileSystemObject objFs oeffnen Set objFs= CreateObject("Scripting.FileSystemObject") strDateiname = folderinput + "\" + "Drawing2PDF-DeepStructure-Report.csv" Set objTextStream = objFs.CreateTextFile(strDateiname, True) strWriteString = s objTextStream.Write strWriteString objTextStream.Close Set objTextStream = Nothing Set objFs = Nothing MsgBox "fertig !" & vbCrLf & s & vbCrLf End Sub ----------------------------------------------------------- Das ganze als XXX.CATScript speichern und aus Catia heraus starten. Wenn Du überall pdf gegen TIF austauschst, macht das Skript TIF-Dateien. Maximilianus
------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
V5amSee Mitglied
Beiträge: 105 Registriert: 19.03.2004
|
erstellt am: 22. Aug. 2007 07:18 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hallo, wenn ich aus Catia heraus das Script aufrufe, sieht eigentlich erst mal alles i.O aus. Ich bekomme auch die meldung das er fertig ist, es werden aber keine PDF´s erstellt. Das einzige das erstellt wird, ist ein CSV-File ohne Inhalt. Gilt es sonst noch irgendetwas zu beachten? Ich hab es auf diversen Releases versucht, immer dasselbe Ergebniss. Wäre klasse wenn mir jemand eine Lösung hätte. ------------------ Das Glück bevorzugt den der vorbereitet ist! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Axel.Strasser Ehrenmitglied V.I.P. h.c. Selbstständig im Bereich PLM/CAx
Beiträge: 4107 Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 22. Aug. 2007 08:49 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
V5amSee Mitglied
Beiträge: 105 Registriert: 19.03.2004
|
erstellt am: 22. Aug. 2007 11:36 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von Axel.Strasser: Dann würde ich mal vermuten Du hast ein Problem mit Deinem Input Directory oder Du hat keine Drawings in Deinem OrdnerAxel
Hi Axel, ich habs auf verschiedene Arten versucht. Nur Drawings im Input Directory, das komplette Product drin, Drawings lokal und aufm Server. Und immer das gleiche, Script läuft durch es werden aber keine PDF´S erstellt. Hab das ganze jetzt mal auf einer anderen Workstation probiert, und siehe da es funktioniert. Ich habs dann auch noch auf anderen Maschinen versucht, da hats nirgends funktioniert. Keine Ahnung warum es auf einer Maschine läuft und auf den anderen nicht. Alle Maschinen haben XP Prof. SP2 mit allen MS-Updates. Es sind auch auf allen Maschinen die gleichen Release drauf mit zentralen Refsettings. Bin echt am verzweifeln... ------------------ Das Glück bevorzugt den der vorbereitet ist! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rough-tec Mitglied Konstrukteur
Beiträge: 387 Registriert: 19.04.2007 V5R16 SP5 V5R17 SP3 V5R19 SP3 NX5 *grr* WIN XP Prof SP3 DELL - NVIDIA Quadro 4000 12GB RAM 64bit
|
erstellt am: 21. Sep. 2007 08:49 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hallo Maximilianus der Skript liest sich ja wirklich super und wir wären super froh, wenn wir in benützen könnten. Habe es nun schon an mehreren Rechnern, unter R14 und R16 probiert. Ausser der csv-Datei und einem schnellen "fertig" ist aber leider nix geschehen. Ich wäre Dir dankbar, wenn Du mir dazu nen Tip geben könntest. Danke ------------------ Zu Risiken und Nebenwirkungen.. fragen Sie Ihren Admin oder schalten Sie den Rechner aus. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sebastian Vogt Mitglied Konstrukteur
Beiträge: 114 Registriert: 22.01.2005 Windows XP P4 3.0GHZ 2024MB RAM GF7800 Catia V5R14
|
erstellt am: 27. Sep. 2007 11:03 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hallo zusammen, bei mir hat es super geklappt. Musste jedoch die CATDrawing in einen extra Ordner kopieren und dann ausführen. Habe sonst die Zeichnungen sowie die Parts in einem Ordner gespeichert. Beim ausführen wollte das Makro dann auch Parts umwandeln. Dabei kommt eine Fehlermeldung und Abbruch. MfG Sebastian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 27. Sep. 2007 22:54 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Ich habe inzwischen eine neue Version, die diese Fehleicht mehr hat und auch ohne gestartetes Catia aus einer Batch-Datei gestartet werden kann. Kann ich demnächst mal reinstellen, muss ich nur noch leicht überarbeiten. Bitte noch ein paar Tage Geduld. Maximilianus ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
V5Playaz Mitglied Dipl.-Ing (BA)
Beiträge: 447 Registriert: 12.07.2005 DELL PRECISION 390 3,25 GB RAM WIN XP PRO SP2 CATIA V5 R16-19 VB6, VB2008
|
erstellt am: 08. Nov. 2007 13:32 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 08. Nov. 2007 21:20 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hallo, ich habe die Skripte nun überarbeitet, wobei sie im Moment auf meinem Notebook nur laufen, wenn man sie aus CATIA heraus startet. Eigentlich sollten sie aber über die Batch-Dateien gestartet werden können. Also probiert es schonmal aus, wenn ich den Fehler finde, werde ich berichten. Maximilianus ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 21. Nov. 2007 16:22 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hallo, bitte tauscht einfach die in der ZIP enthaltene CATIA_Default_R16.txt gegen die hier angehängte CATIA_Default_R16.txt aus. Dann funktionieren die Batch-Läufe auch ohne CATIA V5 vorher gestartet zu haben. Bitte bei den Pront-Batches beachten: - Stellt in den CATIA-Optionen unter General "Load referenced documents" ab, sonst kann das Laden der CATDrawings sehr lange dauern. - Wenn Ihr den StartDrawingUpdate-DeepStructure-v13.bat laufen lasst, dann müssen die Search-Order richtig eingestellt sein, damit die referenzierten Dokumente gefunden werden und "Load referenced documents" muss dann natürlich aktiv sein. Entschuldigt, dass es so lange gedauert hat, aber ich kam nicht eher dazu. Gruß, Maximilianus ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 13. Dez. 2007 12:05 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hallo, ich wollte das nur nochmal hochholen. Nachdem vor ein paar Wochen das Interesse noch sehr groß war, gibt es nun keinerlei Rückmeldung. Läuft das Script nun bei jemandem? Gruß, Maximilianus ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hilbo Mitglied
Beiträge: 513 Registriert: 06.01.2005
|
erstellt am: 04. Jan. 2008 11:04 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
Axel.Strasser Ehrenmitglied V.I.P. h.c. Selbstständig im Bereich PLM/CAx
Beiträge: 4107 Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 04. Jan. 2008 11:30 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 04. Jan. 2008 11:39 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von hilbo: Hallo Maximilianus, bei mir läuft das Makro leider nicht. Kannst Du helfen?
Starte die Makros bitte über die *.bat-Dateien. Zudem habe ich noch einen Fehler gefunden, musste ich noch korrigieren: In einigen *.bat-Dateien habe ich teilweise statt -direnv -envdir geschrieben. Ist nun korrigiert. Die Scripte müssen nach C:\opt\Catia\Scripts entpackt werden! Hoffe, dass das dann geht, Maximilianus ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant
[Diese Nachricht wurde von Maximilianus am 04. Jan. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hilbo Mitglied
Beiträge: 513 Registriert: 06.01.2005
|
erstellt am: 04. Jan. 2008 11:40 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Welches Directory? Das wo die CATDrawings drin stehen?? Ja klar. Ins Selbe sollen auch die PDF. Habs auch mit den vorgeschlagenen C:\Temp probiert. Geht auch nicht. Vielleicht liegt es an XP64? Da geht ja so einiges nicht gegenüber 32-bit. ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hilbo Mitglied
Beiträge: 513 Registriert: 06.01.2005
|
erstellt am: 04. Jan. 2008 11:41 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
hilbo Mitglied
Beiträge: 513 Registriert: 06.01.2005
|
erstellt am: 04. Jan. 2008 11:53 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hallo maximilianus, anbei meine Fehlermeldungen. Die Pfade passen wohl nicht. CNEXT liegt bei mir in einem anderen Verzeichnis. Wo kann ich "mein" Verzeichnis einstellen? Muß ich das Verzeichnis Scipts ins Verzeichnis C:\opt\Catia kopieren? ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 04. Jan. 2008 11:54 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von hilbo: ...kleinen Moment noch. Habe nach dem Abschicken erst die Antwort von Maxi gesehen...
Wäre schön, wenn Ihr kurz berichtet, ob es läuft. Bei mir funktioniert es gut und viele "Kunden" von mir nutzen die Scripte inzwischen ebenfalls. Aber hier ist auch überall die gleiche Installation. Achja, die Scripte müssen nach C:\opt\Catia\Scripts entpackt werden! Maximilianus ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 04. Jan. 2008 11:58 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von hilbo: Die Pfade passen wohl nicht. CNEXT liegt bei mir in einem anderen Verzeichnis. Wo kann ich "mein" Verzeichnis einstellen? Muß ich das Verzeichnis Scipts ins Verzeichnis C:\opt\Catia kopieren?
Die Scripte müssen wie gesagt nach C:\opt\Catia\Scripts entpackt werden! Wenn bei Dir Catia nicht in C:\opt\Catia\v5r16 installiert ist, musst Du die CATIA_Default_R16.txt entsprechend ändern bzw. Deine Environmentdatei nach C:\opt\Catia\Scripts kopieren und in CATIA_Default_R16.txt umbenennen. Maximilianus ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant
[Diese Nachricht wurde von Maximilianus am 04. Jan. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hilbo Mitglied
Beiträge: 513 Registriert: 06.01.2005
|
erstellt am: 04. Jan. 2008 12:39 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hi, alte Meldung: CNEXT wird nicht gefunden. Scipte sind nach C:\opt\Catia\Scripts entpackt. Die ENV habe ich nach C:\opt\Catia\Scripts kopiert und wie von Dir beschrieben umbenannt. Was muß ich noch tun? Das Batch findet die CNEXT nicht. Irgendwo muß ich doch den Pfad dafür einstellen können?? ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 04. Jan. 2008 12:43 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von hilbo: Hi,alte Meldung: CNEXT wird nicht gefunden. Scipte sind nach C:\opt\Catia\Scripts entpackt. Die ENV habe ich nach C:\opt\Catia\Scripts kopiert und wie von Dir beschrieben umbenannt. Was muß ich noch tun? Das Batch findet die CNEXT nicht. Irgendwo muß ich doch den Pfad dafür einstellen können??
Ja, in den bat-Dateien gibt es folgende Zeile, die Du noch editieren musst: set CATIA_EXE=C:\opt\catia\v5r16\intel_a\code\bin Du könntest auch set CATIA_EXE=%CATDLLPath% schreiben. Habe ich in dem neuen ZIP-Paket gleich geändert. ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant [Diese Nachricht wurde von Maximilianus am 04. Jan. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hilbo Mitglied
Beiträge: 513 Registriert: 06.01.2005
|
erstellt am: 04. Jan. 2008 13:23 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Gut, ich habe diverse Pfade in der .bat geändert. Das Programm startet, ich stelle Quell- und Zielverzeichnisse ein. Im Quellverz. befinden sich 5 CATDrawings, ohne Parts (Testordner...) Es werden lediglich log-Dateien erzeugt, keine PDF. Was nun? ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 04. Jan. 2008 13:28 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von hilbo: Gut, ich habe diverse Pfade in der .bat geändert. Das Programm startet, ich stelle Quell- und Zielverzeichnisse ein. Im Quellverz. befinden sich 5 CATDrawings, ohne Parts (Testordner...) Es werden lediglich log-Dateien erzeugt, keine PDF. Was nun?
Offenbar gibt es in C:\opt\Catia\v5r16\intel_a\code\bin keine CATSTART.EXE. Gibt es die Bei R17 nicht oder liegt die in einem anderen Verzeichnis? Ich habe R17 nicht hier. Müsstest also mal nach catstart.exe suchen und ggf. den Pfad ändern.
------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hilbo Mitglied
Beiträge: 513 Registriert: 06.01.2005
|
erstellt am: 04. Jan. 2008 13:48 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
CATSTART.exe liegt im gleichen Verzeichnis wie CNEXT.exe., unter C:\opt\Catia\R17\win_b64\code\bin. Catia startet ja auch mit dem bildschönen Sternenhimmel, dann kommen Deine Fenster vom Batch-Programm. Anschliessend die Meldung vom Iexplorer, wegen geblocktem pop-up window(daran kann es wohl nicht liegen, oder...???) Ich vermute, das die CATDrawings nicht gefunden werden. Ich will die 461 pdf´s nicht manuell erstellen... ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 04. Jan. 2008 14:01 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von hilbo: CATSTART.exe liegt im gleichen Verzeichnis wie CNEXT.exe., unter C:\opt\Catia\R17\win_b64\code\bin. Catia [b]startet ja auch mit dem bildschönen Sternenhimmel, dann kommen Deine Fenster vom Batch-Programm. Anschliessend die Meldung vom Iexplorer, wegen geblocktem pop-up window(daran kann es wohl nicht liegen, oder...???) [/B]
Eigentlich sollte garkein CATIA-Fenster aufgehen. CNEXT läuft nur im Hintergrund. Kannst Du mal Deine Environment-Datei und die *.bat-Datei posten, dann schau ich da mal rein. Leider habe ich kein R17 und schon garnicht eine 64Bit-Version hier. Daher kann ich das nicht testen. ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 04. Jan. 2008 14:29 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von hilbo: CATSTART.exe liegt im gleichen Verzeichnis wie CNEXT.exe., unter C:\opt\Catia\R17\win_b64\code\bin.
Wie lautet Zeile 76 in Deiner StartDrawing2PDF-DeepStructure-v10.bat? "%CATIA_EXE%\CATSTART.exe" -run cnext -env %ENV_FILE% -direnv %ENV_DIR% Und wie Zeile 92? start C:\opt\catia\v5r16\intel_a\code\bin\cnext -batch -env %ENV_FILE% -direnv %ENV_DIR% -macro "C:\opt\catia\Scripts\Drawing2PDF-DeepStructure_v10.CATScript" Maximilianus ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hilbo Mitglied
Beiträge: 513 Registriert: 06.01.2005
|
erstellt am: 04. Jan. 2008 14:41 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
hilbo Mitglied
Beiträge: 513 Registriert: 06.01.2005
|
erstellt am: 04. Jan. 2008 14:43 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 04. Jan. 2008 15:05 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von hilbo: Beim Start des PDF-Erstellers unter Eingabe 2 startet Catia nicht, unter 1 jedoch.
Also mit 1 sollte beim ersten Start CATIA starten, um die Lizenz auszuwählen. Dann schließt man Catia und das Script startet. CATIA bleibt dann unsichtbar, es ist aber im Taskmanager die CNEXT aktiv. Mit 2 startet man CATIA, ohne Script, um die Settings einstellen zu können. Die Batch-Datei ist nicht sichtbar, die Du hochgeladen hast. Kannst Du die nochmal hochladen? Evtl. gibt es Probleme mit Deinem CATUserSettingPath. Stell den mal auf CATUserSettingPath=%USER_HOME%\%Context%\CATSettingsSC ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 04. Jan. 2008 15:10 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von hilbo: HP XW4400 Intel Core 2 Quad 8GB RAM WIN XP prof x64 SP2 V5R17SP6 64 bit
Mal ne andere Frage nebenbei: Bei wieviel RAM Speicherbelegung macht CATIA bei Dir den Abgang? Deine Maschine ist ja ziemlich performant ausgestattet, da können wir hier nur von träumen ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hilbo Mitglied
Beiträge: 513 Registriert: 06.01.2005
|
erstellt am: 04. Jan. 2008 15:26 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 04. Jan. 2008 15:33 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von hilbo: Bei einer Größe der Auslagerungsdatei von 9,3 GB war Catia noch nicht abgeschmiert...
In der Batch ist bei Dir ein Zeilenumbruch: start C:\opt\Catia\R17\win_b64\code\bin\cnext -batch -env %ENV_FILE% -direnv %ENV_DIR% -macro "C:\opt\catia\Scripts\Drawing2PDF-DeepStructure_v10.CATScript" Hinter -macro darf nur ein Leerzeichen sein, kein Zeilenumbruch. Evtl. auch set Context=CATIA_DEFAULT_R17 set USER_HOME=C:\Catia_Data\%CatiaVersion%\%USERNAME% set CATIA_EXE=%CATDLLPath% set ENV_FILE=CATIA_Default_R17 Default schreiben, weiß nicht, ob CATIA da zwischen groß- und kleinschreibung unterscheidet. ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant
[Diese Nachricht wurde von Maximilianus am 04. Jan. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 08. Jan. 2008 13:07 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hallo, ich habe die Skriptsammlung nochmals komplett überarbeitet und hoffe, damit die Konfiguration für Euch vereinfacht zu haben. Zudem ist das Startscript nun für R14 bis R18 kompatibel und vorbereitet, wenngleich ich es erst mit R14, R16 und R18 getestet habe. Gruß, Maximilianus ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant [Diese Nachricht wurde von Maximilianus am 08. Jan. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
genervterv5progi Mitglied
Beiträge: 1 Registriert: 22.01.2008
|
erstellt am: 22. Jan. 2008 16:16 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hallo Maximilianus, das das Script auf verschiedenen Maschinen durchläuf ohne etwas zu tun, liegt wohl an den LANGUAGE-Einstellungen? ich mußte im Script den fil.Type von "CATIA Drawing" auf "CATIA Zeichnung" ändern, dann ging es. Ich hoffe das ist hilfreich. Danke für das Scribt Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 22. Jan. 2008 17:57 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
adamotreba Mitglied Konstruktuer
Beiträge: 23 Registriert: 30.08.2016
|
erstellt am: 30. Aug. 2016 07:35 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 30. Aug. 2016 07:46 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hallo, hast Du das Script in den Pfad C:\opt\catia\Scripts installiert? Wenn das Script in einem anderen Verzeichnis installiert ist, musst Du die Pfade entsprechend anpassen. Gruß, ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
adamotreba Mitglied Konstruktuer
Beiträge: 23 Registriert: 30.08.2016
|
erstellt am: 30. Aug. 2016 07:56 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
adamotreba Mitglied Konstruktuer
Beiträge: 23 Registriert: 30.08.2016
|
erstellt am: 30. Aug. 2016 08:01 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 30. Aug. 2016 09:31 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von adamotreba: Er macht mir jetzt nur eineDrawing2TIF-DeepStructure-Report.csv und Drawing2TIF-DeepStructure-Report.txt dabei die TIF's finde ich nicht?
Die TIFs werden entweder in das ausgewählte Zielverzeichnis gespeichert oder in das Verzeichnis, in dem die Drawing gespeichert ist. Schau auch mal in C:\Temp rein.
------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 30. Aug. 2016 09:33 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Zitat: Original erstellt von adamotreba: Heißt der Pfad auch anders? Benute catia über "myplm" ?
Was ist "myplm"? Du musst alle Pfade in den Scripten ändern, wenn Du ein anderes Verzeichnis für das Script verwendest. Das geht am besten und schnellsten mit PSPad oder Notepad++ über die "Suchen/Ersetzen in Dateien"-Funktion.
------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
adamotreba Mitglied Konstruktuer
Beiträge: 23 Registriert: 30.08.2016
|
erstellt am: 30. Aug. 2016 09:33 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
adamotreba Mitglied Konstruktuer
Beiträge: 23 Registriert: 30.08.2016
|
erstellt am: 30. Aug. 2016 09:37 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 30. Aug. 2016 10:02 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Heißt das, das Script funktioniert jetzt oder kommt nur die Fehlermeldung nicht? PS: Öffne mal die Datei C:\opt\Scripts\progress.htm während das Script läuft, da steht immer drin, welche Datei gerade bearbeitet wird. PS2: ich habe das Script bei mir eben noch mal getestet, habe die gleiche Fehlermeldung bekommen (weil ich auch einen anderen Speicherort hier habe), habe den Pfad über "Suchen/Ersetzen in Dateien" gegen den neuen Speicherort der Script-Dateien ersetzt und dann das Script aus CATIA V5 R21 heraus getestet und es funktioniert hier einwandfrei. Sollte also auch mit R19 funktionieren, wenn die verwendeten Pfade richtig angepasst wurden. ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant [Diese Nachricht wurde von Maximilianus am 30. Aug. 2016 editiert.] [Diese Nachricht wurde von Maximilianus am 30. Aug. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
adamotreba Mitglied Konstruktuer
Beiträge: 23 Registriert: 30.08.2016
|
erstellt am: 30. Aug. 2016 11:30 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
adamotreba Mitglied Konstruktuer
Beiträge: 23 Registriert: 30.08.2016
|
erstellt am: 30. Aug. 2016 11:33 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
|
Maximilianus Mitglied PLM-Consultant
Beiträge: 136 Registriert: 28.05.2004 Catia V5 21 CADENAS PARTsolutions V8.1.09 / V9.0.8 Windows 2000/XP/2003 Server/2010, HP-UX, Linux
|
erstellt am: 30. Aug. 2016 11:35 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Hm, kannst Du mir mal das Script und den Installationspfad schicken bzw. hier anhängen oder als Text posten? Ich glaube nicht, dass das Script mit R19 nicht kompatibel ist. Evtl. liegt es aber auch an deiner Lizenz!? Kannst Du händisch "Save as" und dann TIF/PDF/JPG etc. auswählen? ------------------ Maximilianus Dipl.-Ing. (Wi-Ing ET) PLM-Consultant Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
adamotreba Mitglied Konstruktuer
Beiträge: 23 Registriert: 30.08.2016
|
erstellt am: 30. Aug. 2016 11:38 <-- editieren / zitieren --> Unities abgeben: Nur für Fabian Pusch
Natürlich geht es händisch Pfad? Verstehe nicht`? Den Ordner mit C:\opt\catia\Scripts habe ich einfach selbst erstellt 'Language="VBSCRIPT" '-------------------------------------------------------------------------------- ' Script um CATDrawings und CDD-zeichnungen nach TIF zu konvertieren. ' Script written by Dipl.-Ing. Maximilianus für CAD.DE ' ' !!! Die Verwendung dieses Skripts erfolgt auf eigene Gefahr! !!! ' Es wird keine Garantie für Datenverlust, die Datenqualität oder für sonstige ' vertragliche oder rechtliche Verpflichtungen übernommen, die der Anwender dieses ' Skriptes gegenüber seinem Kunden oder Dritten eingegangen ist. '-------------------------------------------------------------------------------- Sub CATMain() CATIA.DisplayFileAlerts = False s1="Script um CATDrawings und CDD-Zeichnungen nach TIF zu konvertieren." & vbCrLf & "Script written by Dipl.-Ing. Maximilianus für CAD.DE " s2="!!! Die Verwendung dieses Skripts erfolgt auf eigene Gefahr! !!!" s3="Es wird keine Garantie für Datenverlust, die Datenqualität oder für sonstige" & vbCrLf & "vertragliche oder rechtliche Verpflichtungen übernommen, die der Anwender dieses" & vbCrLf & "Skriptes gegenüber seinem Kunden oder Dritten eingegangen ist." MsgBox s1 & vbCrLf & vbCrLf & s2 & vbCrLf & vbCrLf & s3 & vbCrLf set ShellApp=CreateObject("Shell.Application") 'erzeuge ein neues Objekt "Shell Application" set FolBrowser=ShellApp.BrowseForFolder(0,"Quellverzeichnis ist C:\Temp. Zum Übernehmen 'OK', oder wählen Sie ein Verzeichnis, in dem die CATDrawings gespeichert sind:",16,17) folderinput = "C:\Temp" If not FolBrowser is Nothing then 'wenn nicht Abbrechen gedrückt oder aus sonstigen Gründen 'nichts im Objekt "FolBrowser" steht, dann... folderinput=FolBrowser.Self.Path '...speichere den Pfad d. Ordners in die Variable "folderinput" End If 'MsgBox "Der angegebene Quellpfad lautet:" & folderinput badfolder = instr(folderinput, "{") 'MsgBox "badfolder:" & badfolder If badfolder > 0 then folderinput = "C:\Temp" End if MsgBox "Der angegebene Quellpfad lautet: " & folderinput set FolBrowser=ShellApp.BrowseForFolder(0,"Wählen Sie ein Zielverzeichnis aus, oder bestätigen Sie mit Abbrechen, um in das jeweilige Quellverzeichnis zu speichern: ",16,17) folderoutput = "NEIN" If not FolBrowser is Nothing then 'wenn nicht Abbrechen gedrückt oder aus sonstigen Gründen 'nichts im Objekt "FolBrowser" steht, dann... folderoutput=FolBrowser.Self.Path '...speichere den Pfad d. Ordners in die Variable "folderinput" End If
badfolder = instr(folderoutput, "{") 'MsgBox "badfolder:" & badfolder If badfolder > 0 then folderoutput = "NEIN" End if Dim fs, fso, fld, sfld, ssfld, sssfld, ssssfld, f, f1, fc, s, sfiles, scount, filename, t, strWriteString, objFileS, strProgressDateiname, uhrzeit Dim SheetCollection As DrawingSheets
Set fs = CreateObject("Scripting.FileSystemObject") Set fso = CreateObject("Scripting.FileSystemObject") Set fld = fso.GetFolder(folderinput) If folderoutput <> "NEIN" then Set fldo = fso.GetFolder(folderoutput) MsgBox "Der angegebene Ausgabepfad lautet: " & folderoutput End If Set fc = fld.Files s = "Input; Output" s = s & vbCrLf sfiles = "" scount = 0 '--------------- ProgressWindow------------------------ ' FileSystemObject objFs oeffnen Set objFileS= CreateObject("Scripting.FileSystemObject") strProgressDateiname = "C:\opt\catia\Scripts\progressstart.htm" Set objTextOutStream = objFileS.CreateTextFile(strProgressDateiname, True) strWriteString = "<HTML><HEAD><meta http-equiv=refresh content=1;URL=C:\opt\catia\Scripts\progress.htm>" strWriteString = strWriteString + "<TITLE></TITLE></HEAD><BODY><img src=C:\opt\catia\Scripts\banner.jpg><p></p><FONT face=Arial size=2></FONT><FONT face=Arial size=2>" strWriteString = strWriteString + "</FONT><BR><P><FONT face=Arial size=4><STRONG>CATDrawing2TIF Script läuft.</STRONG>" strWriteString = strWriteString + "</FONT></P><P><FONT face=Arial size=2><STRONG>Aktuell in Bearbeitung: <FONT color=#ff0000>" strWriteStringEnd = strWriteString + "</FONT></STRONG></FONT></P><P></P></BODY></HTML>" objTextOutStream.Write strWriteStringEnd objTextOutStream.Close Set objTextOutStream = Nothing Set objFileS = Nothing '---------------Ende ProgressWindow------------------------
For Each fil In fc t = fil.Type If (t = "CATIA Drawing" or t = "CDD-Datei") then filename = fil.Name Pos1 = instr(1, s, filename) If Pos1 = 0 Then Set documents1 = CATIA.Documents PFADEINGABE = fld & "\" & fil.name scount = scount + 1 sfiles = scount & ". " & filename & "<p>" & sfiles '--------------- ProgressWindow------------------------ ' FileSystemObject objFs oeffnen Set objFileS= CreateObject("Scripting.FileSystemObject") strProgressDateiname = "C:\opt\catia\Scripts\progress.htm" Set objTextOutStream = objFileS.CreateTextFile(strProgressDateiname, True) strWriteString = "<HTML><HEAD><meta http-equiv=refresh content=1;URL=C:\opt\catia\Scripts\progress.htm>" strWriteString = strWriteString + "<TITLE></TITLE></HEAD><BODY><img src=C:\opt\catia\Scripts\banner.jpg><p></p><FONT face=Arial size=2></FONT><FONT face=Arial size=2>" strWriteString = strWriteString + "</FONT><BR><P><FONT face=Arial size=4><STRONG>CATDrawing2TIF Script läuft.</STRONG>" strWriteString = strWriteString + "</FONT></P><P><FONT face=Arial size=2><STRONG>Aktuell in Bearbeitung: <FONT color=#ff0000>" strWriteStringEnd = strWriteString + sfiles + "</FONT></STRONG></FONT></P><P></P></BODY></HTML>" objTextOutStream.Write strWriteStringEnd objTextOutStream.Close Set objTextOutStream = Nothing Set objFileS = Nothing '---------------Ende ProgressWindow------------------------
Set document1 = documents1.Open(PFADEINGABE) CATIA.ActiveWindow.WindowState = 0 Set drawingDocument1 = CATIA.ActiveDocument If t = "CATIA Drawing" then fileoutname = replace(fil.name,".CATDrawing","") End If If t = "CDD-Datei" then fileoutname = replace(fil.name,".cdd","") End If If folderoutput = "NEIN" then PFADAUSGABE = fld & "\" & fileoutname & ".tif" Else PFADAUSGABE = fldo & "\" & fileoutname & ".tif" End If On Error Resume Next drawingDocument1.ExportData PFADAUSGABE, "tif" drawingDocument1.Close If Err <> 0 Then s = s & PFADEINGABE & "; " & "Fehler!" Else s = s & PFADEINGABE & "; " & PFADAUSGABE End If s = s & vbCrLf End if End if Next For Each sfld In fld.SubFolders Set fc = sfld.Files For Each fil In fc t = fil.Type If (t = "CATIA Drawing" or t = "CDD-Datei") then filename = fil.Name Pos1 = instr(1, s, filename) If Pos1 = 0 Then Set documents1 = CATIA.Documents PFADEINGABE = sfld & "\" & fil.name scount = scount + 1 sfiles = scount & ". " & filename & "<p>" & sfiles '--------------- ProgressWindow------------------------ ' FileSystemObject objFs oeffnen Set objFileS= CreateObject("Scripting.FileSystemObject") strProgressDateiname = "C:\opt\catia\Scripts\progress.htm" Set objTextOutStream = objFileS.CreateTextFile(strProgressDateiname, True) strWriteString = "<HTML><HEAD><meta http-equiv=refresh content=1;URL=C:\opt\catia\Scripts\progress.htm>" strWriteString = strWriteString + "<TITLE></TITLE></HEAD><BODY><img src=C:\opt\catia\Scripts\banner.jpg><p></p><FONT face=Arial size=2></FONT><FONT face=Arial size=2>" strWriteString = strWriteString + "</FONT><BR><P><FONT face=Arial size=4><STRONG>CATDrawing2TIF Script läuft.</STRONG>" strWriteString = strWriteString + "</FONT></P><P><FONT face=Arial size=2><STRONG>Aktuell in Bearbeitung: <FONT color=#ff0000>" strWriteStringEnd = strWriteString + sfiles + "</FONT></STRONG></FONT></P><P></P></BODY></HTML>" objTextOutStream.Write strWriteStringEnd objTextOutStream.Close Set objTextOutStream = Nothing Set objFileS = Nothing '---------------Ende ProgressWindow------------------------ Set document1 = documents1.Open(PFADEINGABE) CATIA.ActiveWindow.WindowState = 0 Set drawingDocument1 = CATIA.ActiveDocument If t = "CATIA Drawing" then fileoutname = replace(fil.name,".CATDrawing","") End If If t = "CDD-Datei" then fileoutname = replace(fil.name,".cdd","") End If If folderoutput = "NEIN" then PFADAUSGABE = sfld & "\" & fileoutname & ".tif" Else PFADAUSGABE = fldo & "\" & fileoutname & ".tif" End If On Error Resume Next drawingDocument1.ExportData PFADAUSGABE, "tif" drawingDocument1.Close If Err <> 0 Then s = s & PFADEINGABE & "; " & "Fehler!" Else s = s & PFADEINGABE & "; " & PFADAUSGABE End If s = s & vbCrLf End if End if Next For Each ssfld In sfld.SubFolders Set fc = ssfld.Files For Each fil In fc t = fil.Type If (t = "CATIA Drawing" or t = "CDD-Datei") then filename = fil.Name Pos1 = instr(1, s, filename) If Pos1 = 0 Then Set documents1 = CATIA.Documents PFADEINGABE = ssfld & "\" & fil.name scount = scount + 1 sfiles = scount & ". " & filename & "<p>" & sfiles '--------------- ProgressWindow------------------------ ' FileSystemObject objFs oeffnen Set objFileS= CreateObject("Scripting.FileSystemObject") strProgressDateiname = "C:\opt\catia\Scripts\progress.htm" Set objTextOutStream = objFileS.CreateTextFile(strProgressDateiname, True) strWriteString = "<HTML><HEAD><meta http-equiv=refresh content=1;URL=C:\opt\catia\Scripts\progress.htm>" strWriteString = strWriteString + "<TITLE></TITLE></HEAD><BODY><img src=C:\opt\catia\Scripts\banner.jpg><p></p><FONT face=Arial size=2></FONT><FONT face=Arial size=2>" strWriteString = strWriteString + "</FONT><BR><P><FONT face=Arial size=4><STRONG>CATDrawing2TIF Script läuft.</STRONG>" strWriteString = strWriteString + "</FONT></P><P><FONT face=Arial size=2><STRONG>Aktuell in Bearbeitung: <FONT color=#ff0000>" strWriteStringEnd = strWriteString + sfiles + "</FONT></STRONG></FONT></P><P></P></BODY></HTML>" objTextOutStream.Write strWriteStringEnd objTextOutStream.Close Set objTextOutStream = Nothing Set objFileS = Nothing '---------------Ende ProgressWindow------------------------ Set document1 = documents1.Open(PFADEINGABE) CATIA.ActiveWindow.WindowState = 0 Set drawingDocument1 = CATIA.ActiveDocument If t = "CATIA Drawing" then fileoutname = replace(fil.name,".CATDrawing","") End If If t = "CDD-Datei" then fileoutname = replace(fil.name,".cdd","") End If If folderoutput = "NEIN" then PFADAUSGABE = ssfld & "\" & fileoutname & ".tif" Else PFADAUSGABE = fldo & "\" & fileoutname & ".tif" End If On Error Resume Next drawingDocument1.ExportData PFADAUSGABE, "tif" drawingDocument1.Close
If Err <> 0 Then s = s & PFADEINGABE & "; " & "Fehler!" Else s = s & PFADEINGABE & "; " & PFADAUSGABE End If s = s & vbCrLf End if End if Next For Each sssfld In ssfld.SubFolders Set fc = sssfld.Files For Each fil In fc t = fil.Type If (t = "CATIA Drawing" or t = "CDD-Datei") then filename = fil.Name Pos1 = instr(1, s, filename) If Pos1 = 0 Then Set documents1 = CATIA.Documents PFADEINGABE = sssfld & "\" & fil.name scount = scount + 1 sfiles = scount & ". " & filename & "<p>" & sfiles '--------------- ProgressWindow------------------------ ' FileSystemObject objFs oeffnen Set objFileS= CreateObject("Scripting.FileSystemObject") strProgressDateiname = "C:\opt\catia\Scripts\progress.htm" Set objTextOutStream = objFileS.CreateTextFile(strProgressDateiname, True) strWriteString = "<HTML><HEAD><meta http-equiv=refresh content=1;URL=C:\opt\catia\Scripts\progress.htm>" strWriteString = strWriteString + "<TITLE></TITLE></HEAD><BODY><img src=C:\opt\catia\Scripts\banner.jpg><p></p><FONT face=Arial size=2></FONT><FONT face=Arial size=2>" strWriteString = strWriteString + "</FONT><BR><P><FONT face=Arial size=4><STRONG>CATDrawing2TIF Script läuft.</STRONG>" strWriteString = strWriteString + "</FONT></P><P><FONT face=Arial size=2><STRONG>Aktuell in Bearbeitung: <FONT color=#ff0000>" strWriteStringEnd = strWriteString + sfiles + "</FONT></STRONG></FONT></P><P></P></BODY></HTML>" objTextOutStream.Write strWriteStringEnd objTextOutStream.Close Set objTextOutStream = Nothing Set objFileS = Nothing '---------------Ende ProgressWindow------------------------ Set document1 = documents1.Open(PFADEINGABE) CATIA.ActiveWindow.WindowState = 0 Set drawingDocument1 = CATIA.ActiveDocument If t = "CATIA Drawing" then fileoutname = replace(fil.name,".CATDrawing","") End If If t = "CDD-Datei" then fileoutname = replace(fil.name,".cdd","") End If If folderoutput = "NEIN" then PFADAUSGABE = sssfld & "\" & fileoutname & ".tif" Else PFADAUSGABE = fldo & "\" & fileoutname & ".tif" End If On Error Resume Next drawingDocument1.ExportData PFADAUSGABE, "tif" drawingDocument1.Close If Err <> 0 Then s = s & PFADEINGABE & "; " & "Fehler!" Else s = s & PFADEINGABE & "; " & PFADAUSGABE End If s = s & vbCrLf End if End if Next For Each ssssfld In sssfld.SubFolders Set fc = ssssfld.Files For Each fil In fc t = fil.Type If (t = "CATIA Drawing" or t = "CDD-Datei") then filename = fil.Name Pos1 = instr(1, s, filename) If Pos1 = 0 Then Set documents1 = CATIA.Documents PFADEINGABE = ssssfld & "\" & fil.name scount = scount + 1 sfiles = scount & ". " & filename & "<p>" & sfiles '--------------- ProgressWindow------------------------ ' FileSystemObject objFs oeffnen Set objFileS= CreateObject("Scripting.FileSystemObject") strProgressDateiname = "C:\opt\catia\Scripts\progress.htm" Set objTextOutStream = objFileS.CreateTextFile(strProgressDateiname, True) strWriteString = "<HTML><HEAD><meta http-equiv=refresh content=1;URL=C:\opt\catia\Scripts\progress.htm>" strWriteString = strWriteString + "<TITLE></TITLE></HEAD><BODY><img src=C:\opt\catia\Scripts\banner.jpg><p></p><FONT face=Arial size=2></FONT><FONT face=Arial size=2>" strWriteString = strWriteString + "</FONT><BR><P><FONT face=Arial size=4><STRONG>CATDrawing2TIF Script läuft.</STRONG>" strWriteString = strWriteString + "</FONT></P><P><FONT face=Arial size=2><STRONG>Aktuell in Bearbeitung: <FONT color=#ff0000>" strWriteStringEnd = strWriteString + sfiles + "</FONT></STRONG></FONT></P><P></P></BODY></HTML>" objTextOutStream.Write strWriteStringEnd objTextOutStream.Close Set objTextOutStream = Nothing Set objFileS = Nothing '---------------Ende ProgressWindow------------------------ Set document1 = documents1.Open(PFADEINGABE) CATIA.ActiveWindow.WindowState = 0 Set drawingDocument1 = CATIA.ActiveDocument If t = "CATIA Drawing" then fileoutname = replace(fil.name,".CATDrawing","") End If If t = "CDD-Datei" then fileoutname = replace(fil.name,".cdd","") End If If folderoutput = "NEIN" then PFADAUSGABE = ssssfld & "\" & fileoutname & ".tif" Else PFADAUSGABE = fldo & "\" & fileoutname & ".tif" End If On Error Resume Next drawingDocument1.ExportData PFADAUSGABE, "tif" drawingDocument1.Close
If Err <> 0 Then s = s & PFADEINGABE & "; " & "Fehler!" Else s = s & PFADEINGABE & "; " & PFADAUSGABE End If s = s & vbCrLf End if End if Next Next Next Next Next ' FileSystemObject objFs oeffnen Set objFs= CreateObject("Scripting.FileSystemObject") If folderoutput = "NEIN" then strDateinameTXT = folderinput + "\" + "Drawing2TIF-DeepStructure-Report.txt" Else strDateinameTXT = folderoutput + "\" + "Drawing2TIF-DeepStructure-Report.txt" End If Set objTextStream = objFs.CreateTextFile(strDateinameTXT, True) strWriteString = s objTextStream.Write strWriteString objTextStream.Close Set objTextStream = Nothing Set objFs = Nothing ' FileSystemObject objFs oeffnen Set objFs= CreateObject("Scripting.FileSystemObject")
If folderoutput = "NEIN" then strDateiname = folderinput + "\" + "Drawing2TIF-DeepStructure-Report.csv" Else strDateiname = folderoutput + "\" + "Drawing2TIF-DeepStructure-Report.csv" End If Set objTextStream = objFs.CreateTextFile(strDateiname, True) strWriteString = s objTextStream.Write strWriteString objTextStream.Close Set objTextStream = Nothing Set objFs = Nothing '--------------- ProgressWindow------------------------ ' FileSystemObject objFs oeffnen Set objFileS= CreateObject("Scripting.FileSystemObject") strProgressDateiname = "C:\opt\catia\Scripts\progress.htm" Set objTextOutStream = objFileS.CreateTextFile(strProgressDateiname, True) strWriteString = "<HTML><HEAD><TITLE></TITLE></HEAD><BODY><img src=C:\opt\catia\Scripts\banner.jpg><p></p><FONT face=Arial size=2></FONT><FONT face=Arial size=2>" strWriteString = strWriteString + "</FONT><BR><P><FONT face=Arial size=4><STRONG>CATDrawing2TIF Script beendet.</STRONG>" strWriteString = strWriteString + "</FONT></P><P><FONT face=Arial size=2><STRONG>Es wurden bearbeitet: <FONT color=#ff0000></P><P>" strWriteStringEnd = strWriteString + "<object data=" + strDateinameTXT + " type=text/plain width=1024 height=650 border=2></FONT></STRONG></FONT></P><P></P></BODY></HTML>" objTextOutStream.Write strWriteStringEnd objTextOutStream.Close Set objTextOutStream = Nothing Set objFileS = Nothing '---------------Ende ProgressWindow------------------------
MsgBox "Fertig !" & vbCrLf & "Eine Logdatei finden Sie hier: " & strDateiname End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |