How to insert dimension locations and specify advanced parameters?

[quentin66]

dear bros:

insert/dimension/location->
now i wanna insert dimension location command(LOC1) which bind to my vector points(PNT1),how to make that come true.and how to set the advanced parameters?just like below:

==================
DIM LOC1
T 0.000
END OF DIMENSION LOC1
DIMINFO/LOC1; , , , , , ,$
, ;DEV, , , , , , , , ,$
T, , , , , , , , , , , , , , , , ,
==================

[vpt.se]

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.

[quentin66]

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

[quentin66]

how to insert DIM LOC1 command?

[quentin66]

Got it,thank you vpt

[vpt.se]

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

[quentin66]

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)