mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
acc909a893
- Implement top-down update for assemblies in XCAFDoc_ShapeTool - Get rid of UpdateAssembly() method used for partial (parent-only) update - Adjust STEP and IGES translators to use the top-down update after filling OCAF - Implement XUpdateAssemblies Draw command - Add test cases bug28055_1 and bug28055_2 for component removal and part update - Update XDE documentation to mention the new UpdateAssemblies() method Correction for issue CR28055 Adjusting of test case bugs/fclasses/bug28217
61 lines
1.5 KiB
Plaintext
61 lines
1.5 KiB
Plaintext
pload QAcommands
|
|
|
|
puts "============"
|
|
puts "CR28055"
|
|
puts "============"
|
|
puts ""
|
|
|
|
##########################################################################
|
|
# Add UpdateAssemblies() method for top-down update of assembly compounds
|
|
##########################################################################
|
|
|
|
##########################################################################
|
|
proc IsSame {s1 s2} {
|
|
global $s1 $s2
|
|
if {[IsSameShapes $s1 $s2] == 1} {return 1}
|
|
return 0
|
|
}
|
|
##########################################################################
|
|
|
|
ReadStep d [locate_data_file trj3_as1-tc-214.stp]
|
|
XShow d
|
|
vfit
|
|
vsetdispmode 1
|
|
|
|
# Explode on solids for comparison
|
|
XGetOneShape model1 d
|
|
explode model1 So
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${::casename}_1.png
|
|
|
|
# Update part's geometry
|
|
box box_nut -2 -2 0 22 18 8;
|
|
XSetShape d 0:1:1:5 box_nut
|
|
XUpdateAssemblies d
|
|
XShow d
|
|
|
|
# Explode on solids for comparison
|
|
XGetOneShape model2 d
|
|
explode model2 So
|
|
|
|
# 0 means "different", 1 means "same"
|
|
set same_mask {1 0 1 0 1 0 1 1 1 0 1 0 1 0 1 1 0 0}; list
|
|
set n [llength $same_mask]
|
|
|
|
# Compare subshapes (exploded compounds) with respect to the reference mask
|
|
set i 1
|
|
foreach same_flag $same_mask {
|
|
set same [IsSame model1_$i model2_$i]
|
|
puts "Comparison result for subshape $i: $same"
|
|
if {$same!=$same_flag} {
|
|
if {$same_flag==1} {
|
|
puts "Error: shapes are expected to be identical"
|
|
} else {
|
|
puts "Error: shapes are expected to be different"
|
|
}
|
|
}
|
|
incr i
|
|
}
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${::casename}_2.png
|