mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
714fb6b516
New XCAFDoc classes: - XCAFDoc_AssemblyIterator: iterator in depth along the assembly tree - XCAFDoc_AssemblyGraph: assembly graph with iterator - XCAFDoc_AssemblyTool: provides generic methods for traversing assembly tree and graph A method for re-scaling (sub-)assembly geometry is added to XCAFDoc_Editor. New DRAW commands: - XDumpAssemblyTree: iterates through the assembly tree in depth up to the specified level, if any - XDumpAssemblyGraph: prints assembly graph structure - XDumpNomenclature: prints number of (sub-)assembly/part instances - XRescaleGeometry: applies geometrical scale to (sub-)assembly
1014 lines
37 KiB
Plaintext
1014 lines
37 KiB
Plaintext
puts "Test includes comparing for $CompareDocumentsMode"
|
|
############## INIZIALIZING OF VARIABLES #################################
|
|
# ========== variables for comparison ======================
|
|
# Checkshape
|
|
set Checkshape_Second **
|
|
# Nbshapes
|
|
set nbDocVertex_Second **
|
|
set nbDocEdge_Second **
|
|
set nbDocWire_Second **
|
|
set nbDocFace_Second **
|
|
set nbDocShell_Second **
|
|
set nbDocSolid_Second **
|
|
set nbDocCompsolid_Second **
|
|
set nbDocCompound_Second **
|
|
set nbDocShape_Second **
|
|
# Faces
|
|
set faces_list_Second **
|
|
# Volumes
|
|
set DocLabels_Second **
|
|
set DocVolume_Second **
|
|
set r_Second **
|
|
set nbClosedShells_Second **
|
|
set DocVolume_Second **
|
|
# Colors
|
|
set DocAllColors_Second **
|
|
set DocShapeLabels_Second **
|
|
# Layers
|
|
set DocLayers_Second **
|
|
set DocLayerLabels_Second **
|
|
set DocShapeLabels_Second **
|
|
###################################
|
|
# Checkshape
|
|
set Checkshape_First 0
|
|
# Nbshapes
|
|
set nbDocVertex_First 0
|
|
set nbDocEdge_First 0
|
|
set nbDocWire_First 0
|
|
set nbDocFace_First 0
|
|
set nbDocShell_First 0
|
|
set nbDocSolid_First 0
|
|
set nbDocCompsolid_First 0
|
|
set nbDocCompound_First 0
|
|
set nbDocShape_First 0
|
|
# Faces
|
|
set faces_list_First 0
|
|
# Volumes
|
|
set DocLabels_First 0
|
|
set DocVolume_First 0
|
|
set r_First 0
|
|
set nbClosedShells_First 0
|
|
set DocVolume_First 0
|
|
# Colors
|
|
set DocAllColors_First 0
|
|
set DocShapeLabels_First 0
|
|
# Layers
|
|
set DocLayers_First 0
|
|
set DocLayerLabels_First 0
|
|
set DocShapeLabels_First 0
|
|
|
|
# If it needs, adding to document D_First "Assembly colors and layers" OR "colors and layers"
|
|
if { [regexp "ASSEMBLY_C_L" $AddToDocument] } {
|
|
if { [info exists D_First] == 0} {
|
|
puts "Creating new doc"
|
|
XNewDoc D_First
|
|
}
|
|
### colors' RGB
|
|
set color1 "1 0 0" ;# RED
|
|
set color2 "0 1 0" ;# GREEN
|
|
set color3 "0 0 1" ;# BLUE
|
|
set color4 "1 1 0" ;# YELLOW
|
|
set color1c "0 1 1" ;# CYAN
|
|
set color2c "1 0 1" ;# MAGENTA
|
|
set color3c "1 1 1" ;# WHITE
|
|
set color4c "0 0 0" ;# BLACK
|
|
|
|
### colors' name
|
|
set color1name RED
|
|
set color2name GREEN
|
|
set color3name BLUE
|
|
set color4name YELLOW
|
|
set color1cname CYAN
|
|
set color2cname MAGENTA
|
|
set color3cname WHITE
|
|
set color4cname BLACK
|
|
|
|
### Add compound in document as ASSEMBLY (default behaviour of XAddShape function)
|
|
box b1 10 10 10
|
|
box b2 10 10 10 20 20 20
|
|
compound b1 b2 c
|
|
XAddShape D_First c
|
|
|
|
### Add free shape in document
|
|
box b3 30 30 30 30 30 30
|
|
XAddShape D_First b3
|
|
######################### COLORS VERIFYING ##############################
|
|
### Add some colors in document
|
|
eval XAddColor D_First $color1
|
|
eval XAddColor D_First $color2
|
|
|
|
### Verify whether the collors are in document
|
|
if {[eval XFindColor D_First $color1] == "" || [eval XFindColor D_First $color1] == ""} {
|
|
puts "Error : Color was not added in the document or was not found after adding"
|
|
set ErrorCode 2
|
|
}
|
|
|
|
### Verify number of colors in document
|
|
if { [llength [XGetAllColors D_First]] != "2" } {
|
|
puts "Error : XGetAllColors function returns an invalid value"
|
|
set ErrorCode 2
|
|
}
|
|
|
|
### Assign color to shapes (two existing colors and six new colors)
|
|
# surfaces' colors
|
|
eval XSetColor D_First b1 $color1 s
|
|
eval XSetColor D_First b2 $color2 s
|
|
eval XSetColor D_First b3 $color3 s
|
|
eval XSetColor D_First c $color4 s
|
|
# curves' colors
|
|
eval XSetColor D_First b1 $color1c c
|
|
eval XSetColor D_First b2 $color2c c
|
|
eval XSetColor D_First b3 $color3c c
|
|
eval XSetColor D_First c $color4c c
|
|
### Verify number of colors in document
|
|
if { [llength [XGetAllColors D_First]] != "8" } {
|
|
puts "Error : XGetAllColors function returns an invalid value after assigning colors to shapes in the document"
|
|
set ErrorCode 2
|
|
}
|
|
### Verify colors of all shapes
|
|
if {[XGetShapeColor D_First [XFindShape D_First b1] s] != $color1name} {
|
|
puts "Error : Shape b1 has an invalid surface color "
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetShapeColor D_First [XFindShape D_First b2] s] != $color2name} {
|
|
puts "Error : Shape b2 has an invalid surface color "
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetShapeColor D_First [XFindShape D_First b3] s] != $color3name} {
|
|
puts "Error : Shape b3 has an invalid surface color "
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetShapeColor D_First [XFindShape D_First c ] s] != $color4name} {
|
|
puts "Error : Shape c has an invalid surface color "
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetShapeColor D_First [XFindShape D_First b1] c] != $color1cname} {
|
|
puts "Error : Shape b1 has an invalid surface color "
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetShapeColor D_First [XFindShape D_First b2] c] != $color2cname} {
|
|
puts "Error : Shape b2 has an invalid surface color "
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetShapeColor D_First [XFindShape D_First b3] c] != $color3cname} {
|
|
puts "Error : Shape b3 has an invalid surface color "
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetShapeColor D_First [XFindShape D_First c ] c] != $color4cname} {
|
|
puts "Error : Shape c has an invalid surface color
|
|
set ErrorCode 2
|
|
}
|
|
### Remove some colors from document
|
|
# Remove colors of b1 surfaces
|
|
XRemoveColor D_First [eval XFindColor D_First $color1]
|
|
# Remove colors of b2 curves
|
|
XRemoveColor D_First [eval XFindColor D_First $color2c]
|
|
### Verify number of colors in document
|
|
if { [llength [XGetAllColors D_First]] != "6" } {
|
|
puts "Error : XGetAllColors function returns an invalid value after removing two colors from the document"
|
|
set ErrorCode 2
|
|
}
|
|
### Verify whether b1 and b2 have the removed colors
|
|
if {[XGetShapeColor D_First [XFindShape D_First b1] s] != ""} {
|
|
puts "Error : Color of b1 surface was removed from the document however XGetShapeColor function returns value "
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetShapeColor D_First [XFindShape D_First b2] c] != ""} {
|
|
puts "Error : Color of b2 curves was removed from the document however XGetShapeColor function returns value "
|
|
set ErrorCode 2
|
|
}
|
|
######################### LAYERS VERIFYING ##############################
|
|
### Add three layers in document
|
|
XAddLayer D_First L1
|
|
XAddLayer D_First L2
|
|
XAddLayer D_First L3
|
|
### Verify amount layers in document
|
|
if { [llength [XGetAllLayers D_First]] != "3" } {
|
|
puts "Error : Error occurs during adding layers in document "
|
|
set ErrorCode 2
|
|
}
|
|
if { [llength [XGetLayerLabels D_First]] != "3" } {
|
|
puts "Error : XGetLayerLabels function works incorrectly "
|
|
set ErrorCode 2
|
|
}
|
|
### Verify whether the layers was added in document correctly
|
|
if { [XFindLayer D_First L1] == "" || [XFindLayer D_First L2] == "" || [XFindLayer D_First L3] == "" } {
|
|
puts "Error : Layers were not added in the document correctly "
|
|
set ErrorCode 2
|
|
}
|
|
### Verify XGetOneLayer function
|
|
if { [XGetOneLayer D_First [XFindLayer D_First L1]] != "\"L1\"" } {
|
|
puts "Error : XGetOneLayer function works incorrectly for L1 layer"
|
|
set ErrorCode 2
|
|
}
|
|
if { [XGetOneLayer D_First [XFindLayer D_First L2]] != "\"L2\"" } {
|
|
puts "Error : XGetOneLayer function works incorrectly for L2 layer"
|
|
set ErrorCode 2
|
|
}
|
|
if { [XGetOneLayer D_First [XFindLayer D_First L3]] != "\"L3\"" } {
|
|
puts "Error : XGetOneLayer function works incorrectly for L3 layer"
|
|
set ErrorCode 2
|
|
}
|
|
### Verify removing layer from document
|
|
XAddLayer D_First LtoRemove
|
|
if { [llength [XGetAllLayers D_First]] != "4" } {
|
|
puts "Error : Error occurs when adding a layer in the document "
|
|
set ErrorCode 2
|
|
}
|
|
XRemoveLayer D_First LtoRemove
|
|
if { [llength [XGetAllLayers D_First]] != "3" } {
|
|
puts "Error : Error occurs when removing a layer from the document "
|
|
set ErrorCode 2
|
|
}
|
|
### Verify interconnection layers and shapes
|
|
XSetLayer D_First b1 L1
|
|
XSetLayer D_First b2 L2
|
|
XSetLayer D_First b3 L3
|
|
XSetLayer D_First c L3
|
|
if {[XGetLayers D_First b1] != "\"L1\" "} {
|
|
puts "Error : Shape b1 is not on layer L1"
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetLayers D_First b2] != "\"L2\" "} {
|
|
puts "Error : Shape b2 is not on layer L2"
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetLayers D_First b3] != "\"L3\" "} {
|
|
puts "Error : Shape b3 is not on layer L3"
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetLayers D_First c ] != "\"L3\" "} {
|
|
puts "Error : Compound c is not on layer L3"
|
|
set ErrorCode 2
|
|
}
|
|
XRemoveColor D_First [eval XFindColor D_First $color4]
|
|
XRemoveColor D_First [eval XFindColor D_First $color4c]
|
|
XUnSetLayer D_First c L3
|
|
|
|
|
|
#================== COLORS_LAYER ===============
|
|
} elseif { [regexp "COLORS_LAYERS" $AddToDocument] } {
|
|
if {[info exists D_First] == 0} {
|
|
XNewDoc D_First
|
|
}
|
|
### colors' RGB
|
|
set color1 "1 0 0" ;# RED
|
|
set color2 "0 1 0" ;# GREEN
|
|
set color3 "0 0 1" ;# BLUE
|
|
set color4 "1 1 0" ;# YELLOW
|
|
set color1c "0 1 1" ;# CYAN
|
|
set color2c "1 0 1" ;# MAGENTA
|
|
set color3c "1 1 1" ;# WHITE
|
|
set color4c "0 0 0" ;# BLACK
|
|
|
|
### colors' name
|
|
set color1name RED
|
|
set color2name GREEN
|
|
set color3name BLUE
|
|
set color4name YELLOW
|
|
set color1cname CYAN
|
|
set color2cname MAGENTA
|
|
set color3cname WHITE
|
|
set color4cname BLACK
|
|
######################### COLORS VERIFYING ##############################
|
|
### Add some colors in document
|
|
eval XAddColor D_First $color1
|
|
eval XAddColor D_First $color2
|
|
### Verify whether the collors are in document
|
|
if {[eval XFindColor D_First $color1] == "" || [eval XFindColor D_First $color1] == ""} {
|
|
puts "Error : Color was not added in the document or was not found after adding"
|
|
set ErrorCode 2
|
|
}
|
|
|
|
### Verify number of colors in document
|
|
if { [llength [XGetAllColors D_First]] != "2" } {
|
|
puts "Error : XGetAllColors function returns an invalid value"
|
|
set ErrorCode 2
|
|
}
|
|
set list [XGetTopLevelShapes D_First]
|
|
foreach {i} $list {
|
|
eval XSetColor D_First $i $color1 s
|
|
eval XSetColor D_First $i $color1c c
|
|
}
|
|
foreach {i} $list {
|
|
if {[XGetShapeColor D_First $i s] != $color1name} {
|
|
puts [format "Error : Shape located on label %s has an invalid surface color " $i]
|
|
set ErrorCode 2
|
|
}
|
|
if {[XGetShapeColor D_First $i c] != $color1cname} {
|
|
puts [format "Error : Shape located on label %s has an invalid curves color " $i]
|
|
set ErrorCode 2
|
|
}
|
|
}
|
|
### Remove some colors from document
|
|
XRemoveColor D_First [eval XFindColor D_First $color1c]
|
|
### Verify number of colors in document
|
|
if { [llength [XGetAllColors D_First]] != "2" } {
|
|
puts "Error : XGetAllColors function returns an invalid value after removing colors from the document"
|
|
set ErrorCode 2
|
|
}
|
|
|
|
### Verify shapes have the removed colors of curves
|
|
foreach {i} $list {
|
|
if {[XGetShapeColor D_First $i c] != ""} {
|
|
puts "Error : Curves color was removed from the document however XGetShapeColor function returns value "
|
|
set ErrorCode 2
|
|
}
|
|
}
|
|
######################### LAYERS VERIFYING ##############################
|
|
### Add three layers in document
|
|
XAddLayer D_First L1
|
|
XAddLayer D_First L2
|
|
XAddLayer D_First L3
|
|
### Verify amount layers in document
|
|
if { [llength [XGetAllLayers D_First]] != "3" } {
|
|
puts "Error : Error occurs when adding layers in the document "
|
|
set ErrorCode 2
|
|
}
|
|
if { [llength [XGetLayerLabels D_First]] != "3" } {
|
|
puts "Error : XGetLayerLabels function works incorrectly "
|
|
set ErrorCode 2
|
|
}
|
|
|
|
### Verify whether the layers were added in the document correctly
|
|
if { [XFindLayer D_First L1] == "" || [XFindLayer D_First L2] == "" || [XFindLayer D_First L3] == "" } {
|
|
puts "Error : Layers were not added in the document correctly "
|
|
set ErrorCode 2
|
|
}
|
|
|
|
### Verify XGetOneLayer function
|
|
if { [XGetOneLayer D_First [XFindLayer D_First L1]] != "\"L1\"" } {
|
|
puts "Error : XGetOneLayer function works incorrectly for L1 layer"
|
|
set ErrorCode 2
|
|
}
|
|
if { [XGetOneLayer D_First [XFindLayer D_First L2]] != "\"L2\"" } {
|
|
puts "Error : XGetOneLayer function works incorrectly for L2 layer"
|
|
set ErrorCode 2
|
|
}
|
|
if { [XGetOneLayer D_First [XFindLayer D_First L3]] != "\"L3\"" } {
|
|
puts "Error : XGetOneLayer function works incorrectly for L3 layer"
|
|
set ErrorCode 2
|
|
}
|
|
|
|
### Verify removing layer from document
|
|
XAddLayer D_First LtoRemove
|
|
if { [llength [XGetAllLayers D_First]] != "4" } {
|
|
puts "Error : Error occurs when adding a layer in the document "
|
|
set ErrorCode 2
|
|
}
|
|
XRemoveLayer D_First LtoRemove
|
|
if { [llength [XGetAllLayers D_First]] != "3" } {
|
|
puts "Error : Error occurs when removing a layer from the document "
|
|
set ErrorCode 2
|
|
}
|
|
### Verify interconnection layers and shapes
|
|
set aLen [llength $list]
|
|
for {set i 0} { $i < $aLen} {incr i} {
|
|
if { [expr $i / 2 == int ($i/2)] } {
|
|
eval XSetLayer D_First [lindex $list $i] L1
|
|
} else {
|
|
eval XSetLayer D_First [lindex $list $i] L2
|
|
}
|
|
}
|
|
for {set i 0} { $i < $aLen} {incr i} {
|
|
if { [expr $i / 2 == int ($i/2)] } {
|
|
set LLL "\"L1\" "
|
|
} else {
|
|
[set LLL "\"L2\" "]
|
|
}
|
|
if {[XGetLayers D_First [lindex $list $i]] != $LLL} {
|
|
puts [format "Error : Shape located on label %s is not on layer %s" [lindex $list $i] $LLL]
|
|
set ErrorCode 2
|
|
}
|
|
}
|
|
XRemoveLayer D_First L2
|
|
XRemoveLayer D_First L3
|
|
XRemoveColor D_First [eval XFindColor D_First $color2]
|
|
set list [XGetTopLevelShapes D_First]
|
|
foreach {i} $list {
|
|
set str [XLabelInfo D_First $i]
|
|
if {[regexp "Assembly" $str] || [regexp "This Shape is not used" $str]} {
|
|
XUnSetLayer D_First $i L1
|
|
XUnsetColor D_First $i c
|
|
XUnsetColor D_First $i s
|
|
}
|
|
}
|
|
#erase all unused colors and layers
|
|
set list [XGetTopLevelShapes D_First]
|
|
set ColorIsUsed 0
|
|
set LayerIsUsed 0
|
|
foreach {i} $list {
|
|
set l [XGetShapeColor D_First $i c]
|
|
if {[expr [llength $l] != 0]} {
|
|
set ColorIsUsed 1
|
|
}
|
|
set l [XGetShapeColor D_First $i s]
|
|
if {[expr [llength $l] != 0]} {
|
|
set ColorIsUsed 1
|
|
}
|
|
set l [XGetLayers D_First $i]
|
|
if {[expr [llength $l] != 0]} {
|
|
set LayerIsUsed 1
|
|
}
|
|
}
|
|
if {$ColorIsUsed == 0} {
|
|
set label [XFindColor D_First 1 0 0 ]
|
|
XRemoveColor D_First $label
|
|
}
|
|
if {$LayerIsUsed == 0} {
|
|
XRemoveLayer D_First L1
|
|
}
|
|
}
|
|
|
|
# Get information for the first document
|
|
# Get shape for standard analysis
|
|
XGetOneShape res_First D_First
|
|
# Checkshape
|
|
if {[regexp "CHECKSHAPE" $CompareDocumentsMode]} {
|
|
set Checkshape_First [checkshape res_First]
|
|
}
|
|
# Nbshapes
|
|
if {[regexp "SHAPES" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
|
|
set Stat_First [nbshapes res_First]
|
|
regexp {VERTEX +: +([-0-9.+eE]+)} $Stat_First full nbDocVertex_First
|
|
regexp {EDGE +: +([-0-9.+eE]+)} $Stat_First full nbDocEdge_First
|
|
regexp {WIRE +: +([-0-9.+eE]+)} $Stat_First full nbDocWire_First
|
|
regexp {FACE +: +([-0-9.+eE]+)} $Stat_First full nbDocFace_First
|
|
regexp {SHELL +: +([-0-9.+eE]+)} $Stat_First full nbDocShell_First
|
|
regexp {SOLID +: +([-0-9.+eE]+)} $Stat_First full nbDocSolid_First
|
|
regexp {COMPSOLID +: +([-0-9.+eE]+)} $Stat_First full nbDocCompsolid_First
|
|
regexp {COMPOUND +: +([-0-9.+eE]+)} $Stat_First full nbDocCompound_First
|
|
regexp {SHAPE +: +([-0-9.+eE]+)} $Stat_First full nbDocShape_First
|
|
}
|
|
# Faces
|
|
if {[regexp "FACES" $CompareDocumentsMode]} {
|
|
set type_of [dtyp res_First]
|
|
if {[regexp "FACE" $type_of] } {
|
|
set faces_list_First "FACE"
|
|
} else {
|
|
set faces_list_First [explode res_First F]
|
|
}
|
|
}
|
|
# Volumes
|
|
if {[regexp "VOLUME_EXACTLY" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
|
|
set DocLabels_First [XGetFreeShapes D_First]
|
|
set DocVolume_First "0"
|
|
foreach {i} $DocLabels_First {
|
|
XSetProps D_First $i 1
|
|
set DocVolume_First [expr $DocVolume_First + abs([XGetVolume D_First $i])]
|
|
}
|
|
} elseif {[regexp "VOLUME" $CompareDocumentsMode]} {
|
|
set IsComp 0
|
|
XGetOneShape Shape_First D_First
|
|
set type [dtyp Shape_First]
|
|
puts $type
|
|
if {[regexp "SOLID" $type]} {
|
|
set IsComp 1
|
|
} elseif {[regexp "SHELL" $type] && [regexp "Orientable" $type] && [regexp "Closed" $type]} {
|
|
set IsComp 1
|
|
} elseif {[regexp "COMPOUND" $type]} {
|
|
set list [explode Shape_First So]
|
|
if {[llength $list] != 0} {
|
|
set IsComp 1
|
|
}
|
|
set list [explode Shape_First Sh]
|
|
if {[llength $list] != 0} {
|
|
foreach {i} $list {
|
|
set type [dtyp $i]
|
|
if {[regexp "Orientable" $type] && [regexp "Closed" $type]} {
|
|
set IsComp 1
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if {[expr $IsComp == 1]} {
|
|
XGetOneShape Shape_First D_First
|
|
catch { sewing r 0.00001 Shape_First}
|
|
set nbClosedShells_First 0
|
|
# Calculate amount of closed shells in initial shape
|
|
if {[regexp SHELL [whatis r]]} {
|
|
catch { fbclose r 0.001 0.00001 }
|
|
catch { if {[llength [explode r_o V]] == 0 && [llength [explode r_c V]] == 0} {
|
|
puts "nbClosedShells_First = 1"
|
|
set nbClosedShells_First 1 }
|
|
}
|
|
} else {
|
|
set shells [explode r Sh]
|
|
foreach {i} $shells {
|
|
catch { fbclose $i 0.001 0.00001}
|
|
catch {
|
|
if { [llength [explode $i_o V]] == 0 && [llength [explode $i_c V]] == 0} {
|
|
set nbClosedShells_First [expr $nbClosedShells_First + 1]
|
|
}
|
|
}
|
|
}
|
|
}
|
|
XNewDoc T_First
|
|
XAddShape T_First r
|
|
XSetProps T_First 0:1:1:1 1
|
|
set DocVolume_First [expr abs([XGetVolume T_First 0:1:1:1])]
|
|
} else {
|
|
puts "Volume of shape is equal 0"
|
|
set DocVolume_First 0
|
|
set nbClosedShells_First 0
|
|
}
|
|
}
|
|
# Colors
|
|
if {[regexp "COLORS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
|
|
set DocAllColors_First [lsort [XGetAllColors D_First]]
|
|
set DocShapeLabels_First [XGetTopLevelShapes D_First]
|
|
}
|
|
# Layers
|
|
if { [regexp "LAYERS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode] || [regexp "LAYERS_EXACTLY" $CompareDocumentsMode] } {
|
|
set DocLayers_First [XGetAllLayers D_First]
|
|
set DocLayerLabels_First [XGetLayerLabels D_First]
|
|
set DocShapeLabels_First [XGetTopLevelShapes D_First]
|
|
}
|
|
# Traverse assembly tree
|
|
if {[regexp "TRAVERSE_ASSEMBLY_TREE" $CompareDocumentsMode]} {
|
|
if {[info exists TRAVERSE_ASSEMBLY_TREE_ARGS]} {
|
|
set traverse_assembly_tree_result [XDumpAssemblyTree D_First {*}$TRAVERSE_ASSEMBLY_TREE_ARGS]
|
|
} else {
|
|
set traverse_assembly_tree_result [XDumpAssemblyTree D_First]
|
|
}
|
|
set traverse_assembly_tree_result [string trim $traverse_assembly_tree_result]
|
|
if {$TRAVERSE_ASSEMBLY_TREE_RESULT != $traverse_assembly_tree_result} {
|
|
puts "ERROR: Not expected traverse assembly tree result"
|
|
}
|
|
}
|
|
# Traverse assembly graph
|
|
if {[regexp "TRAVERSE_ASSEMBLY_GRAPH" $CompareDocumentsMode]} {
|
|
if {[info exists TRAVERSE_ASSEMBLY_GRAPH_ARGS]} {
|
|
set traverse_assembly_graph_result [XDumpAssemblyGraph D_First {*}$TRAVERSE_ASSEMBLY_GRAPH_ARGS]
|
|
} else {
|
|
set traverse_assembly_graph_result [XDumpAssemblyGraph D_First]
|
|
}
|
|
set traverse_assembly_graph_result [string trim $traverse_assembly_graph_result]
|
|
if {$TRAVERSE_ASSEMBLY_GRAPH_RESULT != $traverse_assembly_graph_result} {
|
|
puts "ERROR: Not expected traverse assembly graph result"
|
|
}
|
|
}
|
|
# Assembly nomenclature
|
|
if {[regexp "ASSEMBLY_NOMENCLATURE" $CompareDocumentsMode]} {
|
|
set assembly_nomenclature_result [XDumpNomenclature D_First {*}$ASSEMBLY_NOMENCLATURE_ARGS]
|
|
set assembly_nomenclature_result [string trim $assembly_nomenclature_result]
|
|
if {$ASSEMBLY_NOMENCLATURE_RESULT != $assembly_nomenclature_result} {
|
|
puts "ERROR: Not expected assembly nomenclature result"
|
|
}
|
|
}
|
|
# Rescale assembly
|
|
if {[regexp "RESCALE_ASSEMBLY" $CompareDocumentsMode]} {
|
|
if {[info exists RESCALE_ASSEMBLY_CHECK_BOUNDING] && $RESCALE_ASSEMBLY_CHECK_BOUNDING} {
|
|
XGetOneShape S_First D_First
|
|
bounding S_First -noTriangulation -save xmin ymin zmin xmax ymax zmax
|
|
set xmin_First [format "%.2f" [dval xmin]]
|
|
set ymin_First [format "%.2f" [dval ymin]]
|
|
set zmin_First [format "%.2f" [dval zmin]]
|
|
set xmax_First [format "%.2f" [dval xmax]]
|
|
set ymax_First [format "%.2f" [dval ymax]]
|
|
set zmax_First [format "%.2f" [dval zmax]]
|
|
set dx_First [expr $xmax_First - $xmin_First]
|
|
set dy_First [expr $ymax_First - $ymin_First]
|
|
set dz_First [expr $zmax_First - $zmin_First]
|
|
}
|
|
if {[info exists RESCALE_ASSEMBLY_ARGS]} {
|
|
XRescaleGeometry D_First $RESCALE_ASSEMBLY_FACTOR {*}$RESCALE_ASSEMBLY_ARGS
|
|
} else {
|
|
XRescaleGeometry D_First $RESCALE_ASSEMBLY_FACTOR
|
|
}
|
|
if {[info exists RESCALE_ASSEMBLY_CHECK_BOUNDING] && $RESCALE_ASSEMBLY_CHECK_BOUNDING} {
|
|
XGetOneShape S_Second D_First
|
|
bounding S_Second -noTriangulation -save xmin ymin zmin xmax ymax zmax
|
|
set xmin_Second [format "%.2f" [dval xmin]]
|
|
set ymin_Second [format "%.2f" [dval ymin]]
|
|
set zmin_Second [format "%.2f" [dval zmin]]
|
|
set xmax_Second [format "%.2f" [dval xmax]]
|
|
set ymax_Second [format "%.2f" [dval ymax]]
|
|
set zmax_Second [format "%.2f" [dval zmax]]
|
|
set dx_Second [expr $xmax_Second - $xmin_Second]
|
|
set dy_Second [expr $ymax_Second - $ymin_Second]
|
|
set dz_Second [expr $zmax_Second - $zmin_Second]
|
|
set dx_Scale [expr $dx_Second / $dx_First]
|
|
set dy_Scale [expr $dy_Second / $dy_First]
|
|
set dz_Scale [expr $dz_Second / $dz_First]
|
|
if { $dx_Scale != $RESCALE_ASSEMBLY_FACTOR } {
|
|
puts [format "Error : Compared X scale %f differs from %f specified one" $dx_Scale $RESCALE_ASSEMBLY_FACTOR]
|
|
}
|
|
if { $dy_Scale != $RESCALE_ASSEMBLY_FACTOR } {
|
|
puts [format "Error : Compared Y scale %f differs from %f specified one" $dy_Scale $RESCALE_ASSEMBLY_FACTOR]
|
|
}
|
|
if { $dz_Scale != $RESCALE_ASSEMBLY_FACTOR } {
|
|
puts [format "Error : Compared Z scale %f differs from %f specified one" $dz_Scale $RESCALE_ASSEMBLY_FACTOR]
|
|
}
|
|
}
|
|
}
|
|
################## WRITING FILE ##################"
|
|
###Open temporary file
|
|
if { [string compare ${TypeOfFile} ""] == 0 } {
|
|
set saving [SaveAs D_First $WorkDirectory/${casename}_D_First.xbf]
|
|
set closing [Close D_First]
|
|
set opening [Open $WorkDirectory/${casename}_D_First.xbf D_Second]
|
|
} elseif {[string compare ${TypeOfFile} "igs"] == 0 } {
|
|
set writing [WriteIges D_First $WorkDirectory/${casename}_D_First.igs]
|
|
set reading [ReadIges D_Second $WorkDirectory/${casename}_D_First.igs]
|
|
} elseif {[string compare ${TypeOfFile} "stp"] == 0 } {
|
|
set writing [WriteStep D_First $WorkDirectory/${casename}_D_First.stp]
|
|
set reading [ReadStep D_Second $WorkDirectory/${casename}_D_First.stp]
|
|
} elseif {[string compare ${TypeOfFile} "brep"] == 0 } {
|
|
XGetOneShape Shape1 D_First
|
|
set saving [save Shape1 $WorkDirectory/${casename}_D_First.brep]
|
|
restore $WorkDirectory/${casename}_D_First.brep NewShape1
|
|
XNewDoc D_Second
|
|
XAddShape D_Second NewShape1
|
|
} else {
|
|
puts "Error : Wrong value of TypeOfFile"
|
|
set ErrorCode 2
|
|
}
|
|
|
|
if { [string compare ${TypeOfFile} ""] == 0 } {
|
|
catch {[file delete $WorkDirectory/${casename}_D_First.xbf]}
|
|
} elseif {[string compare ${TypeOfFile} "igs"] == 0 } {
|
|
catch {[file delete $WorkDirectory/${casename}_D_First.igs]}
|
|
} elseif {[string compare ${TypeOfFile} "stp"] == 0} {
|
|
catch {[file delete $WorkDirectory/${casename}_D_First.stp]}
|
|
} elseif {[string compare ${TypeOfFile} "brep"] == 0} {
|
|
catch {[file delete $WorkDirectory/${casename}_D_First.brep]}
|
|
}
|
|
# Get information
|
|
# Get shape for standard analysis
|
|
XGetOneShape res_Second D_Second
|
|
# Checkshape
|
|
if {[regexp "CHECKSHAPE" $CompareDocumentsMode]} {
|
|
set Checkshape_Second [checkshape res_Second]
|
|
}
|
|
# Nbshapes
|
|
if {[regexp "SHAPES" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
|
|
set Stat_Second [nbshapes res_Second]
|
|
regexp {VERTEX +: +([-0-9.+eE]+)} $Stat_Second full nbDocVertex_Second
|
|
regexp {EDGE +: +([-0-9.+eE]+)} $Stat_Second full nbDocEdge_Second
|
|
regexp {WIRE +: +([-0-9.+eE]+)} $Stat_Second full nbDocWire_Second
|
|
regexp {FACE +: +([-0-9.+eE]+)} $Stat_Second full nbDocFace_Second
|
|
regexp {SHELL +: +([-0-9.+eE]+)} $Stat_Second full nbDocShell_Second
|
|
regexp {SOLID +: +([-0-9.+eE]+)} $Stat_Second full nbDocSolid_Second
|
|
regexp {COMPSOLID +: +([-0-9.+eE]+)} $Stat_Second full nbDocCompsolid_Second
|
|
regexp {COMPOUND +: +([-0-9.+eE]+)} $Stat_Second full nbDocCompound_Second
|
|
regexp {SHAPE +: +([-0-9.+eE]+)} $Stat_Second full nbDocShape_Second
|
|
}
|
|
# Faces
|
|
if {[regexp "FACES" $CompareDocumentsMode]} {
|
|
set type_of [dtyp res_Second]
|
|
if {[regexp "FACE" $type_of] } {
|
|
set faces_list_Second "FACE"
|
|
} else {
|
|
set faces_list_Second [explode res_Second F]
|
|
}
|
|
}
|
|
# Volumes
|
|
if {[regexp "VOLUME_EXACTLY" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
|
|
set DocLabels_Second [XGetFreeShapes D_Second]
|
|
set DocVolume_Second "0"
|
|
foreach {i} $DocLabels_Second {
|
|
XSetProps D_Second $i 1
|
|
set DocVolume_Second [expr $DocVolume_Second + abs([XGetVolume D_Second $i])]
|
|
}
|
|
} elseif {[regexp "VOLUME" $CompareDocumentsMode]} {
|
|
if {[expr $IsComp == 1]} {
|
|
# Perform sewing of resulting shape. If amount of closed shells of resulting shape is not equal to amount of
|
|
# closed shells of initial shape increace tolerance and perform sewing again
|
|
set nbClosedShells_Second 0
|
|
set toler 0.00001
|
|
set IsSewingPerformedCorrectly 0
|
|
XGetOneShape Shape_Second D_Second
|
|
for {set k 0} {$k < 5} {incr k} {
|
|
# 1. Perform sewing
|
|
puts [format "PERFORM SEWING. TOLERANCE = %f" $toler]
|
|
catch { sewing res $toler Shape_Second }
|
|
# 2. Calculate amount of closed shells
|
|
set nbClosedShells_Second 0
|
|
if {[regexp SHELL [whatis res]]} {
|
|
catch { fbclose res 0.001 $toler }
|
|
catch {
|
|
if {[llength [explode res_o V]] == 0 && [llength [explode res_c V]] == 0 } {
|
|
set nbClosedShells_Second 1
|
|
}
|
|
}
|
|
} else {
|
|
set shells [explode res Sh]
|
|
foreach i $shells {
|
|
catch { fbclose $i 0.001 0.000001 }
|
|
catch {
|
|
if {[llength [explode $i_o V]] == 0 && [llength [explode $i_c V]] == 0} {
|
|
set nbClosedShells_Second [expr $nbClosedShells_Second +1]
|
|
}
|
|
}
|
|
}
|
|
}
|
|
# 3. Verify amount of closed shells
|
|
if { $nbClosedShells_Second >= $nbClosedShells_First} {
|
|
set IsSewingPerformedCorrectly 1
|
|
break
|
|
}
|
|
# 4. Set new tolerance
|
|
set toler [expr $toler * 10]
|
|
}
|
|
XNewDoc T_Second
|
|
XAddShape T_Second res;
|
|
XSetProps T_Second 0:1:1:1 1;
|
|
set DocVolume_Second [expr abs([XGetVolume T_Second 0:1:1:1])]
|
|
if { $IsSewingPerformedCorrectly == 0 } {
|
|
puts "Error : SEWING IS NOT PERFORMED PROPERLY"
|
|
}
|
|
} else {
|
|
puts "Volume of shape is equal 0"
|
|
set DocVolume_Second 0
|
|
set nbClosedShells_Second 0
|
|
}
|
|
}
|
|
# Colors
|
|
if {[regexp "COLORS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
|
|
set DocAllColors_Second [lsort [XGetAllColors D_Second]]
|
|
set DocShapeLabels_Second [XGetTopLevelShapes D_Second]
|
|
}
|
|
# Layers
|
|
if { [regexp "LAYERS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode] || [regexp "LAYERS_EXACTLY" $CompareDocumentsMode] } {
|
|
set DocLayers_Second [XGetAllLayers D_Second]
|
|
set DocLayerLabels_Second [XGetLayerLabels D_Second]
|
|
set DocShapeLabels_Second [XGetTopLevelShapes D_Second]
|
|
}
|
|
puts "====================RESULTS OF COMPARISON===================="
|
|
if {[regexp "CHECKSHAPE" $CompareDocumentsMode]} {
|
|
puts "====================CHECKSHAPE==============="
|
|
puts "First : $Checkshape_First"
|
|
puts "Second : $Checkshape_Second"
|
|
if {[string compare $Checkshape_First $Checkshape_Second] != 0} {
|
|
puts "Error : checkshape is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
}
|
|
if {[regexp "SHAPES" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
|
|
puts "====================SHAPES==============="
|
|
puts "Vertex First: $nbDocVertex_First"
|
|
puts "Vertex Second: $nbDocVertex_Second"
|
|
if {[string compare $nbDocVertex_First $nbDocVertex_Second] != 0} {
|
|
puts "Error : nbshapes is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
puts "Edge First: $nbDocEdge_First"
|
|
puts "Edge Second: $nbDocEdge_Second"
|
|
if {[string compare $nbDocEdge_First $nbDocEdge_Second] != 0} {
|
|
puts "Error : nbshapes is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
puts "Wire First: $nbDocWire_First"
|
|
puts "Wire Second: $nbDocWire_Second"
|
|
if {[string compare $nbDocWire_First $nbDocWire_Second] != 0} {
|
|
puts "Error : nbshapes is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
puts "Face First: $nbDocFace_First"
|
|
puts "Face Second: $nbDocFace_Second"
|
|
if {[string compare $nbDocFace_First $nbDocFace_Second] != 0} {
|
|
puts "Error : nbshapes is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
puts "Shell First: $nbDocShell_First"
|
|
puts "Shell Second: $nbDocShell_Second"
|
|
if {[string compare $nbDocShell_First $nbDocShell_Second] != 0} {
|
|
puts "Error : nbshapes is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
puts "Solid First: $nbDocSolid_First"
|
|
puts "Solid Second: $nbDocSolid_Second"
|
|
if {[string compare $nbDocSolid_First $nbDocSolid_Second] != 0} {
|
|
puts "Error : nbshapes is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
puts "Compsolid First: $nbDocCompsolid_First"
|
|
puts "Compsolid Second: $nbDocCompsolid_Second"
|
|
if {[string compare $nbDocCompsolid_First $nbDocCompsolid_Second] != 0} {
|
|
puts "Error : nbshapes is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
puts "Compound First: $nbDocCompound_First"
|
|
puts "Compound Second: $nbDocCompound_Second"
|
|
if {[string compare $nbDocCompound_First $nbDocCompound_Second] != 0} {
|
|
puts "Error : nbshapes is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
puts "Shape First: $nbDocShape_First"
|
|
puts "Shape Second: $nbDocShape_Second"
|
|
if {[string compare $nbDocShape_First $nbDocShape_Second] != 0} {
|
|
puts "Error : nbshapes is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
}
|
|
if {[regexp "FACES" $CompareDocumentsMode]} {
|
|
puts "================FACES==================="
|
|
puts "Faces First: [llength $faces_list_First]"
|
|
puts "Faces Second: [llength $faces_list_Second]"
|
|
if {[llength $faces_list_First] != [llength $faces_list_Second]} {
|
|
puts "Error : The number of faces is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
}
|
|
if {[regexp "VOLUME_EXACTLY" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
|
|
puts "===============VOLUME_EXACTLY===================="
|
|
puts "DocLabels First: $DocLabels_First"
|
|
puts "DocLabels Second: $DocLabels_Second"
|
|
if {[string compare $DocLabels_First $DocLabels_Second] != 0} {
|
|
puts "Error : DocLabels are wrong"
|
|
set ErrorCode 2
|
|
}
|
|
puts "DocVolume First: $DocVolume_First"
|
|
puts "DocVolume Second: $DocVolume_Second"
|
|
if {[string compare $DocVolume_First $DocVolume_Second] != 0} {
|
|
set MaxVolume [expr $DocVolume_First> $DocVolume_Second ? $DocVolume_First : $DocVolume_Second]
|
|
if {[expr $MaxVolume > 0]} {
|
|
set diff [ expr abs($DocVolume_First-$DocVolume_Second)/ $MaxVolume * 100 ]
|
|
} else {
|
|
set diff 0
|
|
}
|
|
if {[expr $diff > 5]} {
|
|
puts [format "Error : The difference between volumes is %f%s" $diff "%"]
|
|
set ErrorCode 2
|
|
} else {
|
|
puts [format "The difference between volumes is %f%s - OK" $diff "%"]
|
|
}
|
|
}
|
|
} elseif {[regexp "VOLUME" $CompareDocumentsMode]} {
|
|
puts "===============VOLUME===================="
|
|
puts "DocVolume First: $DocVolume_First"
|
|
puts "DocVolume Second: $DocVolume_Second"
|
|
if {[string compare $DocVolume_First $DocVolume_Second] != 0} {
|
|
set MaxVolume [expr $DocVolume_First> $DocVolume_Second ? $DocVolume_First : $DocVolume_Second]
|
|
if {[expr $MaxVolume > 0]} {
|
|
set diff [ expr abs($DocVolume_First-$DocVolume_Second)/ $MaxVolume * 100 ]
|
|
} else {
|
|
set diff 0
|
|
}
|
|
if {[expr $diff > 5]} {
|
|
puts [format "Error : The difference between volumes is %f%s" $diff "%"]
|
|
set ErrorCode 2
|
|
} else {
|
|
puts [format "The difference between volumes is %f%s - OK" $diff "%"]
|
|
}
|
|
}
|
|
puts "nbClosedShells First: $nbClosedShells_First"
|
|
puts "nbClosedShells Second: $nbClosedShells_Second"
|
|
if {[string compare $nbClosedShells_First $nbClosedShells_Second] != 0} {
|
|
puts "Error : nbClosedShells is wrong"
|
|
set ErrorCode 2
|
|
}
|
|
}
|
|
if {[regexp "COLORS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
|
|
puts "==============COLORS====================="
|
|
puts "DocAllColors First: $DocAllColors_First"
|
|
puts "DocAllColors Second: $DocAllColors_Second"
|
|
if {[llength $DocAllColors_Second] == 0 && [llength $DocAllColors_First] != 0} {
|
|
puts "Warning : There are no colors in D_Second although they are present in D_First"
|
|
if {[expr $ErrorCode == 0]} {
|
|
set ErrorCode 1
|
|
}
|
|
}
|
|
if {[regexp "COLORS_EXACTLY" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode]} {
|
|
if {[string compare $DocAllColors_First $DocAllColors_Second] != 0} {
|
|
puts "Error : Compared documents have a different set of colors"
|
|
set ErrorCode 2
|
|
}
|
|
}
|
|
puts "DocShapeLabels First: $DocShapeLabels_First"
|
|
puts "DocShapeLabels Second: $DocShapeLabels_Second"
|
|
if {[string compare $DocShapeLabels_First $DocShapeLabels_Second] != 0} {
|
|
if {[regexp "ALL" $CompareDocumentsMode]} {
|
|
set ErrorCode 2
|
|
puts "Error : Compared documents have a different number of toplevel shapes "
|
|
} else {
|
|
puts "Warning : Compared documents have a different number of toplevel shapes "
|
|
if {[expr $ErrorCode == 0]} {
|
|
set ErrorCode 1
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if { [regexp "LAYERS" $CompareDocumentsMode] || [regexp "ALL" $CompareDocumentsMode] || [regexp "LAYERS_EXACTLY" $CompareDocumentsMode] } {
|
|
puts "================LAYERS==================="
|
|
|
|
puts "DocLayers First: $DocLayers_First"
|
|
puts "DocLayers Second: $DocLayers_Second"
|
|
if {[string compare $DocLayers_First $DocLayers_Second] != 0} {
|
|
if {[regexp "LAYERS_EXACTLY" $CompareDocumentsMode]} {
|
|
set ErrorCode 2
|
|
puts "Error : Compared documents have a different set of LAYERS names"
|
|
} else {
|
|
puts "Warning : Compared documents have a different set of LAYERS names"
|
|
if {[expr $ErrorCode == 0]} {
|
|
set ErrorCode 1
|
|
}
|
|
}
|
|
}
|
|
puts "DocLayerLabels First: $DocLayerLabels_First"
|
|
puts "DocLayerLabels Second: $DocLayerLabels_Second"
|
|
if {[string compare $DocLayerLabels_First $DocLayerLabels_Second] != 0} {
|
|
if {[regexp "LAYERS_EXACTLY" $CompareDocumentsMode]} {
|
|
puts [format "Error : Compared documents have a different set of LAYERS labels"]
|
|
set ErrorCode 2
|
|
} else {
|
|
puts [format "Warning : Compared documents have a different set of LAYERS labels"]
|
|
if {[expr $ErrorCode == 0]} {
|
|
set ErrorCode 1
|
|
}
|
|
}
|
|
}
|
|
puts "DocShapeLabels First: $DocShapeLabels_First"
|
|
puts "DocShapeLabels Second: $DocShapeLabels_Second"
|
|
if {[string compare $DocShapeLabels_First $DocShapeLabels_Second] != 0} {
|
|
if {[regexp "ALL" $CompareDocumentsMode]} {
|
|
puts "Error : DocShapeLabels is wrong"
|
|
set ErrorCode 2
|
|
} else {
|
|
puts "Warning : DocShapeLabels is wrong"
|
|
set ErrorCode 1
|
|
}
|
|
}
|
|
if {[regexp "LAYERS_EXACTLY" $CompareDocumentsMode]} {
|
|
set DDD $DocLayers_First
|
|
if {$DocLayers_First > $DocLayers_Second} {
|
|
set DDD $DocLayers_Second
|
|
}
|
|
foreach {i} $DDD {
|
|
set DocLabel_First [XFindLayer D_First $i]
|
|
set DocLabel_Second [XFindLayer D_Second $i]
|
|
|
|
if {[string compare $DocLabel_First $DocLabel_Second] != 0} {
|
|
puts [format " DocLabel_First(%s) = %s " $i $DocLabel_First]
|
|
puts [format " DocLabel_Second(%s) = %s " $i $DocLabel_Second]
|
|
puts [format "Error : Compared documents have different labels for one layer (%s)" $i]
|
|
set ErrorCode 2
|
|
}
|
|
}
|
|
|
|
set DocShapeLabels_First [XGetTopLevelShapes D_First]
|
|
set DocShapeLabels_Second [XGetTopLevelShapes D_Second]
|
|
|
|
set DDD $DocShapeLabels_First
|
|
if {$DocShapeLabels_First > $DocShapeLabels_Second} {
|
|
set DDD $DocShapeLabels_Second
|
|
}
|
|
foreach {i} $DDD {
|
|
set DocLayer_First [XGetLayers D_First $i]
|
|
set DocLayer_Second [XGetLayers D_Second $i]
|
|
|
|
if {[string compare $DocLayer_First $DocLayer_Second] != 0} {
|
|
set NewLabel "$i:1"
|
|
set DocLayer_Second [XGetLayers D_Second $NewLabel]
|
|
}
|
|
|
|
if {[string compare $DocLayer_Second $DocLayer_First] != 0} {
|
|
puts [format " DocLayer_First(%s) = %s " $i $DocLayer_First]
|
|
puts [format "DocLayer_Second(%s) = %s " $i $DocLayer_Second]
|
|
puts [format "DocLayer_Second(%s) = %s " $NewLabel $DocLayer_Second]
|
|
puts [format "Error : Compared documents have different LAYERS for the shape located on %s label" $i]
|
|
set ErrorCode 2
|
|
}
|
|
}
|
|
|
|
set DDD $DocLayerLabels_First
|
|
if {$DocLayerLabels_First > $DocLayerLabels_Second} {
|
|
set DDD $DocLayerLabels_Second
|
|
}
|
|
foreach {i} $DDD {
|
|
set LayerName_First [XGetOneLayer D_First $i]
|
|
set LayerName_Second [XGetOneLayer D_Second $i]
|
|
|
|
if {[string compare $LayerName_First $LayerName_Second]!=0} {
|
|
set NewLabel "$i:1"
|
|
set LayerName_Second [XGetOneLayer D_Second $NewLabel]
|
|
}
|
|
if {[string compare $LayerName_Second $LayerName_First]!=0} {
|
|
puts [format " LayerName_First(%s) = %s " $i $LayerName_First]
|
|
puts [format "LayerName_Second(%s) = %s " $i $LayerName_Second]
|
|
puts [format "LayerName_Second(%s) = %s " $NewLabel $LayerName_Second]
|
|
puts [format "Error : Compared documents have different LAYERS names on %s label" $i]
|
|
set ErrorCode 2
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if {![regexp "SKIP_CHECKVIEW" $CompareDocumentsMode]} {
|
|
XGetOneShape result D_Second
|
|
if {[isdraw result]} {
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|
|
}
|
|
}
|
|
|
|
if {[expr $ErrorCode == 2]} {
|
|
puts "Error : errors occur during test"
|
|
} elseif {[expr $ErrorCode == 1]} {
|
|
puts "WARNING OCCURS DURING TEST"
|
|
} elseif {[expr $ErrorCode != 0]} {
|
|
puts "Error : a wrong value of ErrorCode."
|
|
}
|
|
|
|
puts "TEST COMPLETED"
|