| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Spanischer Freiberufler entwirft exquisiten Schmuck mit ZW3D |
Autor
|
Thema: Alle geöffneten Zeichnungen mit iLogic (2700 mal gelesen)
|
tschütte Mitglied Ingenieur, Maschinenbau
Beiträge: 180 Registriert: 21.01.2010 Inventor professional 2023 Win 10 pro 64 shining3D einscan 2X pro plus QuickSurface 2023 PLZ: 262.. 3D-Fokus.de
|
erstellt am: 12. Aug. 2014 17:31 <-- editieren / zitieren --> Unities abgeben:
Hallo Community, um aktuelle Ableitungen meiner idw´s in PDF und DWG zu exportieren würde ich gerne eine Schleife auf alle geöffneten idw´s anwenden und den vorhandenen Code zur Konvertierung aufrufen. Kann mir Jemand verraten, wie man das per iLogic steuert? VBA kann ich z. Zt. nicht anwenden. Da müsste ich zuerst meinen Rechner neu aufbauen, was ich mitten im Projekt vermeiden möchte. Vielen Dank für Dein Interesse und ggf. hilfreiche Tips :-) Freundliche Grüße Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9780 Registriert: 01.12.2003 AutoCAD 2.5 - 2024, Inventor AIP 4-2024.2 Windows 11 i7, 96 GB, SSD, Quadro P2200
|
erstellt am: 12. Aug. 2014 18:36 <-- editieren / zitieren --> Unities abgeben: Nur für tschütte
|
tschütte Mitglied Ingenieur, Maschinenbau
Beiträge: 180 Registriert: 21.01.2010 Inventor professional 2023 Win 10 pro 64 shining3D einscan 2X pro plus QuickSurface 2023 PLZ: 262.. 3D-Fokus.de
|
erstellt am: 12. Aug. 2014 19:22 <-- editieren / zitieren --> Unities abgeben:
Moin Udo, an sich eine gute Idee, aber das geht ja wohl nur bei der PDF-Erzeugung. Das Exportieren ins DWG-Format bleibt so ungelöst, welches ja auch den zeitintensiveren Vorgang darstellt :-| Wenn es keine Schleifenlösung gibt, muss ich versuchen, die jeweilige aktuelle Datei ( ich würde dann nur idw´s geöffnet haben ) zu exportieren und dann zu schließen, so dass dann automatisch die nächste idw an der Reihe wäre. Zum Schluss müsste ich irgendwie den Fehler abfangen, wenn keine Datei mehr offen ist ... nicht besonders elegant und aufwändig. Wenn es um eine größere Anzahl von idw´s geht, hat man dann immer x mal 15 Sekunden Wartezeit - das reicht noch nicht einmal, um sich neuen Kaffee zu holen ;-) Trotzdem vielen Dank und schönen Feierabend Thomas ------------------ Freundliche Grüße Thomas Schütte Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
invhp Ehrenmitglied V.I.P. h.c. MB Techniker, AE, WKZmacher
Beiträge: 5552 Registriert: 16.05.2002 (fast) alles, was Autodesk im Mechanikbereich anbietet ;)
|
erstellt am: 12. Aug. 2014 19:51 <-- editieren / zitieren --> Unities abgeben: Nur für tschütte
|
tschütte Mitglied Ingenieur, Maschinenbau
Beiträge: 180 Registriert: 21.01.2010 Inventor professional 2023 Win 10 pro 64 shining3D einscan 2X pro plus QuickSurface 2023 PLZ: 262.. 3D-Fokus.de
|
erstellt am: 12. Aug. 2014 21:18 <-- editieren / zitieren --> Unities abgeben:
Hallo Jürgen, obwohl es VBA ist, lief der Code nach meinen ersten Korrekturen sofort ohne Fehlermeldungen. Allerdings wurde nur eine ( die anfangs aktive ) idw exportiert. Aktueller Code: Dim oDoc As Inventor.Document For Each oDoc In ThisApplication.Documents 'MsgBox(oDoc.Name,"1") If oDoc.DocumentType = kDrawingDocumentObject Then On Error Resume Next oDoc.Activate 'MsgBox(oDoc.Name,"2") iLogicVb.RunExternalRule("pdf_erstellen") 'iLogicVb.RunExternalRule("dwg_erstellen") End If Next Vielleicht weißt Du oder ein Anderer, was ich noch umstellen muss. Alternativ wäre auch interessant, was ich statt oDoc.Name per msgbox ausgeben könnte für Testzwecke: So weit schon ´mal besten Dank und schönen Abend Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
invhp Ehrenmitglied V.I.P. h.c. MB Techniker, AE, WKZmacher
Beiträge: 5552 Registriert: 16.05.2002 (fast) alles, was Autodesk im Mechanikbereich anbietet ;)
|
erstellt am: 13. Aug. 2014 07:43 <-- editieren / zitieren --> Unities abgeben: Nur für tschütte
|
tschütte Mitglied Ingenieur, Maschinenbau
Beiträge: 180 Registriert: 21.01.2010 Inventor professional 2023 Win 10 pro 64 shining3D einscan 2X pro plus QuickSurface 2023 PLZ: 262.. 3D-Fokus.de
|
erstellt am: 13. Aug. 2014 13:04 <-- editieren / zitieren --> Unities abgeben:
|