Benutzer-Werkzeuge

Webseiten-Werkzeuge


de:testplaninv:33:automation

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 = „92C66D5F-1731-4B47-8FAA-A651DF4498CD“

Funktion: Export

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, die exportiert werden soll.
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' angegeben werden.
CommonToleranceClass Name der Allgemeintoleranz, die zur Berechnung der Allgemeintoleranzen verwendet werden soll.
HasBubbles Gibt zurück, ob die Zeichnung Stempelsymbole enthält.
Rückgabewert Gibt an, ob der Export erfolgreich war.

Funktion: ExportExcel

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, die exportiert werden soll.
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' angegeben werden.
CommonToleranceClass Name der Allgemeintoleranz, die zur Berechnung der Allgemeintoleranzen verwendet werden soll.
ExcelTemplateFileNameVollstä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.

 Public Function RefreshData(TestplanTypeName As String) As Boolean

Funktionsparameter:

Name Beschreibung
TestplanTypeName Name der Prüfplandefinition, deren Merkmalsdaten akutalisiert werden sollen.

Beispiel-Makro mit Aufruf der Schnittstelle

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
 
 
    'adjust file paths accordingly
    xlsxOutputFile = "C:\temp\Test.xlsx"
    dfdOutputFile = "C:\temp\Test.dfd"
    testplanType = "Full-Dimension_1"
    createPDF = False
    exportAuthorData = False
    calculateCommonTolerances = True
    commonToleranceClass = "ISO 2768f"
    hideExcelWorksheet = True
    excelTemplateFilename = "C:\temp\Testplan_Template.xlsx"
 
    '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("{92C66D5F-1731-4B47-8FAA-A651DF4498CD}")
 
    Set addinObject = addin.Automation
    'XLSX export
    result = addinObject.ExportExcel(xlsxOutputFile, testplanType, createPDF, createPDF, exportAuthorData, calculateCommonTolerances, commonToleranceClass, excelTemplateFilename, hideExcelWorksheet, hasBubbles)
 
    If result = True And hasBubbles = True Then
        'DFD export
        result = addinObject.Export(dfdOutputFile, testplanType, createPDF, createPDF, exportAuthorData, calculateCommonTolerances, commonToleranceClass, hasBubbles)
    End If
End Sub
de/testplaninv/33/automation.txt · Zuletzt geändert: 2022/06/24 14:06 von admin