Use as you like nad feel free to make any changes changes.
' ' ' 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