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 14
XSetDimensionRange D  0:1:4:1 1.5 2.5

set c_range "lower 1.5 upper 2.5"
set c_type "Size_CurveLength"