output probe data to report

'
'
' BASIC SCRIPT
' Output Probe Data To Report 
' Next 4 lines are just an example of the output
' TIP NAME            ===> T1A0B0
' TIP DIAMETER        ===> 3.9986
' STANDARD DEVIATION  ===> 0.0007
' PROBE QUALIFIED ON  ===> 01/07/11
'
'
 
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(ASSIGNMENT, True)
    DmisCommand.Marked = True
  ' Set Destination Expression  = PROBE_V1
    retval = DmisCommand.PutText ("PROBE_V1", DEST_EXPR, 0)
  ' Set Source Expression  = PROBEDATA(""ID"")
    retval = DmisCommand.PutText ("PROBEDATA(""ID"")", SRC_EXPR, 0)
 
  Set DmisCommand = DmisCommands.Add(SET_COMMENT, True)
    DmisCommand.Marked = True
  ' Set Id  = 
    retval = DmisCommand.PutText ("", ID, 0)
  ' Set Comment Type  = $$
    retval = DmisCommand.SetToggleString (4, COMMENT_TYPE, 0)
  ' Set Comment Item 1 = TIP Name             ===> T1A0B0  Use SPACEBAR To Set Spacing In Next Line To Line Up Column Output
    retval = DmisCommand.PutText ("TIP NAME             ===> T1A0B0", COMMENT_FIELD, 1)
  ' Set Report  = YES
    retval = DmisCommand.SetToggleString (2, OUTPUT_TYPE, 0)
  Result = DmisCommand.SetExpression("""TIP NAME             ===> "" +PROBE_V1", COMMENT_FIELD, 1)
 
  Set DmisCommand = DmisCommands.Add(ASSIGNMENT, True)
    DmisCommand.Marked = True
  ' Set Destination Expression  = PROBE_V2
    retval = DmisCommand.PutText ("PROBE_V2", DEST_EXPR, 0)
  ' Set Source Expression  = PROBEDATA(""DIAM"")
    retval = DmisCommand.PutText ("PROBEDATA(""DIAM"")", SRC_EXPR, 0)
 
  Set DmisCommand = DmisCommands.Add(SET_COMMENT, True)
    DmisCommand.Marked = True
  ' Set Id  = 
    retval = DmisCommand.PutText ("", ID, 0)
  ' Set Comment Type  = $$
    retval = DmisCommand.SetToggleString (4, COMMENT_TYPE, 0)
  ' Set Comment Item 1 = TIP DIAMETER         ===> 2.9729  Use SPACEBAR To Set Spacing In Next Line To Line Up Column Output
    retval = DmisCommand.PutText ("TIP DIAMETER         ===> 2.9729", COMMENT_FIELD, 1)
  ' Set Report  = YES
    retval = DmisCommand.SetToggleString (2, OUTPUT_TYPE, 0)
  Result = DmisCommand.SetExpression("""TIP DIAMETER         ===> "" +PROBE_V2", COMMENT_FIELD, 1)
 
  Set DmisCommand = DmisCommands.Add(ASSIGNMENT, True)
    DmisCommand.Marked = True
  ' Set Destination Expression  = V3
    retval = DmisCommand.PutText ("PROBE_V3", DEST_EXPR, 0)
  ' Set Source Expression  = PROBEDATA(""STANDARDDEVIATION"")
    retval = DmisCommand.PutText ("PROBEDATA(""STANDARDDEVIATION"")", SRC_EXPR, 0)
 
  Set DmisCommand = DmisCommands.Add(SET_COMMENT, True)
    DmisCommand.Marked = True
  ' Set Id  = 
    retval = DmisCommand.PutText ("", ID, 0)
  ' Set Comment Type  = $$
    retval = DmisCommand.SetToggleString (4, COMMENT_TYPE, 0)
  ' Set Comment Item 1 = STANDARD DEVIATION   ===> 0.0023  Use SPACEBAR To Set Spacing In Next Line To Line Up Column Output
    retval = DmisCommand.PutText ("STANDARD DEVIATION   ===> 0.0023", COMMENT_FIELD, 1)
  ' Set Report  = YES
    retval = DmisCommand.SetToggleString (2, OUTPUT_TYPE, 0)
  Result = DmisCommand.SetExpression("""STANDARD DEVIATION   ===> "" +PROBE_V3", COMMENT_FIELD, 1)
  Set DmisCommand = DmisCommands.Add(ASSIGNMENT, True)
    DmisCommand.Marked = True
  ' Set Destination Expression  = V4
    retval = DmisCommand.PutText ("PROBE_V4", DEST_EXPR, 0)
  ' Set Source Expression  = PROBEDATA(""DATE"")
    retval = DmisCommand.PutText ("PROBEDATA(""DATE"")", SRC_EXPR, 0)
 
  Set DmisCommand = DmisCommands.Add(SET_COMMENT, True)
    DmisCommand.Marked = True
  ' Set Id  = 
    retval = DmisCommand.PutText ("", ID, 0)
  ' Set Comment Type  = $$
    retval = DmisCommand.SetToggleString (4, COMMENT_TYPE, 0)
  ' Set Comment Item 1 = PROBE QUALIFIED On   ===> 02/09/11  Use SPACEBAR To Set Spacing In Next Line To Line Up Column Output
    retval = DmisCommand.PutText ("PROBE QUALIFIED ON   ===> 02/09/11", COMMENT_FIELD, 1)
  ' Set Report  = YES
    retval = DmisCommand.SetToggleString (2, OUTPUT_TYPE, 0)
  Result = DmisCommand.SetExpression("""PROBE QUALIFIED ON   ===> ""+PROBE_V4", COMMENT_FIELD, 1)
 
End Sub
Sub Main
  Part1
  DmisPart.RefreshPart
End Sub