1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00

16 lines
263 B
Plaintext

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
XSetDimensionQualifier D 0:1:4:1 2
set c_value "2.5"
set c_type "Size_Diameter"
set c_qalif "Max"