box b 10 10 10
explode b
explode b_1

NewDocument D
XAddShape D b
XAddDimension D b_1_1
#0:1:4:1
XSetDimensionType D  0:1:4:1 15
XSetDimensionValue D  0:1:4:1 2.5
XSetDimensionClassOfTol D  0:1:4:1 1 8 7
XSetDimensionNbOfDecimalPlaces D  0:1:4:1 3 3 
XAddDimensionModifiers D  0:1:4:1 14 0

set c_value "2.5"
set c_type "Size_Diameter"
set c_class "f6"
set c_d "3.3"
set c_mod  "AverageSize, ControlledRadius"