mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
39 lines
841 B
Plaintext
39 lines
841 B
Plaintext
# test annotation plane
|
|
box b 10 10 10
|
|
explode b e
|
|
|
|
NewDocument D_init
|
|
XAddShape D_init b
|
|
XAddDimension D_init b_1
|
|
#0:1:4:1
|
|
XSetDimensionType D_init 0:1:4:1 14
|
|
XSetDimensionValue D_init 0:1:4:1 10
|
|
XSetGDTPosition D_init 0:1:4:1 -5 0 7 -1 0 0 0 1 0
|
|
# Presentation
|
|
line l -5 0 0 0 0 1
|
|
mkedge prs l 0 10
|
|
XSetGDTPresentation D_init 0:1:4:1 prs presentation
|
|
# 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 "Size_CurveLength"
|
|
set c_pos {position: -5 0 7
|
|
normal: -1 0 0
|
|
x_direction: 0 1 0
|
|
}
|
|
}
|