Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
| — |
de:testplaninv:38:automation [2026/02/20 14:03] (aktuell) admin angelegt |
||
|---|---|---|---|
| Zeile 1: | Zeile 1: | ||
| + | ====== Automatisierung ====== | ||
| + | Im Zusammenspiel mit einem PDM-System kann es hilfreich sein, das der Export z.B. bei Freigabe eines Dokumentes automatisch durchgeführt wird. | ||
| + | Dazu stellt das Reitec.Testplan für Inventor AddIn eine einfach Schnittstelle zur Verfügung. | ||
| + | |||
| + | AddIn Guid = " | ||
| + | |||
| + | ===== Funktion: Export ===== | ||
| + | |||
| + | <code vb> | ||
| + | Function Export(FileName As String, TestplanTypeName As String, CreatePDFOutput As Boolean, CreatePDFSource As Boolean, ExportAuthorData As Boolean, CalculateCommonTolerances As Boolean, CommonToleranceClass As String, ByRef HasBubbles As Boolean) | ||
| + | </ | ||
| + | |||
| + | **Funktionsparameter: | ||
| + | ^Name ^Beschreibung^ | ||
| + | |FileName | Vollständiger Dateiname der Datei in der die Daten gespeichert werden sollen.| | ||
| + | |TestplanTypeName | Name des Prüfplandefinition, | ||
| + | |CreatePDFOutput | Gibt an, ob ein PDF im Ausgabepfad gespeichert werden soll. | | ||
| + | |CreatePDFOutput | Gibt an, ob ein PDF im Ordner der Zeichnung gespeichert werden soll.| | ||
| + | |ExportAuthorData | Gibt an, ob Reitec.Testplan.Author-Daten exportiert werden sollen. | | ||
| + | |CalculateCommonTolerances | Gibt an, ob Allgemeintoleranzen berechnet werden sollen. Falls ja, muss der Parameter ' | ||
| + | |CommonToleranceClass | Name der Allgemeintoleranz, | ||
| + | |HasBubbles | Gibt zurück, ob die Zeichnung Stempelsymbole enthält.| | ||
| + | |Rückgabewert | Gibt an, ob der Export erfolgreich war. | | ||
| + | |||
| + | ===== Funktion: ExportExcel ===== | ||
| + | |||
| + | <code vb> | ||
| + | Function ExportExcel(FileName As String, TestplanTypeName As String, CreatePDFOutput As Boolean, CreatePDFSource As Boolean, ExportAuthorData As Boolean, CalculateCommonTolerances As Boolean, CommonToleranceClass As String, ExcelTemplateFileName As String, HideWorksheet As Boolean, ByRef HasBubbles As Boolean) | ||
| + | </ | ||
| + | |||
| + | **Funktionsparameter: | ||
| + | ^Name ^Beschreibung^ | ||
| + | |FileName | Vollständiger Dateiname der Datei in der die Daten gespeichert werden sollen.| | ||
| + | |TestplanTypeName | Name der Prüfplandefinition, | ||
| + | |CreatePDFOutput | Gibt an, ob ein PDF im Ausgabepfad gespeichert werden soll. | | ||
| + | |CreatePDFOutput | Gibt an, ob ein PDF im Ordner der Zeichnung gespeichert werden soll.| | ||
| + | |ExportAuthorData | Gibt an, ob Reitec.Testplan.Author-Daten exportiert werden sollen. | | ||
| + | |CalculateCommonTolerances | Gibt an, ob Allgemeintoleranzen berechnet werden sollen. Falls ja, muss der Parameter ' | ||
| + | |CommonToleranceClass | Name der Allgemeintoleranz, | ||
| + | |ExcelTemplateFileName|Vollständiger Dateiname der beim Export zu verwendenden Excel-Vorlage. | | ||
| + | |HideWorksheet | Gib an, ob das Arbeitsblatt mit den Testplan-Daten ausgeblendet werden soll. | | ||
| + | |HasBubbles | Gibt zurück, ob die Zeichnung Stempelsymbole enthält.| | ||
| + | |Rückgabewert | Gibt an, ob der Export erfolgreich war. | | ||
| + | |||
| + | ===== Funktion: Refresh ===== | ||
| + | Aktualisiert die Merkmalsdaten eines Prüfplans. | ||
| + | |||
| + | <code vb> | ||
| + | | ||
| + | </ | ||
| + | |||
| + | **Funktionsparameter: | ||
| + | ^Name ^Beschreibung^ | ||
| + | |TestplanTypeName | Name der Prüfplandefinition, | ||
| + | |||
| + | ===== Beispiel-Makro mit Aufruf der Schnittstelle ===== | ||
| + | |||
| + | <code vb> | ||
| + | Sub TestplanExportTest() | ||
| + | Dim xlsxOutputFile As String | ||
| + | Dim dfdOutputFile As String | ||
| + | Dim hasBubbles As Boolean | ||
| + | Dim testplanType As String | ||
| + | Dim createPDF As Boolean | ||
| + | Dim exportAuthorData As Boolean | ||
| + | Dim calculateCommonTolerances As Boolean | ||
| + | Dim commonToleranceClass As String | ||
| + | Dim hideExcelWorksheet As Boolean | ||
| + | Dim excelTemplateFilename As String | ||
| + | | ||
| + | | ||
| + | ' | ||
| + | xlsxOutputFile = " | ||
| + | dfdOutputFile = " | ||
| + | testplanType = " | ||
| + | createPDF = False | ||
| + | exportAuthorData = False | ||
| + | calculateCommonTolerances = True | ||
| + | commonToleranceClass = "ISO 2768f" | ||
| + | hideExcelWorksheet = True | ||
| + | excelTemplateFilename = " | ||
| + | |||
| + | 'get AddIn | ||
| + | Dim addins As Object | ||
| + | Dim addin As Object | ||
| + | Dim addinObject As Object | ||
| + | Dim result As String | ||
| + | | ||
| + | Set addins = ThisApplication.ApplicationAddIns | ||
| + | Set addin = addins.ItemById(" | ||
| + | |||
| + | Set addinObject = addin.Automation | ||
| + | 'XLSX export | ||
| + | result = addinObject.ExportExcel(xlsxOutputFile, | ||
| + | | ||
| + | If result = True And hasBubbles = True Then | ||
| + | 'DFD export | ||
| + | result = addinObject.Export(dfdOutputFile, | ||
| + | End If | ||
| + | End Sub | ||
| + | </ | ||