hexagon logo

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