Tooling Ball Shell Button Script

Here is a basic script for putting in Tracefeilds and Tooling Ball headings into a program.
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(START_ALIGN, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Id  = STARTUP
    retval = DmisCommand.PutText ("STARTUP", ID, 0)
  ' Set Reference Id Item 1 = USE_PART_SETUP
    retval = DmisCommand.PutText ("USE_PART_SETUP", REF_ID, 1)
  ' Set Alignment List  = YES
    retval = DmisCommand.SetToggleString (2, ALIGN_LIST, 0)

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

  Set DmisCommand = DmisCommands.Add(MAN_DCC_MODE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Mode  = MANUAL
    retval = DmisCommand.SetToggleString (2, MODE_TYPE, 0)

  Set DmisCommand = DmisCommands.Add(DIMENSION_FORMAT, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Dimension Text  = TEXT
    retval = DmisCommand.SetToggleString (1, DIM_TEXT, 0)
  ' Set Dimension Text Options  = OPTIONS
    retval = DmisCommand.SetToggleString (2, DIM_TEXT_OPTIONS, 0)
  ' Set Show Headings  = HEADINGS
    retval = DmisCommand.SetToggleString (3, SHOW_HEADINGS, 0)
  ' Set Show Symbols  = SYMBOLS
    retval = DmisCommand.SetToggleString (4, DEVIATION_SYMBOLS, 0)
  ' Set Standard Deviation  = 
    retval = DmisCommand.SetToggleString (7, STANDARD_DEVIATION, 0)
  ' Set Dimension Heading Item 1 = NOM
    retval = DmisCommand.SetToggleString (1, DIM_HEADING, 1)
  ' Set Dimension Heading Item 2 = TOL
    retval = DmisCommand.SetToggleString (2, DIM_HEADING, 2)
  ' Set Dimension Heading Item 3 = MEAS
    retval = DmisCommand.SetToggleString (3, DIM_HEADING, 3)
  ' Set Dimension Heading Item 4 = DEV
    retval = DmisCommand.SetToggleString (5, DIM_HEADING, 4)
  ' Set Dimension Heading Item 5 = OUTTOL
    retval = DmisCommand.SetToggleString (6, DIM_HEADING, 5)

  Set DmisCommand = DmisCommands.Add(GET_PROBE_DATA, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Filename  = 3MM
    retval = DmisCommand.PutText ("3MM", FILE_NAME, 0)

  Set DmisCommand = DmisCommands.Add(SET_ACTIVE_TIP, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Id  = TIP1
    retval = DmisCommand.PutText ("TIP1", REF_ID, 0)
  ' Set Tip I  = 0
    retval = DmisCommand.PutText ("0", TIP_I, 0)
  ' Set Tip J  = 0
    retval = DmisCommand.PutText ("0", TIP_J, 0)
  ' Set Tip K  = 1
    retval = DmisCommand.PutText ("1", TIP_K, 0)
  ' Set Theoretical Angle  = 0
    retval = DmisCommand.PutText ("0", THEO_ANGLE, 0)

  Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Name  = PART NAME
    retval = DmisCommand.PutText ("PART NAME", TRACE_NAME, 0)
  ' Set Value  = xxxxxxxxxxxxxx
    retval = DmisCommand.PutText ("xxxxxxxxxxxxxx", TRACE_VALUE, 0)
  ' Set Value Limit  = 30
    retval = DmisCommand.PutText ("30", TRACE_VALUE_LIMIT, 0)

  Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Name  = PART NUMBER
    retval = DmisCommand.PutText ("PART NUMBER", TRACE_NAME, 0)
  ' Set Value  = xxxxxxxxxxxxxx
    retval = DmisCommand.PutText ("xxxxxxxxxxxxxx", TRACE_VALUE, 0)
  ' Set Value Limit  = 50
    retval = DmisCommand.PutText ("50", TRACE_VALUE_LIMIT, 0)

  Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Name  = CUSTOMER
    retval = DmisCommand.PutText ("CUSTOMER", TRACE_NAME, 0)
  ' Set Value  = xxxxxxxxxxxxxx
    retval = DmisCommand.PutText ("xxxxxxxxxxxxxx", TRACE_VALUE, 0)
  ' Set Value Limit  = 30
    retval = DmisCommand.PutText ("30", TRACE_VALUE_LIMIT, 0)

  Set DmisCommand = DmisCommands.Add(TRACEFIELD, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Name  =  SELECT JOB#
    retval = DmisCommand.PutText (" SELECT JOB#", TRACE_NAME, 0)
  ' Set Value  = xxxxxxx
    retval = DmisCommand.PutText ("xxxxxxx", TRACE_VALUE, 0)
  ' Set Value Limit  = 7
    retval = DmisCommand.PutText ("7", TRACE_VALUE_LIMIT, 0)

  Set DmisCommand = DmisCommands.Add(MAN_DCC_MODE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Mode  = DCC
    retval = DmisCommand.SetToggleString (1, MODE_TYPE, 0)

  Set DmisCommand = DmisCommands.Add(DIMENSION_FORMAT, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Dimension Text  = TEXT
    retval = DmisCommand.SetToggleString (1, DIM_TEXT, 0)
  ' Set Dimension Text Options  = OPTIONS
    retval = DmisCommand.SetToggleString (2, DIM_TEXT_OPTIONS, 0)
  ' Set Show Headings  = HEADINGS
    retval = DmisCommand.SetToggleString (3, SHOW_HEADINGS, 0)
  ' Set Show Symbols  = 
    retval = DmisCommand.SetToggleString (7, DEVIATION_SYMBOLS, 0)
  ' Set Standard Deviation  = 
    retval = DmisCommand.SetToggleString (7, STANDARD_DEVIATION, 0)
  ' Set Dimension Heading Item 1 = MEAS
    retval = DmisCommand.SetToggleString (3, DIM_HEADING, 1)

  Set DmisCommand = DmisCommands.Add(SET_COMMENT, TRUE)
    DmisCommand.Marked = FALSE
  ' Set Id  =
    retval = DmisCommand.PutText ("", ID, 0)
  ' Set Comment Type  = REPT
    retval = DmisCommand.SetToggleString (2, COMMENT_TYPE, 0)
  ' Set Comment Item 1 = REPORT ON FIXTURE BUILT TO CAD DATA IN MM
    retval = DmisCommand.PutText ("REPORT ON FIXTURE BUILT TO CAD DATA IN MM", COMMENT_FIELD, 1)
  ' Set Comment Item 2 = SET UP WITH TOOLING BALLS AS STAMPED.
    retval = DmisCommand.PutText ("SET UP WITH TOOLING BALLS AS STAMPED.", COMMENT_FIELD, 2)
  ' Set Comment Item 3 = -----------------------------------------
    retval = DmisCommand.PutText ("-----------------------------------------", COMMENT_FIELD, 3)

  Set DmisCommand = DmisCommands.Add(SET_COMMENT, TRUE)
    DmisCommand.Marked = FALSE
  ' Set Id  =
    retval = DmisCommand.PutText ("", ID, 0)
  ' Set Comment Type  = REPT
    retval = DmisCommand.SetToggleString (2, COMMENT_TYPE, 0)
  ' Set Comment Item 1 = LOCATION - ORIGIN TOOLING BALL
    retval = DmisCommand.PutText ("LOCATION - ORIGIN TOOLING BALL", COMMENT_FIELD, 1)
  ' Set Comment Item 2 = ==============================
    retval = DmisCommand.PutText ("==============================", COMMENT_FIELD, 2)

  Set DmisCommand = DmisCommands.Add(SET_COMMENT, TRUE)
    DmisCommand.Marked = FALSE
  ' Set Id  =
    retval = DmisCommand.PutText ("", ID, 0)
  ' Set Comment Type  = REPT
    retval = DmisCommand.SetToggleString (2, COMMENT_TYPE, 0)
  ' Set Comment Item 1 = LOCATION - ALIGN TOOLING BALL
    retval = DmisCommand.PutText ("LOCATION - ALIGN TOOLING BALL", COMMENT_FIELD, 1)
  ' Set Comment Item 2 = =============================
    retval = DmisCommand.PutText ("=============================", COMMENT_FIELD, 2)

  Set DmisCommand = DmisCommands.Add(SET_COMMENT, TRUE)
    DmisCommand.Marked = FALSE
  ' Set Id  =
    retval = DmisCommand.PutText ("", ID, 0)
  ' Set Comment Type  = REPT
    retval = DmisCommand.SetToggleString (2, COMMENT_TYPE, 0)
  ' Set Comment Item 1 = LOCATION - PLANE TOOLING BALL
    retval = DmisCommand.PutText ("LOCATION - PLANE TOOLING BALL", COMMENT_FIELD, 1)
  ' Set Comment Item 2 = =============================
    retval = DmisCommand.PutText ("=============================", COMMENT_FIELD, 2)

  Set DmisCommand = DmisCommands.Add(DIMENSION_FORMAT, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Dimension Text  = TEXT
    retval = DmisCommand.SetToggleString (1, DIM_TEXT, 0)
  ' Set Dimension Text Options  = OPTIONS
    retval = DmisCommand.SetToggleString (2, DIM_TEXT_OPTIONS, 0)
  ' Set Show Headings  = HEADINGS
    retval = DmisCommand.SetToggleString (3, SHOW_HEADINGS, 0)
  ' Set Show Symbols  = SYMBOLS
    retval = DmisCommand.SetToggleString (4, DEVIATION_SYMBOLS, 0)
  ' Set Standard Deviation  = 
    retval = DmisCommand.SetToggleString (7, STANDARD_DEVIATION, 0)
  ' Set Dimension Heading Item 1 = NOM
    retval = DmisCommand.SetToggleString (1, DIM_HEADING, 1)
  ' Set Dimension Heading Item 2 = MEAS
    retval = DmisCommand.SetToggleString (3, DIM_HEADING, 2)
  ' Set Dimension Heading Item 3 = TOL
    retval = DmisCommand.SetToggleString (2, DIM_HEADING, 3)
  ' Set Dimension Heading Item 4 = DEV
    retval = DmisCommand.SetToggleString (5, DIM_HEADING, 4)
  ' Set Dimension Heading Item 5 = OUTTOL
    retval = DmisCommand.SetToggleString (6, DIM_HEADING, 5)

End Sub

Sub Main

  Part1

  DmisPart.RefreshPart
End Sub