VBA script tracefield

Hi, I have script to write tracefields individually

Set DmisCommand = DmisCommands.Add(TRACEFIELD, True)
DmisCommand.Marked = True
retval = DmisCommand.PutText ("0", TRACE_DATA_SOURCE, 0)
retval = DmisCommand.SetToggleString (2, DISPLAY_TRACE, 0)
retval = DmisCommand.SetToggleString (2, TRACE_DISPLAY_ONREPORT, 0)
retval = DmisCommand.PutText ("Part Number", TRACE_DISPLAY_MESSAGE, 0)
retval = DmisCommand.PutText ("K1001", TRACE_NAME, 0)
retval = DmisCommand.PutText ("VAR1", TRACE_VALUE, 0)
Result = DmisCommand.SetExpression("VAR1", TRACE_VALUE, 0)

This works great, now I would like to group all tracefields into "QDAS_TRACEFIELD=GROUP"

Anyone have clue how command for "QDAS_TRACEFIELD=GROUP/SHOWALLPARAMS=YES" and "ENDGROUP/ID_QDAS_TRACEFIELDS" would go?

Thanks

Parents

Neil Challinor over 1 year ago

The easiest way to find out would be to create the Q-DAS tracefields in a PC-DMIS routine and then export it as a .bas (FILE>EXPORT>BASIC). You can then modify the .bas to do what you want.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Entey over 1 year ago in reply to Neil Challinor

Set DmisCommand = DmisCommands.Add(EW_GROUP_START, TRUE)
DmisCommand.Marked = TRUE
' Set Id = QDAS_TRACEFIELDS
retval = DmisCommand.PutText ("QDAS_TRACEFIELDS", ID, 0)
' Set Show Details = YES
retval = DmisCommand.SetToggleString (2, SHOW_DETAILS, 0)

Set DmisCommand = DmisCommands.Add(EW_GROUP_END, TRUE)
DmisCommand.Marked = TRUE

Thank you!
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Reply

Entey over 1 year ago in reply to Neil Challinor

Set DmisCommand = DmisCommands.Add(EW_GROUP_START, TRUE)
DmisCommand.Marked = TRUE
' Set Id = QDAS_TRACEFIELDS
retval = DmisCommand.PutText ("QDAS_TRACEFIELDS", ID, 0)
' Set Show Details = YES
retval = DmisCommand.SetToggleString (2, SHOW_DETAILS, 0)

Set DmisCommand = DmisCommands.Add(EW_GROUP_END, TRUE)
DmisCommand.Marked = TRUE

Thank you!
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Children

No Data