1 ########################################
2 # Wrong export to STEP of located root.
3 ########################################
18 SetName D 0:1:1:1 ref1_box
19 SetName D 0:1:1:3 ref2_box
20 SetName D 0:1:1:4 ref3_box
21 WriteStep D $imagedir/${casename}.stp
22 ReadStep DD $imagedir/${casename}.stp
25 set top_level [XGetTopLevelShapes DD]
26 if {$top_level != "0:1:1:1 0:1:1:2 0:1:1:3 0:1:1:4 "} {
27 puts "Error: wrong structure of document."
31 set nb [XGetUsers DD 0:1:1:2]
33 puts "Error: wrong structure of document."
37 set name [GetName DD 0:1:1:1]
38 if {$name != "ref1_box"} {
39 puts "Error: wrong name."
41 set name [GetName DD 0:1:1:2]
43 puts "Error: wrong name."
45 set name [GetName DD 0:1:1:3]
46 if {$name != "ref2_box"} {
47 puts "Error: wrong name."
49 set name [GetName DD 0:1:1:4]
50 if {$name != "ref3_box"} {
51 puts "Error: wrong name."
56 file delete $imagedir/${casename}.stp