How to insert dimension locations and specify advanced parameters?

1. Find out the name of the points to evaluate and maybe put them in an array (parse the part program).

2. Make a for-loop that runs for the total number of points in the array and create the evaluation within the for-loop for the entire array.

If you don't know how the code for the LOC-command looks like, find a part program that has the LOCation command exactly as you want it and export that as BASIC.

thank you vpt.
which command should i use to create the evaluation,any demo code?

how to insert DIM LOC1 command?

Got it,thank you vpt

No problem, if you wouldn't mind, please post your solution as that will help others.

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

retval = DmisCommand.PutText ("LOC2", ID, 0)

retval = DmisCommand.PutText ("PT2", REF_ID, 0)

retval = DmisCommand.SetToggleString (1, GRAPH_ANALYSIS, 0)

retval = DmisCommand.SetToggleString (1, TEXT_ANALYSIS, 0)

retval = DmisCommand.PutText ("10.000000", ARROW_MULTIPLIER, 0)

retval = DmisCommand.SetToggleString (3, OUTPUT_TYPE, 0)

retval = DmisCommand.SetToggleString (2, UNIT_TYPE, 0)

retval = DmisCommand.PutText ("0.000000", STANDARD_DEVIATION, 0)

retval = DmisCommand.SetToggleString (1, DIM_HALF_ANGLE, 0)

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

retval = DmisCommand.PutText ("T", AXIS, 0)

retval = DmisCommand.PutText (" 0.000", NOMINAL, 0)

retval = DmisCommand.PutText (" -0.075", DIM_MEASURED, 0)

retval = DmisCommand.PutText (" 0.020", F_PLUS_TOL, 0)

retval = DmisCommand.PutText (" 0.020", F_MINUS_TOL, 0)

retval = DmisCommand.PutText (" -0.075", DIM_MAX, 0)

retval = DmisCommand.PutText (" -0.075", DIM_MIN, 0)

retval = DmisCommand.PutText (" -0.075", DIM_DEVIATION, 0)

retval = DmisCommand.PutText ("0.055", DIM_OUTTOL, 0)

retval = DmisCommand.SetToggleString (2, OUTPUT_TO_REPORT, 0)

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

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

retval = DmisCommand.PutText ("LOC2", REF_ID, 0)

retval = DmisCommand.SetToggleString (6, SHOW_IDS, 1)

retval = DmisCommand.SetToggleString (6, SHOW_IDS, 2)

retval = DmisCommand.SetToggleString (1, SHOW_HEADINGS, 0)

retval = DmisCommand.SetToggleString (1, GRAPH_OPTION, 0)

retval = DmisCommand.SetToggleString (4, DIM_INFO_ORDER, 1)

retval = DmisCommand.SetToggleString (14, DIM_INFO_LOC, 1)