mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
b7b2f85ac1
Add Import/Export connection points. Make some improvements in STEP reading in collections shapes, to which dimension is attached. Update tests.
36 lines
758 B
Plaintext
36 lines
758 B
Plaintext
# test connection points
|
|
box b 10 10 10
|
|
explode b e
|
|
|
|
NewDocument D_init
|
|
XAddShape D_init b
|
|
XAddDimension D_init b_1 b_2
|
|
#0:1:4:1
|
|
XSetDimensionType D_init 0:1:4:1 2
|
|
XSetDimensionValue D_init 0:1:4:1 10
|
|
# Connection points
|
|
vertex v1 1 0 0
|
|
vertex v2 9 0 0
|
|
XSetDimensionPoints D_init 0:1:4:1 v1 v2
|
|
|
|
# Export
|
|
set isOK 1
|
|
set filename $imagedir/${casename}_D_init.stp
|
|
if { [catch { WriteStep D_init $filename } catch_result] } {
|
|
puts "Error: File was not written - exception"
|
|
set isOK 0
|
|
}
|
|
# Import
|
|
if {$isOK} {
|
|
if { [catch { ReadStep D $filename } catch_result] } {
|
|
puts "Error: File was not read - exception"
|
|
set isOK 0
|
|
}
|
|
}
|
|
# Reference data
|
|
if {$isOK} {
|
|
set c_value "10"
|
|
set c_type "Location_LinearDistance"
|
|
set c_pnts "1;0;0 9;0;0"
|
|
}
|