Kochbuch - CATIA V5 automatisieren

Vorwort Jens Hansen KochbuchCATIA V5 automatisieren Vom Powercopy bis zur C#-Programmierung ISBN: 978-3-446-41621-5 Weitere Informationen oder Bestellungen unter http://www.hanser.de/978-3-446-41621-5 sowie im Buchhandel. © Carl Hanser Verlag, München Vorwort Am Anfang war der Wunsch ... „Geht das nicht einfacher?“ „Kann man das nicht irgendwie automatisieren?“ Die Antwort ist dann meistens der Hinweis auf Makros, die explizit dafür geschrieben werden müssten. Der normale V5-Anwender winkt hier schon ab, weil Programmierung von Makros scheinbar noch schwerer zu erlernen ist als die Erzeugung von Freiformflächen; und das ist schon nur was für Spezialisten – glaubt man ... Der ambitionierte V5-Anwender (später auch „Spezialist“ oder „Key-User“ genant) nimmt sich DAS Einsteigerbuch für die Makroprogrammierung zur Hand („Makro- programmierung mit Visual Basic Script“ von Dieter R. Ziethen) und versucht, sich durch die verwirrende Struktur von V5-Klassen zu arbeiten. Die einzige offizielle Dokumentation seitens V5 – die Datei „V5Automation.chm“ (zu finden im Verzeichnis „..\Dassault Systemes\B18\intel_a\code\bin\“) – ist dabei leider nicht als vollständige Dokumentation aller Funktionen seitens der offenen Makro-Schnittstelle zu verstehen. Zwar sind alle Klassen von V5 aufgelistet, aber oft fehlen einige Funktionen und Eigenschaften, oder die Syntaxbeschreibung ist veraltet und basiert zum Teil noch auf R6! Immer noch findet man in der Online- Dokumentation Beispielskripte, die mit der aktuellen V5-Version nicht funktionie- ren. Als weitere zugängliche Quelle im deutschsprachigen Raum bleibt dann nur noch das CATIA-V5-Forum für die Programmierung auf www.CAD.DE. Die gängigsten Problemfälle können hier besprochen und meistens gelöst werden – oder zumindest ein richtiger Denkanstoß verhilft dann zum gewünschten Ergebnis. Am Ende geht jedoch viel Zeit damit verloren, die Verwendung der Funktion und Eigenschaften durch das beliebte Tryand-error-Prinzip zu ergründen. Verzweiflung macht sich dann breit, wenn es wirklich gar nicht geht; wenn sich die gewünschte Funktion einfach nicht per Makro steuern lässt. Denken Sie also daran, wenn Sie seit zwei Wochen nach einer Lösung für eine einzige Funktion suchen: Nicht alles, was man in V5 von Hand machen kann, lässt sich per Makro umsetzen Die offene Makro-Schnittstelle deckt bei Weitem nicht alle Funktionalitäten von V5 ab. Die Hauptbereiche wie Skizzierer, das Part Design und Assembly Design sind gut mittels Makro zu steuern. Geht man in das Drafting oder beschäftigt man sich mit FEM-Analysen, stößt man schon bald an Grenzen. Hier ist die Dokumentation noch dürftiger, es beschäftigt sich kaum jemand mit der Thematik, die einem weiter helfen könnte, und das Try-and-error-Prinzip liefert nur die Info, dass etwas nicht funktioniert, aber sagt nicht warum. 7 Vorwort Hier spielt nun die Erfahrung eine Rolle. Wie viele Makros und Anwendungen hat man schon geschrieben, wo ähnliche Funktionen vorkamen? Ideal wäre eine große Sammlung von Beispielmakros zu allen Lebenslagen in V5, wo man sich das geeig- nete Stückchen Quellcode herausholt, um endlich zum Ziel zu kommen. Ich habe im Vorfeld im oben besagten V5-Forum eine „Wunschliste“ veröffentlicht, wo jeder seine Wünsche für ein Makro, eine Powercopy oder sogar eine Software- Applikation eintragen konnte. Ich möchte in diesem Buch einen kleinen Schritt in diese große Sammlung von Makros für alle Lebenslagen machen und hier den Quellcode veröffentlichen, der manchen engagierten Makro-Programmierern schlaf- lose Nächte ersparen kann. Neben der Programmierung von reinen Makros soll auch auf die Möglichkeit einge- gangen werden, „von außen“ auf CATIA V5 zuzugreifen; z.B. um Informationen aus MS Excel oder MS PowerPoint nach V5 und wieder zurück zu transportieren oder mit einer eigenen Windows-Applikation (geschrieben in C#) eine Funktion direkt in V5 zu steuern. Oft taucht im Umfeld von V5-Programmierung das Stichwort „CAA“ auf. Dies ist eine Programmiersprache, mit der CATIA 5 unmittelbar programmiert werden kann. Allerdings ist diese Sprache aufgrund der hohen Lizenzgebühren und der ein- schränkenden Lizenzbedingungen sowie der Komplexität der Sprache den reinen Premium-Partnern von Dassault Systemes und den Systemhäusern vorbehalten. Daher wird CAA in diesem Buch kein Thema sein. Ich wünsche allen Lesern viel Spaß und Ausdauer bei dieser Lektüre, und ich wün- sche mir, dass sie Ihnen bei Ihrer täglichen Arbeit nützt und Sie schneller an die eine oder andere Lösung kommen. Wenn Sie Vorschläge, Fragen und weitere Wünsche zu diesem Buch haben, so kön- nen Sie mich direkt unter jens.hansen@mecmode.de kontaktieren. Auf der Webseite http://www.mecmod.de/hanser/ finden Sie dann auch die Möglichkeit, alle hier behandelten Makros und C#- Appliktionen herunterzuladen. Das Passwort für die Freischaltung finden Sie hier im Buch in Kapitel 10, „Küche“. 8 Vorwort Danke schön ... vor allem meiner Frau, die mir den Rücken für die Arbeit an diesem Buch freigehal- ten hat. Ebenso ein „Dankeschön“ an Frau Schärl und Frau Weilhart vom Hanser Verlag für die Geduld und die Unterstützung meiner Autorentätigkeit. Ein „Danke- schön“ auch allen Teilnehmern der CATIA-Foren für die vielen Wünsche, Tipps, Hinweise und Anregungen. Nicht zu vergessen meine Kunden für die praxisrelevan- ten Anregungen, sodass man nicht übers Ziel hinaus entwickelt. Kerpen, im September 2008 Jens Hansen 9

Inhaltsverzeichnis Jens Hansen KochbuchCATIA V5 automatisieren Vom Powercopy bis zur C#-Programmierung ISBN: 978-3-446-41621-5 Weitere Informationen oder Bestellungen unter http://www.hanser.de/978-3-446-41621-5 sowie im Buchhandel. © Carl Hanser Verlag, München Inhalt R5 Rootprodukt in einem Dateiordner Vorwort ....................................................................... 7 finden.......................................................67 R6 Reorganisieren eines Dateiordners.......74 1 Geräte und Hilfsmittel – Editoren .......11 1.1 Editor für Powercopies ..........................11 5 Bauteile und Baugruppen ...................... 91 1.2 Editoren für Makros ohne R7 Aktives Fenster dauerhaft drehen ........91 User-Interface .........................................11 R8 Ausschalten der Transparenz aller 1.3 Editoren für Makros mit Bauteile einer Baugruppe ......................94 User-Interface .........................................13 R9 Verdecken von Achsensystemen, 1.4 Externe Applikationen...........................14 Ebenen, Punkten und Linien ................97 R10 Isolieren und fixieren von 2 Vorbereitungen.........................................17 Used-Edges in einer Skizze.................100 2.1 Der Makro-Editor ...................................17 R11 Umbenennen aller booleschen 2.1.1 Insert object resolution..........................18 Operationen...........................................105 2.1.2 View Object Browser..............................19 R12 Bauteile untereinander vergleichen ...109 2.2 Der VBA-Editor ......................................23 R13 Elemente einfach umbenennen ..........119 2.2.1 Fenster: Project Explorer.......................24 R14 VBA-Makro Bauteil-Beschriftung......123 2.2.2 Properties ................................................27 R15 Starten des VBA-Makros „Bauteil- 2.2.3 Watch.......................................................27 Beschriftung“ ........................................140 2.2.4 IntelliSense..............................................30 R16 Das Volks-DMU: Schnittansicht einer Baugruppe .............................................141 3 Oft benutzt und nützlich .......................33 R17 Rohmaße ausgeben ..............................160 3.1 Grundrezepte...........................................33 R18 Bauraum darstellen ..............................172 3.2 Objekte für die Selektion.......................36 R19 Entfernungen zwischen Veröffentlichungen ..............................187 4 Dateisystem und Infrastruktur..............41 R20 Hintergrundfarbe ändern ....................190 R1 Datenschleuder – ein VBA-Makro .......41 R21 Gewinde einfärben ...............................192 R2 Starten eines VBA-Makros über ein Symbol in V5..........................................55 6 Flächen .....................................................197 R3 Synchronisieren von Messungen und R22 Powercopy Ballcorner_const ..............197 Parametern ..............................................57 R23 Powercopy Ballcorner_var..................205 R4 Umbenennen aller Instanzen in einer R24 Powercopy Hole_round .......................209 Baugruppe ...............................................61 R25 Powercopy Hole_square ......................211 R26 Powercopy Hole_square_rounded......212 5 Inhalt R27 Powercopy Hole_slot ...........................213 10 Küche – das Verwalten von Makros ..345 R28 Umbenennen der letzten Fläche in 10.1 Mehrsprachigkeit..................................345 einem geometrischen Set ....................214 10.2 Versionsverwaltung .............................350 R29 Endpunkte für jedes Teilstück einer 10.2.1 Szenario 1: Firma erstellt und Kurve......................................................218 verwaltet Makros im eigenen Haus ...350 R30 Parametrisches Zerlegen einer 10.2.2 Szenario 2: Der Dienstleister ..............353 Fläche.....................................................224 10.3 Schutz von VBA-Projekten.................356 R31 Flächen mit gleicher Farbe 10.3.1 Passwort für das VBA-Projekt zusammenfügen ...................................228 „Kochbuch“ ...........................................357 7 Zeichnungen........................................... 237 Index ...................................................................360 R32 Markieren aller unmaßstäblichen Maße ......................................................237 R33 Zeichnungsstempel ..............................240 R34 Netzlinien erzeugen .............................244 R35 Netzlinien erzeugen – Variante: Punkte indizieren................255 R36 VBA-Makro Schriftkopf-Editor ..........264 8 V5 & MS Office - EinTopf.................... 273 R37 Punktkoordinaten aus V5 nach Excel ......................................................273 R38 Alle Bauteilvarianten durchrechnen ........................................281 R39 Screenshot von V5 direkt aus MS Word/PowerPoint.................................298 R40 Einbinden von Makros unter MS Office...............................................303 9 Sahnetorten – C#-Anwendungen ..... 305 R41 Zugriff über V5-Bibliotheken.............306 R42 Zugriff ohne Bibliotheken – Late Binding..........................................325 R43 Sprühsahne – Quellcodebeispiele für Late Binding ...................................341 R44 MiniMax – Variantenberechnung......343 6

Leseprobe Jens Hansen KochbuchCATIA V5 automatisieren Vom Powercopy bis zur C#-Programmierung ISBN: 978-3-446-41621-5 Weitere Informationen oder Bestellungen unter http://www.hanser.de/978-3-446-41621-5 sowie im Buchhandel. © Carl Hanser Verlag, München 3 Oft benutzt und nützlich So, kommen wir zum Wesentlichen und endlich zum Grund, warum Sie dieses Buch gekauft haben – die „Kochrezepte“. Alle hier aufgeführten Rezepte entstanden durch Anregung und Anforderungen aus der Wirtschaft und dem täglichen Leben. Ich habe im Vorfeld in den von mir moderierten CATIA-Foren auf CAD.DE eine Wunschliste angeregt, wo jeder sein „Wunsch-Makro“ oder seine Powercopy eintra- gen konnte. Des Weiteren habe ich bei meinen Kunden ebenfalls viele Anregungen und Wünsche aufnehmen können. Bei all diesen Leuten möchte ich mich an dieser Stelle ganz herzlich bedanken. Die Rezepte gliedern sich nach den Anwendungsbereichen: • Dateisystem und Infrastruktur • Part- und Assembly-Design • Flächenkonstruktion • Drafting In diesen Bereichen werden die jeweiligen Makros, VBA-Makros und externen Ap- plikationen erläutert. Powercopies gibt es nur im Part-Design und in der Flächen- konstruktion. Da es keinen Sinn macht, den gesamten Quellcode auf etlichen Seiten zu verteilen, wird nur der relevante Bereich jeweils erklärt. Das entsprechende fertige Makro inkl. Quellcode finden Sie im Internet zum Herun- terladen. Dieses Symbol bedeutet, dass Sie mit dem gegebenen Suchbegriff in der V5-Automation.chm1 zusätzliche Infos finden. 3.1 Grundrezepte Es gibt viele Funktionen oder Objekte, die immer wieder benutzt werden. Die Syn- tax ist (fast) immer gleich oder meist sehr ähnlich. Es bietet sich daher an, einige „Grundrezepte“ direkt zur Hand zu haben, ohne lange überlegen zu müssen, wie denn noch mal die genaue Syntax für das Objekt oder die Funktion lautet. 1 V5Automation.chm ist die online-Hilfe für das Scripting und befindet sich im Verzeichnis „..\Dassault Syste- mes\B18\intel_a\code\bin\“ 33 3 Oft benutzt und nützlich CATIA V5 Syntax Beschreibung CATIA.DisplayFileAlerts = False Unterdrücken von Dateisi- cherungsmeldungen Set selection1 = CATIA.ActiveDocument.Selection Deklaration einer Selektion On Error Resume Next Prüfen, ob ein Dokument Set activedoc = CATIA.ActiveDocument geöffnet ist. Bei Fehler Mel- If Err.Number <> 0 Then dung an den Anwender und MsgBox "Es ist kein Dokument geöffnet", 16 Makro beenden Exit Sub End If If (Right(activedoc.Name, 7) <> "CATPart") Then CATPart anhand des Doku- MsgBox "Aktives Dokument ist kein Bauteil", 16 mentnamens identifizieren Exit Sub End If If (Right(activedoc.Name, 10) <> "CATProduct") CATProduct anhand des Then Dokumentnamens identifi- MsgBox "Aktives Dokument ist keine Baugruppe", zieren 16 Exit Sub End If If (Right(activedoc.Name, 10) <> "CATDrawing") CATDrawing anhand des Then Dokumentnamens identifi- MsgBox "Aktives Dokument ist kein Bauteil", 16 zieren Exit Sub End If Dim wert1 as Integer Erstes Vorkommen des Zei- wert1 = InStrRev(String, ",") chens „,“ (Komma) im Text ermitteln Dim InputObjectType() Setzen des Auswahlfilters InputObjectType(0) = "Point" auf PUNKTE bei einer User- Selection Status = selection1.SelectElement2(InputObjectType, Interaktive Auswahl eines "Wählen Sie das Objekt aus", False) Objektes durch den User Set visPropertySet1 = Selection1.VisProperties Deklaration der Sichtbar- keits- und Farbsteuerung einer Auswahl 34 3.1 Grundrezepte Syntax Beschreibung MsgBox "Makro ist beendet", 64, "Name des Mak- Meldungsfenster ros" Input = InputBox("Geben Sie den neuen Namen ein", Fenster mit Eingabefeld "Titel", „Standardtext in der Inputbox“) CATIA.ActiveDocument.Product.PartNumber Teilenummer eines Parts bzw. Produktes – geht nicht bei Drawing!! Selection1.Item(1).Value Objekt einer Auswahl inkl. Typendeklaration -> „Pad.1“ oder „Point.4“ CATIA.StartCommand "Exit workbench" Direkten Befehl an V5 sen- den – hier Workbench ver- lassen. – Befehl wird immer asynchron zum laufenden Makro ausgeführt! Exit Function, Exit Sub Abbruch einer Funktion Visual Basic bzw. Routine if Err.Number <> 0 then Abfrage eines Fehlers End if anhand der Fehlernummer Dim meineAuflistung(2) Erstellen einer Auflistung MeineAuflistung(0) = „Zeile1“ mit drei (2+1) Zeilen MeineAuflistung(1) = „Hier kommt der 2. Punkt“ MeineAuflistung(2) = „Hier kommt der 3 Punkt“ Redim preserve MeineAuflistung(9) Erweiterung der Auflistung auf zehn (9+1) Zeilen, wobei der bisherige Inhalt behalten wird. Der zusätz- liche Inhalt muss noch definiert werden. UBound(meineAuflistung) Max. Anzahl meiner Auf- listung ermitteln Dim meineTabelle(1,1) zweidimensionales Array => meineTabelle (0,0) = „1. Zeile, 1. Spalte“ vergleichbar mit einer meineTabelle (0,1) = „1. Zeile, 2. Spalte“ normalen Tabelle mit Zeilen meineTabelle (1,0) = „2. Zeile, 1. Spalte“ und Spalten. WICHTIG: meineTabelle (1,1) = „2. Zeile, 2. Spalte“ Kann nicht Redim Preserve erweitert werden. 35 3 Oft benutzt und nützlich Syntax Beschreibung Set Zeilenzahl = UBound(meineTabelle,0) Max. Anzahl der Zeilen ermitteln Dim Shell As Object Deklaration des Ordner- Set Shell = CreateObject("Shell.Application") auswahl-Dialoges Ordner = Shell.BrowseForFolder(0, "Wählen Sie bitte den Ordner mit den Dateien aus", 0).Self.Path Dim index Schleife mit Abbruch- Do While index < 100 bedingung Index = index +1 Loop For i = 1 To CATIA.Documents.Count Schleife mit fester Durch- Next laufzahl On Error Resume Next Fehler ignorieren und mit Makro weitermachen On Error Goto 0 Ignorieren der Fehler ausschalten & Chr(13) Zeilenumbruch in einem Text (für Ausgabe) Set Excel1 = GetObject(, "Excel.Application") Zugriff au die LAUFENDE Excel-Instanz Excel1.Workbooks.Open Öffnen der Excel-Datei (“C:\Temp\meineexceldatei.xls”) 3.