PC-DMIS VBS Script für Tracefields

  • VBScript

    PC-DMIS VBS Script für Tracefields

    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 :D



    Quellcode

    1. Dim DmisApp As Object
    2. Dim DmisPart As Object
    3. Dim DmisCommands As Object
    4. Dim DmisCommand As Object
    5. Sub Part1
    6. Set DmisApp = CreateObject("PCDLRN.Application")
    7. Set DmisPart = DmisApp.ActivePartProgram
    8. Set DmisCommands = DmisPart.Commands
    9. CommandCount = DmisCommands.Count
    10. Set DmisCommand = DmisCommands.Item(CommandCount)
    11. DmisCommands.InsertionPointAfter DmisCommand
    12. Set DmisCommand = DmisCommands.Add(START_ALIGN, TRUE)
    13. DmisCommand.Marked = TRUE
    14. ' Set ID = START
    15. retval = DmisCommand.PutText ("START", ID, 0)
    16. ' Set Bezugs-ID Item 1 = WERKSTÜCK_SETUP_VERWENDEN
    17. retval = DmisCommand.PutText ("WERKSTÜCK_SETUP_VERWENDEN", REF_ID, 1)
    18. ' Set Ausrichtungsliste = JA
    19. retval = DmisCommand.SetToggleString (2, ALIGN_LIST, 0)
    20. Set DmisCommand = DmisCommands.Add(END_ALIGN, TRUE)
    21. DmisCommand.Marked = TRUE
    22. Set DmisCommand = DmisCommands.Add(MAN_DCC_MODE, TRUE)
    23. DmisCommand.Marked = TRUE
    24. ' Set Modus = MANUELL
    25. retval = DmisCommand.SetToggleString (2, MODE_TYPE, 0)
    26. Set DmisCommand = DmisCommands.Add(PREHIT_DISTANCE, TRUE)
    27. DmisCommand.Marked = TRUE
    28. ' Set Abstand = 2.54
    29. retval = DmisCommand.PutText ("2.54", DISTANCE, 0)
    30. Set DmisCommand = DmisCommands.Add(RETRACT_DISTANCE, TRUE)
    31. DmisCommand.Marked = TRUE
    32. ' Set Abstand = 2.54
    33. retval = DmisCommand.PutText ("2.54", DISTANCE, 0)
    34. Set DmisCommand = DmisCommands.Add(MOVE_SPEED, TRUE)
    35. DmisCommand.Marked = TRUE
    36. ' Set Bewegungsgeschwindigkeit = 100
    37. retval = DmisCommand.PutText ("100", F_MOVESPEED, 0)
    38. Set DmisCommand = DmisCommands.Add(DIMENSION_FORMAT, TRUE)
    39. DmisCommand.Marked = TRUE
    40. ' Set Merkmaltext = TEXT
    41. retval = DmisCommand.SetToggleString (1, DIM_TEXT, 0)
    42. ' Set Optionen für Merkmaltext = OPTIONEN
    43. retval = DmisCommand.SetToggleString (2, DIM_TEXT_OPTIONS, 0)
    44. ' Set Überschriften = ÜBERSCHRIFTEN
    45. retval = DmisCommand.SetToggleString (3, SHOW_HEADINGS, 0)
    46. ' Set Symbole einblenden = SYMBOLE
    47. retval = DmisCommand.SetToggleString (4, DEVIATION_SYMBOLS, 0)
    48. ' Set Standardabweichung =
    49. retval = DmisCommand.SetToggleString (7, STANDARD_DEVIATION, 0)
    50. ' Set Merkmalüberschrift Item 1 = NENNW
    51. retval = DmisCommand.SetToggleString (1, DIM_HEADING, 1)
    52. ' Set Merkmalüberschrift Item 2 = TOL
    53. retval = DmisCommand.SetToggleString (2, DIM_HEADING, 2)
    54. ' Set Merkmalüberschrift Item 3 = MESS
    55. retval = DmisCommand.SetToggleString (3, DIM_HEADING, 3)
    56. ' Set Merkmalüberschrift Item 4 = ABW
    57. retval = DmisCommand.SetToggleString (5, DIM_HEADING, 4)
    58. ' Set Merkmalüberschrift Item 5 = AUS_TOL
    59. retval = DmisCommand.SetToggleString (6, DIM_HEADING, 5)
    60. Set DmisCommand = DmisCommands.Add(GET_PROBE_DATA, TRUE)
    61. DmisCommand.Marked = TRUE
    62. ' Set Dateiname = 0_5X20
    63. retval = DmisCommand.PutText ("0_5X20", FILE_NAME, 0)
    64. Set DmisCommand = DmisCommands.Add(SET_ACTIVE_TIP, TRUE)
    65. DmisCommand.Marked = TRUE
    66. ' Set ID = T1A0B0
    67. retval = DmisCommand.PutText ("T1A0B0", REF_ID, 0)
    68. ' Set Tastspitze I = 0
    69. retval = DmisCommand.PutText ("0", TIP_I, 0)
    70. ' Set Tastspitze J = 0
    71. retval = DmisCommand.PutText ("0", TIP_J, 0)
    72. ' Set Tastspitze K = 1
    73. retval = DmisCommand.PutText ("1", TIP_K, 0)
    74. ' Set Theoretischer Winkel = 0
    75. retval = DmisCommand.PutText ("0", THEO_ANGLE, 0)
    76. Set DmisCommand = DmisCommands.Add(RECALL_ALIGN, TRUE)
    77. DmisCommand.Marked = TRUE
    78. ' Set Innen/Außen = EXTERN
    79. retval = DmisCommand.SetToggleString (2, INTERNAL_EXTERNAL, 0)
    80. ' Set Bezugs-ID = Außen
    81. retval = DmisCommand.PutText ("Außen", REF_ID, 0)
    82. ' Set Dateiname = EROWA
    83. retval = DmisCommand.PutText ("EROWA", FILE_NAME, 0)
    84. Set DmisCommand = DmisCommands.Add(MANRETRACT, TRUE)
    85. DmisCommand.Marked = TRUE
    86. ' Set Tasterrückzug = 0.5
    87. retval = DmisCommand.PutText ("0.5", MAN_RETRACT, 0)
    88. Set DmisCommand = DmisCommands.Add(EW_GROUP_START, TRUE)
    89. DmisCommand.Marked = TRUE
    90. ' Set ID = TRACEFIELDS
    91. retval = DmisCommand.PutText ("TRACEFIELDS", ID, 0)
    92. ' Set Details einblenden = JA
    93. retval = DmisCommand.SetToggleString (2, SHOW_DETAILS, 0)
    94. Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    95. DmisCommand.Marked = TRUE
    96. ' Set Datenquelle = 0
    97. retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
    98. ' Set Anzeige = NEIN
    99. retval = DmisCommand.SetToggleString (1, DISPLAY_TRACE, 0)
    100. ' Set PROTOKOLL = NEIN
    101. retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
    102. ' Set Nachricht anzeigen = Arbeitsgang
    103. retval = DmisCommand.PutText ("Arbeitsgang", TRACE_DISPLAY_MESSAGE, 0)
    104. ' Set Name = Arbeitsgang
    105. retval = DmisCommand.PutText ("Arbeitsgang", TRACE_NAME, 0)
    106. ' Set Wert = Kontur Fräsen
    107. retval = DmisCommand.PutText ("Kontur Fräsen", TRACE_VALUE, 0)
    108. Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    109. DmisCommand.Marked = TRUE
    110. ' Set Datenquelle = 0
    111. retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
    112. ' Set Anzeige = NEIN
    113. retval = DmisCommand.SetToggleString (1, DISPLAY_TRACE, 0)
    114. ' Set PROTOKOLL = NEIN
    115. retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
    116. ' Set Nachricht anzeigen = Artikelnummer
    117. retval = DmisCommand.PutText ("Artikelnummer", TRACE_DISPLAY_MESSAGE, 0)
    118. ' Set Name = Artikelnummer
    119. retval = DmisCommand.PutText ("Artikelnummer", TRACE_NAME, 0)
    120. ' Set Wert = 122760
    121. retval = DmisCommand.PutText ("122760", TRACE_VALUE, 0)
    122. Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    123. DmisCommand.Marked = TRUE
    124. ' Set Datenquelle = 0
    125. retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
    126. ' Set Anzeige = NEIN
    127. retval = DmisCommand.SetToggleString (1, DISPLAY_TRACE, 0)
    128. ' Set PROTOKOLL = NEIN
    129. retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
    130. ' Set Nachricht anzeigen = Zng. Intern
    131. retval = DmisCommand.PutText ("Zng. Intern", TRACE_DISPLAY_MESSAGE, 0)
    132. ' Set Name = Zng. Intern
    133. retval = DmisCommand.PutText ("Zng. Intern", TRACE_NAME, 0)
    134. ' Set Wert = 6.1602.002
    135. retval = DmisCommand.PutText ("6.1602.002", TRACE_VALUE, 0)
    136. Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    137. DmisCommand.Marked = TRUE
    138. ' Set Datenquelle = 0
    139. retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
    140. ' Set Anzeige = NEIN
    141. retval = DmisCommand.SetToggleString (1, DISPLAY_TRACE, 0)
    142. ' Set PROTOKOLL = NEIN
    143. retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
    144. ' Set Nachricht anzeigen = Zng. Kunde
    145. retval = DmisCommand.PutText ("Zng. Kunde", TRACE_DISPLAY_MESSAGE, 0)
    146. ' Set Name = Zng. Kunde
    147. retval = DmisCommand.PutText ("Zng. Kunde", TRACE_NAME, 0)
    148. ' Set Wert = 634-019-21-03-80
    149. retval = DmisCommand.PutText ("634-019-21-03-80", TRACE_VALUE, 0)
    150. Result = DmisCommand.SetExpression("""634-019-21-03-80""", TRACE_VALUE, 0)
    151. Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    152. DmisCommand.Marked = TRUE
    153. ' Set Datenquelle = 0
    154. retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
    155. ' Set Anzeige = JA
    156. retval = DmisCommand.SetToggleString (2, DISPLAY_TRACE, 0)
    157. ' Set PROTOKOLL = NEIN
    158. retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
    159. ' Set Nachricht anzeigen = FA Nummer
    160. retval = DmisCommand.PutText ("FA Nummer", TRACE_DISPLAY_MESSAGE, 0)
    161. ' Set Name = FA
    162. retval = DmisCommand.PutText ("FA", TRACE_NAME, 0)
    163. ' Set Wert = 123456
    164. retval = DmisCommand.PutText ("123456", TRACE_VALUE, 0)
    165. Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    166. DmisCommand.Marked = TRUE
    167. ' Set Datenquelle = 0
    168. retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
    169. ' Set Anzeige = JA
    170. retval = DmisCommand.SetToggleString (2, DISPLAY_TRACE, 0)
    171. ' Set PROTOKOLL = NEIN
    172. retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
    173. ' Set Nachricht anzeigen = Prüfer
    174. retval = DmisCommand.PutText ("Prüfer", TRACE_DISPLAY_MESSAGE, 0)
    175. ' Set Name = Prüfer
    176. retval = DmisCommand.PutText ("Prüfer", TRACE_NAME, 0)
    177. ' Set Wert Item 1 = PKN
    178. retval = DmisCommand.PutText ("PKN", TRACE_VALUE_OPTION, 1)
    179. ' Set Wert Item 2 = YSC
    180. retval = DmisCommand.PutText ("YSC", TRACE_VALUE_OPTION, 2)
    181. ' Set Wert Item 3 = RGU
    182. retval = DmisCommand.PutText ("RGU", TRACE_VALUE_OPTION, 3)
    183. ' Set Wert = PKN
    184. retval = DmisCommand.SetToggleString (1, TRACE_VALUE, 0)
    185. Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    186. DmisCommand.Marked = TRUE
    187. ' Set Datenquelle = 0
    188. retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
    189. ' Set Anzeige = JA
    190. retval = DmisCommand.SetToggleString (2, DISPLAY_TRACE, 0)
    191. ' Set PROTOKOLL = NEIN
    192. retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
    193. ' Set Nachricht anzeigen = Teilenummer
    194. retval = DmisCommand.PutText ("Teilenummer", TRACE_DISPLAY_MESSAGE, 0)
    195. ' Set Name = Teile Nummer
    196. retval = DmisCommand.PutText ("Teile Nummer", TRACE_NAME, 0)
    197. ' Set Wert = 1
    198. retval = DmisCommand.PutText ("1", TRACE_VALUE, 0)
    199. Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    200. DmisCommand.Marked = TRUE
    201. ' Set Datenquelle = 0
    202. retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
    203. ' Set Anzeige = JA
    204. retval = DmisCommand.SetToggleString (2, DISPLAY_TRACE, 0)
    205. ' Set PROTOKOLL = NEIN
    206. retval = DmisCommand.SetToggleString (1, TRACE_DISPLAY_ONREPORT, 0)
    207. ' Set Nachricht anzeigen = Kommentar
    208. retval = DmisCommand.PutText ("Kommentar", TRACE_DISPLAY_MESSAGE, 0)
    209. ' Set Name = Kommentar
    210. retval = DmisCommand.PutText ("Kommentar", TRACE_NAME, 0)
    211. ' Set Wert = Test
    212. retval = DmisCommand.PutText ("Test", TRACE_VALUE, 0)
    213. Set DmisCommand = DmisCommands.Add(EW_GROUP_END, TRUE)
    214. DmisCommand.Marked = TRUE
    215. Set DmisCommand = DmisCommands.Add(EW_GROUP_START, TRUE)
    216. DmisCommand.Marked = TRUE
    217. ' Set ID = PROTOKOLLKOPF
    218. retval = DmisCommand.PutText ("PROTOKOLLKOPF", ID, 0)
    219. ' Set Details einblenden = JA
    220. retval = DmisCommand.SetToggleString (2, SHOW_DETAILS, 0)
    221. Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    222. DmisCommand.Marked = TRUE
    223. ' Set Zielausdruck = V_GES
    224. retval = DmisCommand.PutText ("V_GES", DEST_EXPR, 0)
    225. ' Set Quellausdruck = GETCOMMAND(12345,""oben"",1)
    226. retval = DmisCommand.PutText ("GETCOMMAND(12345,""oben"",1)", SRC_EXPR, 0)
    227. Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    228. DmisCommand.Marked = TRUE
    229. ' Set Zielausdruck = V11
    230. retval = DmisCommand.PutText ("V11", DEST_EXPR, 0)
    231. ' Set Quellausdruck = GETTRACEVALUE(""Arbeitsgang"")
    232. retval = DmisCommand.PutText ("GETTRACEVALUE(""Arbeitsgang"")", SRC_EXPR, 0)
    233. Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    234. DmisCommand.Marked = TRUE
    235. ' Set Zielausdruck = V12
    236. retval = DmisCommand.PutText ("V12", DEST_EXPR, 0)
    237. ' Set Quellausdruck = GETTRACEVALUE(""Artikelnummer"")
    238. retval = DmisCommand.PutText ("GETTRACEVALUE(""Artikelnummer"")", SRC_EXPR, 0)
    239. Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    240. DmisCommand.Marked = TRUE
    241. ' Set Zielausdruck = V13
    242. retval = DmisCommand.PutText ("V13", DEST_EXPR, 0)
    243. ' Set Quellausdruck = GETTRACEVALUE(""Zng. Intern"")
    244. retval = DmisCommand.PutText ("GETTRACEVALUE(""Zng. Intern"")", SRC_EXPR, 0)
    245. Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    246. DmisCommand.Marked = TRUE
    247. ' Set Zielausdruck = V14
    248. retval = DmisCommand.PutText ("V14", DEST_EXPR, 0)
    249. ' Set Quellausdruck = GETTRACEVALUE(""FA"")
    250. retval = DmisCommand.PutText ("GETTRACEVALUE(""FA"")", SRC_EXPR, 0)
    251. Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    252. DmisCommand.Marked = TRUE
    253. ' Set Zielausdruck = V5
    254. retval = DmisCommand.PutText ("V5", DEST_EXPR, 0)
    255. ' Set Quellausdruck = GETTRACEVALUE(""Teile Nummer"")
    256. retval = DmisCommand.PutText ("GETTRACEVALUE(""Teile Nummer"")", SRC_EXPR, 0)
    257. Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    258. DmisCommand.Marked = TRUE
    259. ' Set Zielausdruck = V6
    260. retval = DmisCommand.PutText ("V6", DEST_EXPR, 0)
    261. ' Set Quellausdruck = GETTRACEVALUE(""Zng. Kunde"")
    262. retval = DmisCommand.PutText ("GETTRACEVALUE(""Zng. Kunde"")", SRC_EXPR, 0)
    263. Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    264. DmisCommand.Marked = TRUE
    265. ' Set Zielausdruck = V9
    266. retval = DmisCommand.PutText ("V9", DEST_EXPR, 0)
    267. ' Set Quellausdruck = GETTRACEVALUE(""Kommentar"")
    268. retval = DmisCommand.PutText ("GETTRACEVALUE(""Kommentar"")", SRC_EXPR, 0)
    269. Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    270. DmisCommand.Marked = TRUE
    271. ' Set Zielausdruck = V10
    272. retval = DmisCommand.PutText ("V10", DEST_EXPR, 0)
    273. ' Set Quellausdruck = GETTRACEVALUE(""Prüfer"")
    274. retval = DmisCommand.PutText ("GETTRACEVALUE(""Prüfer"")", SRC_EXPR, 0)
    275. Set DmisCommand = DmisCommands.Add(EW_GROUP_END, TRUE)
    276. DmisCommand.Marked = TRUE
    277. Set DmisCommand = DmisCommands.Add(END_IF_COMMAND, TRUE)
    278. DmisCommand.Marked = TRUE
    279. ' Set Modus = 3
    280. retval = DmisCommand.PutText ("3", MODE_TYPE, 0)
    281. Set DmisCommand = DmisCommands.Add(SET_COMMENT, TRUE)
    282. DmisCommand.Marked = TRUE
    283. ' Set ID =
    284. retval = DmisCommand.PutText ("", ID, 0)
    285. ' Set Kommentartyp = $$
    286. retval = DmisCommand.SetToggleString (4, COMMENT_TYPE, 0)
    287. ' Set Kommentar Item 1 = *****************************************
    288. retval = DmisCommand.PutText ("*****************************************", COMMENT_FIELD, 1)
    289. ' Set Kommentar Item 2 =
    290. retval = DmisCommand.PutText ("", COMMENT_FIELD, 2)
    291. ' Set Kommentar Item 3 =
    292. retval = DmisCommand.PutText ("", COMMENT_FIELD, 3)
    293. ' Set Kommentar Item 4 =
    294. retval = DmisCommand.PutText ("", COMMENT_FIELD, 4)
    295. ' Set Kommentar Item 5 =
    296. retval = DmisCommand.PutText ("", COMMENT_FIELD, 5)
    297. ' Set Kommentar Item 6 =
    298. retval = DmisCommand.PutText ("", COMMENT_FIELD, 6)
    299. ' Set Kommentar Item 7 =
    300. retval = DmisCommand.PutText ("", COMMENT_FIELD, 7)
    301. ' Set Kommentar Item 8 = Messprogramm
    302. retval = DmisCommand.PutText ("Messprogramm", COMMENT_FIELD, 8)
    303. ' Set Kommentar Item 9 =
    304. retval = DmisCommand.PutText ("", COMMENT_FIELD, 9)
    305. ' Set Kommentar Item 10 =
    306. retval = DmisCommand.PutText ("", COMMENT_FIELD, 10)
    307. ' Set Kommentar Item 11 =
    308. retval = DmisCommand.PutText ("", COMMENT_FIELD, 11)
    309. ' Set Kommentar Item 12 =
    310. retval = DmisCommand.PutText ("", COMMENT_FIELD, 12)
    311. ' Set Kommentar Item 13 =
    312. retval = DmisCommand.PutText ("", COMMENT_FIELD, 13)
    313. ' Set Kommentar Item 14 =
    314. retval = DmisCommand.PutText ("", COMMENT_FIELD, 14)
    315. ' Set Kommentar Item 15 = *****************************************
    316. retval = DmisCommand.PutText ("*****************************************", COMMENT_FIELD, 15)
    317. ' Set Protokoll = NEIN
    318. retval = DmisCommand.SetToggleString (1, OUTPUT_TYPE, 0)
    319. Set DmisCommand = DmisCommands.Add(SET_COMMENT, TRUE)
    320. DmisCommand.Marked = TRUE
    321. ' Set ID =
    322. retval = DmisCommand.PutText ("", ID, 0)
    323. ' Set Kommentartyp = $$
    324. retval = DmisCommand.SetToggleString (4, COMMENT_TYPE, 0)
    325. ' Set Kommentar Item 1 = *****************************************
    326. retval = DmisCommand.PutText ("*****************************************", COMMENT_FIELD, 1)
    327. ' Set Kommentar Item 2 =
    328. retval = DmisCommand.PutText ("", COMMENT_FIELD, 2)
    329. ' Set Kommentar Item 3 =
    330. retval = DmisCommand.PutText ("", COMMENT_FIELD, 3)
    331. ' Set Kommentar Item 4 =
    332. retval = DmisCommand.PutText ("", COMMENT_FIELD, 4)
    333. ' Set Kommentar Item 5 =
    334. retval = DmisCommand.PutText ("", COMMENT_FIELD, 5)
    335. ' Set Kommentar Item 6 =
    336. retval = DmisCommand.PutText ("", COMMENT_FIELD, 6)
    337. ' Set Kommentar Item 7 =
    338. retval = DmisCommand.PutText ("", COMMENT_FIELD, 7)
    339. ' Set Kommentar Item 8 = Auswertung der Messdaten
    340. retval = DmisCommand.PutText ("Auswertung der Messdaten", COMMENT_FIELD, 8)
    341. ' Set Kommentar Item 9 =
    342. retval = DmisCommand.PutText ("", COMMENT_FIELD, 9)
    343. ' Set Kommentar Item 10 =
    344. retval = DmisCommand.PutText ("", COMMENT_FIELD, 10)
    345. ' Set Kommentar Item 11 =
    346. retval = DmisCommand.PutText ("", COMMENT_FIELD, 11)
    347. ' Set Kommentar Item 12 =
    348. retval = DmisCommand.PutText ("", COMMENT_FIELD, 12)
    349. ' Set Kommentar Item 13 =
    350. retval = DmisCommand.PutText ("", COMMENT_FIELD, 13)
    351. ' Set Kommentar Item 14 =
    352. retval = DmisCommand.PutText ("", COMMENT_FIELD, 14)
    353. ' Set Kommentar Item 15 = *****************************************
    354. retval = DmisCommand.PutText ("*****************************************", COMMENT_FIELD, 15)
    355. ' Set Protokoll = NEIN
    356. retval = DmisCommand.SetToggleString (1, OUTPUT_TYPE, 0)
    357. Set DmisCommand = DmisCommands.Add(HYPER_REPORT, TRUE)
    358. DmisCommand.Marked = TRUE
    359. ' Set ID = CS2
    360. retval = DmisCommand.PutText ("CS2", ID, 0)
    361. ' Set Dateiname = TEXTONLY.RTP
    362. retval = DmisCommand.PutText ("TEXTONLY_BANGERTER.RTP", FILE_NAME, 0)
    363. ' Set Protokollmodus = SCHALTER
    364. retval = DmisCommand.SetToggleString (1, REPORT_MODE, 0)
    365. ' Set Section = -1
    366. retval = DmisCommand.PutText ("-1", SECTION_INDEX, 0)
    367. Set DmisCommand = DmisCommands.Add(PRINT_REPORT, TRUE)
    368. DmisCommand.Marked = TRUE
    369. ' Set Zu Datei drucken = EIN
    370. retval = DmisCommand.SetToggleString (2, PRINT_TO_FILE, 0)
    371. ' Set Dateiname Item 1 = C:\Users\Hexagon\.............................................\TEST_VBA\123456_2_Test
    372. retval = DmisCommand.PutText ("C:\Users\Hexagon\.............................................\TEST_VBA\123456_2_Test", FILE_NAME, 1)
    373. ' Set Dateidruckmethode = ÜBERSCHREIBEN
    374. retval = DmisCommand.SetToggleString (2, FILE_COMMAND_TYPE, 0)
    375. ' Set Druckausgabeformat = PDF
    376. retval = DmisCommand.SetToggleString (2, PRINT_OUTFPUT_FORMAT_TYPE, 0)
    377. ' Set Protokoll zurücksetzen = JA
    378. retval = DmisCommand.SetToggleString (2, RESET_REPORT, 0)
    379. ' Set Autom. öffnen = AUS
    380. retval = DmisCommand.SetToggleString (1, ONOFF_TYPE, 0)
    381. ' Set Zu Drucker drucken = AUS
    382. retval = DmisCommand.SetToggleString (1, PRINT_TO_PRINTER, 0)
    383. ' Set Anzahl der Kopien = 1
    384. retval = DmisCommand.PutText ("1", INDEX_END, 0)
    385. ' Set Vorherige Ausführungen = INSTANZEN_LÖSCHEN
    386. retval = DmisCommand.SetToggleString (1, PRINT_DELETE_RUNS, 0)
    387. ' Set DMIS Ausgabe = AUS
    388. retval = DmisCommand.SetToggleString (1, OUTPUT_DMIS_REPORT, 0)
    389. ' Set Überschreiben = INDEX
    390. retval = DmisCommand.SetToggleString (1, OVERWRITE, 0)
    391. ' Set Theoretische Werte ausgeben = ALLE
    392. retval = DmisCommand.SetToggleString (2, OUTPUT_FEATURE_NOMS, 0)
    393. ' Set Elemente und Merkmale ausgeben = JA
    394. retval = DmisCommand.SetToggleString (2, OUTPUT_FEAT_W_DIMENS, 0)
    395. ' Set Modus = ENDE
    396. retval = DmisCommand.SetToggleString (2, MODE_TYPE, 0)
    397. ' Set Ausgabe nach Excel = AUS
    398. retval = DmisCommand.SetToggleString (1, OUTPUT_TO_REPORT, 0)
    399. ' Set Dateidruckmethode = ÜBERSCHREIBEN
    400. retval = DmisCommand.SetToggleString (2, UNIT_TYPE, 0)
    401. ' Set Autom. öffnen = AUS
    402. retval = DmisCommand.SetToggleString (1, OUTPUT_TYPE, 0)
    403. Result = DmisCommand.SetExpression("""C:\Users\Hexagon\.............................................\TEST_VBA\\""+V14+""_""+V5+""_""+V9+""", FILE_NAME, 1)
    404. Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    405. DmisCommand.Marked = TRUE
    406. ' Set Zielausdruck = V5
    407. retval = DmisCommand.PutText ("V5", DEST_EXPR, 0)
    408. ' Set Quellausdruck = V5+1
    409. retval = DmisCommand.PutText ("V5+1", SRC_EXPR, 0)
    410. Set DmisCommand = DmisCommands.Add(ASSIGNMENT, TRUE)
    411. DmisCommand.Marked = TRUE
    412. ' Set Zielausdruck = V5
    413. retval = DmisCommand.PutText ("V5", DEST_EXPR, 0)
    414. ' Set Quellausdruck = ROUND()
    415. retval = DmisCommand.PutText ("ROUND()", SRC_EXPR, 0)
    416. Set DmisCommand = DmisCommands.Add(IF_BLOCK_COMMAND, TRUE)
    417. DmisCommand.Marked = TRUE
    418. ' Set Modus = 3
    419. retval = DmisCommand.PutText ("3", MODE_TYPE, 0)
    420. ' Set Quellausdruck = 0
    421. retval = DmisCommand.PutText ("0", SRC_EXPR, 0)
    422. Result = DmisCommand.SetExpression("LASTFIXTUREPLACE==""True""", SRC_EXPR, 0)
    423. Set DmisCommand = DmisCommands.Add(END_IF_COMMAND, TRUE)
    424. DmisCommand.Marked = TRUE
    425. ' Set Modus = 3
    426. retval = DmisCommand.PutText ("3", MODE_TYPE, 0)
    427. End Sub
    428. Sub Main
    429. Part1
    430. DmisPart.RefreshPart
    431. End Sub





    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mr.Robot“ ()