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

24 lines
485 B
Plaintext

box b 10 10 10
box b1 20 20 20 30 30 30
explode b
explode b_1
explode b1
explode b1_1
NewDocument D
XAddShape D b
XAddShape D b1
XAddDimension D b_1_1 b1_1_1
#0:1:4:1
XSetDimensionType D 0:1:4:1 2
XSetDimensionValue D 0:1:4:1 6
XSetDimensionPlusMinusTol D 0:1:4:1 -0.001 0.002
vertex v1 10 10 10
vertex v2 20 20 20
XSetDimensionPoints D 0:1:4:1 v1 v2
set c_value "6"
set c_type "Location_LinearDistance"
set c_pnts "10;10;10 20;20;20"
set c_plusminus "lower -0.001 upper 0.002"