mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
bd651bbbd9
Integrated DE plugin functionality. Reworked DE components: - TKDESTEP: Handling STEP file format. - TKDEOBJ: Handling OBJ file format. - TKDEIGES: Handling IGES file format. - TKDEGLTF: Handling GLTF file format. - TKDEVRML: Handling VRML file format. - TKDEPLY: Handling PLY file format. - TKDESTL: Handling STL file format. Reworked DE DRAW components: TKXSDRAWSTEP: Container for DE command to work with STEP. TKXSDRAWOBJ: Container for DE command to work with OBJ. TKXSDRAWIGES: Container for DE command to work with IGES. TKXSDRAWGLTF: Container for DE command to work with GLTF. TKXSDRAWVRML: Container for DE command to work with VRML. TKXSDRAWPLY: Container for DE command to work with PLY. TKXSDRAWSTL: Container for DE command to work with STL. TKXSDRAW rework to be base DRAW plugin to keep DE session and utils. Updated documentation Updated samples
41 lines
742 B
Plaintext
41 lines
742 B
Plaintext
puts "===================================="
|
|
puts "0033165: Data exchange - Instance name is not saved during writing step file"
|
|
puts "===================================="
|
|
puts ""
|
|
|
|
pload OCAF XDEDRAW STEP
|
|
|
|
box b 1 1 1
|
|
reset b
|
|
copy b b1
|
|
|
|
# set valid location with identity matrix
|
|
reset b1
|
|
|
|
ttranslate b 1 1 1
|
|
|
|
compound b1 b c
|
|
XNewDoc d
|
|
XAddShape d c 1
|
|
|
|
set label1 "0:1:1:1:1"
|
|
set label2 "0:1:1:1:2"
|
|
set name1 "name1"
|
|
set name2 "name2"
|
|
|
|
SetName d $label1 $name1
|
|
SetName d $label2 $name2
|
|
|
|
set file $imagedir/${test_image}.stp
|
|
WriteStep d $file
|
|
ReadStep d1 $file
|
|
|
|
if { [GetName d1 $label1] != $name1 } {
|
|
puts "Error: The name is missed"
|
|
}
|
|
|
|
if { [GetName d1 $label2] != $name2 } {
|
|
puts "Error: The name is missed"
|
|
}
|
|
|
|
file delete -force ${file} |