puts "===============================================================" puts "0030789: Data Exchange - Some names are lost during STEP import" puts "===============================================================" puts "" # Load file pload DCAF ReadStep D [locate_data_file bug30789.stp] # Check several names came from problematic entities set name [GetName D 0:1:1:10] if {$name != "F5347130221100"} { puts "Error: name of entity is lost." } set name [GetName D 0:1:1:20] if {$name != "A5397301720500"} { puts "Error: name of entity is lost." } set name [GetName D 0:1:1:34] if {$name != "F5349193000400-CUT01"} { puts "Error: name of entity is lost." } set name [GetName D 0:1:1:48] if {$name != "F5349195500100-FLX05"} { puts "Error: name of entity is lost." } set name [GetName D 0:1:1:74] if {$name != "F5349193500000-FLX10"} { puts "Error: name of entity is lost." } Close D