Hallo zusammen
als erstes ich bin absoluter Neuling in sachen vbs script's
zu meinen Problem:
Ich arbeite mit der Software PC-DMIS 2023.2 (3D-Messsoftware von Hexagon) Die Software basiert auf VB6, Programmiert wird über Buttons und dem CAD.
Ich habe das Problem wenn das Messprogramm in einer Schleife läuft(für mehrere Teile) werden beim Befehl das Excel(Mit den Messwerten) zu erzeugen meine Tracefields mit den Variablen nicht abgerufen. Was ganz seltsam ist beim ersten Teil funktionierts,ab dem zweiten nicht mehr, und noch seltsamer ist die pdf erzeugung funktioniert immer, also sind die Daten der Tracefields irgendwo im hintergrund.
Die Excel Datei ist eine Vorlage und wird über einen Befehl in PC-Dmis aufgerufen. Die Variablen(V11,V12,V13,V14,V5,V6,V9,V10) werden dort auch zugewiesen so wie auch die Messwerte.
Ich möchte ein Script schreiben das die Tracefields vor dem Befehl der Exceldatei noch einmal aktualisiert.
Ich habe mit den gängigen KI's schon versucht eines zuschreiben. Aber das war nur Try & Error und wenn man keine Ahnung hat was da abgeht ist es nur deprimierend.
Ich habe meine Programm-Vorlage mal als VB exportiert, die Pdf, Erzeugung beginnt in Linie 404. Die Excel-Datei 440
Hoffe es ist für euch verständlich was ich möchte und mir kann jemand Helfen
als erstes ich bin absoluter Neuling in sachen vbs script's
zu meinen Problem:
Ich arbeite mit der Software PC-DMIS 2023.2 (3D-Messsoftware von Hexagon) Die Software basiert auf VB6, Programmiert wird über Buttons und dem CAD.
Ich habe das Problem wenn das Messprogramm in einer Schleife läuft(für mehrere Teile) werden beim Befehl das Excel(Mit den Messwerten) zu erzeugen meine Tracefields mit den Variablen nicht abgerufen. Was ganz seltsam ist beim ersten Teil funktionierts,ab dem zweiten nicht mehr, und noch seltsamer ist die pdf erzeugung funktioniert immer, also sind die Daten der Tracefields irgendwo im hintergrund.
Die Excel Datei ist eine Vorlage und wird über einen Befehl in PC-Dmis aufgerufen. Die Variablen(V11,V12,V13,V14,V5,V6,V9,V10) werden dort auch zugewiesen so wie auch die Messwerte.
Ich möchte ein Script schreiben das die Tracefields vor dem Befehl der Exceldatei noch einmal aktualisiert.
Ich habe mit den gängigen KI's schon versucht eines zuschreiben. Aber das war nur Try & Error und wenn man keine Ahnung hat was da abgeht ist es nur deprimierend.
Ich habe meine Programm-Vorlage mal als VB exportiert, die Pdf, Erzeugung beginnt in Linie 404. Die Excel-Datei 440

Hoffe es ist für euch verständlich was ich möchte und mir kann jemand Helfen

Quellcode
- Dim DmisApp As Object
- Dim DmisPart As Object
- Dim DmisCommands As Object
- Dim DmisCommand As Object
- Sub Part1
- Set DmisApp = CreateObject("PCDLRN.Application")
- Set DmisPart = DmisApp.ActivePartProgram
- Set DmisCommands = DmisPart.Commands
- CommandCount = DmisCommands.Count
- Set DmisCommand = DmisCommands.Item(CommandCount)
- DmisCommands.InsertionPointAfter DmisCommand
- Set DmisCommand = DmisCommands.Add(START_ALIGN, TRUE)
- DmisCommand.Marked = TRUE
- ' Set ID = START
- retval = DmisCommand.PutText ("START", ID, 0)
- ' Set Bezugs-ID Item 1 = WERKSTÜCK_SETUP_VERWENDEN
- retval = DmisCommand.PutText ("WERKSTÜCK_SETUP_VERWENDEN", REF_ID, 1)
- ' Set Ausrichtungsliste = JA
- retval = DmisCommand.SetToggleString (2, ALIGN_LIST, 0)
- Set DmisCommand = DmisCommands.Add(END_ALIGN, TRUE)
- DmisCommand.Marked = TRUE
- Set DmisCommand = DmisCommands.Add(MAN_DCC_MODE, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Modus = MANUELL
- retval = DmisCommand.SetToggleString (2, MODE_TYPE, 0)
- Set DmisCommand = DmisCommands.Add(PREHIT_DISTANCE, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Abstand = 2.54
- retval = DmisCommand.PutText ("2.54", DISTANCE, 0)
- Set DmisCommand = DmisCommands.Add(RETRACT_DISTANCE, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Abstand = 2.54
- retval = DmisCommand.PutText ("2.54", DISTANCE, 0)
- Set DmisCommand = DmisCommands.Add(MOVE_SPEED, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Bewegungsgeschwindigkeit = 100
- retval = DmisCommand.PutText ("100", F_MOVESPEED, 0)
- Set DmisCommand = DmisCommands.Add(DIMENSION_FORMAT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Merkmaltext = TEXT
- retval = DmisCommand.SetToggleString (1, DIM_TEXT, 0)
- ' Set Optionen für Merkmaltext = OPTIONEN
- retval = DmisCommand.SetToggleString (2, DIM_TEXT_OPTIONS, 0)
- ' Set Überschriften = ÜBERSCHRIFTEN
- retval = DmisCommand.SetToggleString (3, SHOW_HEADINGS, 0)
- ' Set Symbole einblenden = SYMBOLE
- retval = DmisCommand.SetToggleString (4, DEVIATION_SYMBOLS, 0)
- ' Set Standardabweichung =
- retval = DmisCommand.SetToggleString (7, STANDARD_DEVIATION, 0)
- ' Set Merkmalüberschrift Item 1 = NENNW
- retval = DmisCommand.SetToggleString (1, DIM_HEADING, 1)
- ' Set Merkmalüberschrift Item 2 = TOL
- retval = DmisCommand.SetToggleString (2, DIM_HEADING, 2)
- ' Set Merkmalüberschrift Item 3 = MESS
- retval = DmisCommand.SetToggleString (3, DIM_HEADING, 3)
- ' Set Merkmalüberschrift Item 4 = ABW
- retval = DmisCommand.SetToggleString (5, DIM_HEADING, 4)
- ' Set Merkmalüberschrift Item 5 = AUS_TOL
- retval = DmisCommand.SetToggleString (6, DIM_HEADING, 5)
- Set DmisCommand = DmisCommands.Add(GET_PROBE_DATA, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Dateiname = 0_5X20
- retval = DmisCommand.PutText ("0_5X20", FILE_NAME, 0)
- Set DmisCommand = DmisCommands.Add(SET_ACTIVE_TIP, TRUE)
- DmisCommand.Marked = TRUE
- ' Set ID = T1A0B0
- retval = DmisCommand.PutText ("T1A0B0", REF_ID, 0)
- ' Set Tastspitze I = 0
- retval = DmisCommand.PutText ("0", TIP_I, 0)
- ' Set Tastspitze J = 0
- retval = DmisCommand.PutText ("0", TIP_J, 0)
- ' Set Tastspitze K = 1
- retval = DmisCommand.PutText ("1", TIP_K, 0)
- ' Set Theoretischer Winkel = 0
- retval = DmisCommand.PutText ("0", THEO_ANGLE, 0)
- Set DmisCommand = DmisCommands.Add(RECALL_ALIGN, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Innen/Außen = EXTERN
- retval = DmisCommand.SetToggleString (2, INTERNAL_EXTERNAL, 0)
- ' Set Bezugs-ID = Außen
- retval = DmisCommand.PutText ("Außen", REF_ID, 0)
- ' Set Dateiname = EROWA
- retval = DmisCommand.PutText ("EROWA", FILE_NAME, 0)
- Set DmisCommand = DmisCommands.Add(MANRETRACT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Tasterrückzug = 0.5
- retval = DmisCommand.PutText ("0.5", MAN_RETRACT, 0)
- Set DmisCommand = DmisCommands.Add(EW_GROUP_START, TRUE)
- DmisCommand.Marked = TRUE
- ' Set ID = TRACEFIELDS
- retval = DmisCommand.PutText ("TRACEFIELDS", ID, 0)
- ' Set Details einblenden = JA
- retval = DmisCommand.SetToggleString (2, SHOW_DETAILS, 0)
- Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Datenquelle = 0
- retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
- ' Set Anzeige = NEIN
- retval = DmisCommand.SetToggleString (1, DISPLAY_TRACE, 0)
- ' Set PROTOKOLL = NEIN
- retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
- ' Set Nachricht anzeigen = Arbeitsgang
- retval = DmisCommand.PutText ("Arbeitsgang", TRACE_DISPLAY_MESSAGE, 0)
- ' Set Name = Arbeitsgang
- retval = DmisCommand.PutText ("Arbeitsgang", TRACE_NAME, 0)
- ' Set Wert = Kontur Fräsen
- retval = DmisCommand.PutText ("Kontur Fräsen", TRACE_VALUE, 0)
- Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Datenquelle = 0
- retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
- ' Set Anzeige = NEIN
- retval = DmisCommand.SetToggleString (1, DISPLAY_TRACE, 0)
- ' Set PROTOKOLL = NEIN
- retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
- ' Set Nachricht anzeigen = Artikelnummer
- retval = DmisCommand.PutText ("Artikelnummer", TRACE_DISPLAY_MESSAGE, 0)
- ' Set Name = Artikelnummer
- retval = DmisCommand.PutText ("Artikelnummer", TRACE_NAME, 0)
- ' Set Wert = 122760
- retval = DmisCommand.PutText ("122760", TRACE_VALUE, 0)
- Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Datenquelle = 0
- retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
- ' Set Anzeige = NEIN
- retval = DmisCommand.SetToggleString (1, DISPLAY_TRACE, 0)
- ' Set PROTOKOLL = NEIN
- retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
- ' Set Nachricht anzeigen = Zng. Intern
- retval = DmisCommand.PutText ("Zng. Intern", TRACE_DISPLAY_MESSAGE, 0)
- ' Set Name = Zng. Intern
- retval = DmisCommand.PutText ("Zng. Intern", TRACE_NAME, 0)
- ' Set Wert = 6.1602.002
- retval = DmisCommand.PutText ("6.1602.002", TRACE_VALUE, 0)
- Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Datenquelle = 0
- retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
- ' Set Anzeige = NEIN
- retval = DmisCommand.SetToggleString (1, DISPLAY_TRACE, 0)
- ' Set PROTOKOLL = NEIN
- retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
- ' Set Nachricht anzeigen = Zng. Kunde
- retval = DmisCommand.PutText ("Zng. Kunde", TRACE_DISPLAY_MESSAGE, 0)
- ' Set Name = Zng. Kunde
- retval = DmisCommand.PutText ("Zng. Kunde", TRACE_NAME, 0)
- ' Set Wert = 634-019-21-03-80
- retval = DmisCommand.PutText ("634-019-21-03-80", TRACE_VALUE, 0)
- Result = DmisCommand.SetExpression("""634-019-21-03-80""", TRACE_VALUE, 0)
- Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Datenquelle = 0
- retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
- ' Set Anzeige = JA
- retval = DmisCommand.SetToggleString (2, DISPLAY_TRACE, 0)
- ' Set PROTOKOLL = NEIN
- retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
- ' Set Nachricht anzeigen = FA Nummer
- retval = DmisCommand.PutText ("FA Nummer", TRACE_DISPLAY_MESSAGE, 0)
- ' Set Name = FA
- retval = DmisCommand.PutText ("FA", TRACE_NAME, 0)
- ' Set Wert = 123456
- retval = DmisCommand.PutText ("123456", TRACE_VALUE, 0)
- Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Datenquelle = 0
- retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
- ' Set Anzeige = JA
- retval = DmisCommand.SetToggleString (2, DISPLAY_TRACE, 0)
- ' Set PROTOKOLL = NEIN
- retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
- ' Set Nachricht anzeigen = Prüfer
- retval = DmisCommand.PutText ("Prüfer", TRACE_DISPLAY_MESSAGE, 0)
- ' Set Name = Prüfer
- retval = DmisCommand.PutText ("Prüfer", TRACE_NAME, 0)
- ' Set Wert Item 1 = PKN
- retval = DmisCommand.PutText ("PKN", TRACE_VALUE_OPTION, 1)
- ' Set Wert Item 2 = YSC
- retval = DmisCommand.PutText ("YSC", TRACE_VALUE_OPTION, 2)
- ' Set Wert Item 3 = RGU
- retval = DmisCommand.PutText ("RGU", TRACE_VALUE_OPTION, 3)
- ' Set Wert = PKN
- retval = DmisCommand.SetToggleString (1, TRACE_VALUE, 0)
- Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Datenquelle = 0
- retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
- ' Set Anzeige = JA
- retval = DmisCommand.SetToggleString (2, DISPLAY_TRACE, 0)
- ' Set PROTOKOLL = NEIN
- retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
- ' Set Nachricht anzeigen = Teilenummer
- retval = DmisCommand.PutText ("Teilenummer", TRACE_DISPLAY_MESSAGE, 0)
- ' Set Name = Teile Nummer
- retval = DmisCommand.PutText ("Teile Nummer", TRACE_NAME, 0)
- ' Set Wert = 1
- retval = DmisCommand.PutText ("1", TRACE_VALUE, 0)
- Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Datenquelle = 0
- retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
- ' Set Anzeige = JA
- retval = DmisCommand.SetToggleString (2, DISPLAY_TRACE, 0)
- ' Set PROTOKOLL = NEIN
- retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
- ' Set Nachricht anzeigen = Kommentar
- retval = DmisCommand.PutText ("Kommentar", TRACE_DISPLAY_MESSAGE, 0)
- ' Set Name = Kommentar
- retval = DmisCommand.PutText ("Kommentar", TRACE_NAME, 0)
- ' Set Wert = Test
- retval = DmisCommand.PutText ("Test", TRACE_VALUE, 0)
- Set DmisCommand = DmisCommands.Add(EW_GROUP_END, TRUE)
- DmisCommand.Marked = TRUE
- Set DmisCommand = DmisCommands.Add(EW_GROUP_START, TRUE)
- DmisCommand.Marked = TRUE
- ' Set ID = PROTOKOLLKOPF
- retval = DmisCommand.PutText ("PROTOKOLLKOPF", ID, 0)
- ' Set Details einblenden = JA
- retval = DmisCommand.SetToggleString (2, SHOW_DETAILS, 0)
- Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zielausdruck = V_GES
- retval = DmisCommand.PutText ("V_GES", DEST_EXPR, 0)
- ' Set Quellausdruck = GETCOMMAND(12345,""oben"",1)
- retval = DmisCommand.PutText ("GETCOMMAND(12345,""oben"",1)", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zielausdruck = V11
- retval = DmisCommand.PutText ("V11", DEST_EXPR, 0)
- ' Set Quellausdruck = GETTRACEVALUE(""Arbeitsgang"")
- retval = DmisCommand.PutText ("GETTRACEVALUE(""Arbeitsgang"")", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zielausdruck = V12
- retval = DmisCommand.PutText ("V12", DEST_EXPR, 0)
- ' Set Quellausdruck = GETTRACEVALUE(""Artikelnummer"")
- retval = DmisCommand.PutText ("GETTRACEVALUE(""Artikelnummer"")", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zielausdruck = V13
- retval = DmisCommand.PutText ("V13", DEST_EXPR, 0)
- ' Set Quellausdruck = GETTRACEVALUE(""Zng. Intern"")
- retval = DmisCommand.PutText ("GETTRACEVALUE(""Zng. Intern"")", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zielausdruck = V14
- retval = DmisCommand.PutText ("V14", DEST_EXPR, 0)
- ' Set Quellausdruck = GETTRACEVALUE(""FA"")
- retval = DmisCommand.PutText ("GETTRACEVALUE(""FA"")", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zielausdruck = V5
- retval = DmisCommand.PutText ("V5", DEST_EXPR, 0)
- ' Set Quellausdruck = GETTRACEVALUE(""Teile Nummer"")
- retval = DmisCommand.PutText ("GETTRACEVALUE(""Teile Nummer"")", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zielausdruck = V6
- retval = DmisCommand.PutText ("V6", DEST_EXPR, 0)
- ' Set Quellausdruck = GETTRACEVALUE(""Zng. Kunde"")
- retval = DmisCommand.PutText ("GETTRACEVALUE(""Zng. Kunde"")", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zielausdruck = V9
- retval = DmisCommand.PutText ("V9", DEST_EXPR, 0)
- ' Set Quellausdruck = GETTRACEVALUE(""Kommentar"")
- retval = DmisCommand.PutText ("GETTRACEVALUE(""Kommentar"")", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zielausdruck = V10
- retval = DmisCommand.PutText ("V10", DEST_EXPR, 0)
- ' Set Quellausdruck = GETTRACEVALUE(""Prüfer"")
- retval = DmisCommand.PutText ("GETTRACEVALUE(""Prüfer"")", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(EW_GROUP_END, TRUE)
- DmisCommand.Marked = TRUE
- Set DmisCommand = DmisCommands.Add(END_IF_COMMAND, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Modus = 3
- retval = DmisCommand.PutText ("3", MODE_TYPE, 0)
- Set DmisCommand = DmisCommands.Add(SET_COMMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set ID =
- retval = DmisCommand.PutText ("", ID, 0)
- ' Set Kommentartyp = $$
- retval = DmisCommand.SetToggleString (4, COMMENT_TYPE, 0)
- ' Set Kommentar Item 1 = *****************************************
- retval = DmisCommand.PutText ("*****************************************", COMMENT_FIELD, 1)
- ' Set Kommentar Item 2 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 2)
- ' Set Kommentar Item 3 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 3)
- ' Set Kommentar Item 4 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 4)
- ' Set Kommentar Item 5 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 5)
- ' Set Kommentar Item 6 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 6)
- ' Set Kommentar Item 7 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 7)
- ' Set Kommentar Item 8 = Messprogramm
- retval = DmisCommand.PutText ("Messprogramm", COMMENT_FIELD, 8)
- ' Set Kommentar Item 9 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 9)
- ' Set Kommentar Item 10 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 10)
- ' Set Kommentar Item 11 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 11)
- ' Set Kommentar Item 12 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 12)
- ' Set Kommentar Item 13 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 13)
- ' Set Kommentar Item 14 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 14)
- ' Set Kommentar Item 15 = *****************************************
- retval = DmisCommand.PutText ("*****************************************", COMMENT_FIELD, 15)
- ' Set Protokoll = NEIN
- retval = DmisCommand.SetToggleString (1, OUTPUT_TYPE, 0)
- Set DmisCommand = DmisCommands.Add(SET_COMMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set ID =
- retval = DmisCommand.PutText ("", ID, 0)
- ' Set Kommentartyp = $$
- retval = DmisCommand.SetToggleString (4, COMMENT_TYPE, 0)
- ' Set Kommentar Item 1 = *****************************************
- retval = DmisCommand.PutText ("*****************************************", COMMENT_FIELD, 1)
- ' Set Kommentar Item 2 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 2)
- ' Set Kommentar Item 3 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 3)
- ' Set Kommentar Item 4 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 4)
- ' Set Kommentar Item 5 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 5)
- ' Set Kommentar Item 6 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 6)
- ' Set Kommentar Item 7 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 7)
- ' Set Kommentar Item 8 = Auswertung der Messdaten
- retval = DmisCommand.PutText ("Auswertung der Messdaten", COMMENT_FIELD, 8)
- ' Set Kommentar Item 9 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 9)
- ' Set Kommentar Item 10 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 10)
- ' Set Kommentar Item 11 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 11)
- ' Set Kommentar Item 12 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 12)
- ' Set Kommentar Item 13 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 13)
- ' Set Kommentar Item 14 =
- retval = DmisCommand.PutText ("", COMMENT_FIELD, 14)
- ' Set Kommentar Item 15 = *****************************************
- retval = DmisCommand.PutText ("*****************************************", COMMENT_FIELD, 15)
- ' Set Protokoll = NEIN
- retval = DmisCommand.SetToggleString (1, OUTPUT_TYPE, 0)
- Set DmisCommand = DmisCommands.Add(HYPER_REPORT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set ID = CS2
- retval = DmisCommand.PutText ("CS2", ID, 0)
- ' Set Dateiname = TEXTONLY.RTP
- retval = DmisCommand.PutText ("TEXTONLY_BANGERTER.RTP", FILE_NAME, 0)
- ' Set Protokollmodus = SCHALTER
- retval = DmisCommand.SetToggleString (1, REPORT_MODE, 0)
- ' Set Section = -1
- retval = DmisCommand.PutText ("-1", SECTION_INDEX, 0)
- Set DmisCommand = DmisCommands.Add(PRINT_REPORT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zu Datei drucken = EIN
- retval = DmisCommand.SetToggleString (2, PRINT_TO_FILE, 0)
- ' Set Dateiname Item 1 = C:\Users\Hexagon\.............................................\TEST_VBA\123456_2_Test
- retval = DmisCommand.PutText ("C:\Users\Hexagon\.............................................\TEST_VBA\123456_2_Test", FILE_NAME, 1)
- ' Set Dateidruckmethode = ÜBERSCHREIBEN
- retval = DmisCommand.SetToggleString (2, FILE_COMMAND_TYPE, 0)
- ' Set Druckausgabeformat = PDF
- retval = DmisCommand.SetToggleString (2, PRINT_OUTFPUT_FORMAT_TYPE, 0)
- ' Set Protokoll zurücksetzen = JA
- retval = DmisCommand.SetToggleString (2, RESET_REPORT, 0)
- ' Set Autom. öffnen = AUS
- retval = DmisCommand.SetToggleString (1, ONOFF_TYPE, 0)
- ' Set Zu Drucker drucken = AUS
- retval = DmisCommand.SetToggleString (1, PRINT_TO_PRINTER, 0)
- ' Set Anzahl der Kopien = 1
- retval = DmisCommand.PutText ("1", INDEX_END, 0)
- ' Set Vorherige Ausführungen = INSTANZEN_LÖSCHEN
- retval = DmisCommand.SetToggleString (1, PRINT_DELETE_RUNS, 0)
- ' Set DMIS Ausgabe = AUS
- retval = DmisCommand.SetToggleString (1, OUTPUT_DMIS_REPORT, 0)
- ' Set Überschreiben = INDEX
- retval = DmisCommand.SetToggleString (1, OVERWRITE, 0)
- ' Set Theoretische Werte ausgeben = ALLE
- retval = DmisCommand.SetToggleString (2, OUTPUT_FEATURE_NOMS, 0)
- ' Set Elemente und Merkmale ausgeben = JA
- retval = DmisCommand.SetToggleString (2, OUTPUT_FEAT_W_DIMENS, 0)
- ' Set Modus = ENDE
- retval = DmisCommand.SetToggleString (2, MODE_TYPE, 0)
- ' Set Ausgabe nach Excel = AUS
- retval = DmisCommand.SetToggleString (1, OUTPUT_TO_REPORT, 0)
- ' Set Dateidruckmethode = ÜBERSCHREIBEN
- retval = DmisCommand.SetToggleString (2, UNIT_TYPE, 0)
- ' Set Autom. öffnen = AUS
- retval = DmisCommand.SetToggleString (1, OUTPUT_TYPE, 0)
- Result = DmisCommand.SetExpression("""C:\Users\Hexagon\.............................................\TEST_VBA\\""+V14+""_""+V5+""_""+V9+""", FILE_NAME, 1)
- Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zielausdruck = V5
- retval = DmisCommand.PutText ("V5", DEST_EXPR, 0)
- ' Set Quellausdruck = V5+1
- retval = DmisCommand.PutText ("V5+1", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Zielausdruck = V5
- retval = DmisCommand.PutText ("V5", DEST_EXPR, 0)
- ' Set Quellausdruck = ROUND()
- retval = DmisCommand.PutText ("ROUND()", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(IF_BLOCK_COMMAND, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Modus = 3
- retval = DmisCommand.PutText ("3", MODE_TYPE, 0)
- ' Set Quellausdruck = 0
- retval = DmisCommand.PutText ("0", SRC_EXPR, 0)
- Result = DmisCommand.SetExpression("LASTFIXTUREPLACE==""True""", SRC_EXPR, 0)
- Set DmisCommand = DmisCommands.Add(END_IF_COMMAND, TRUE)
- DmisCommand.Marked = TRUE
- ' Set Modus = 3
- retval = DmisCommand.PutText ("3", MODE_TYPE, 0)
- End Sub
- Sub Main
- Part1
- DmisPart.RefreshPart
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mr.Robot“ ()