mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-26 10:19:45 +03:00
24de79c3a5
Added destructor for TDocStd_Document which performs destruction of document in logical order in order to avoid exception when Undo and Redo fields are destructed after THF_Data field. Added removing name of closed document from tcl variables in the DRAW in order to avoid exception during use the same name for new document. Modification to avoid compilation error class ViewerTest Minor correction in test caf basic G3
115 lines
2.8 KiB
Plaintext
115 lines
2.8 KiB
Plaintext
# =================== OCAF ======================
|
|
# Naming
|
|
#
|
|
# Testing purpose: Naming selection mechanism
|
|
#
|
|
# Test case: E2 (ShapeOrientation is used only for SingleSelection)
|
|
# 1. Create Box B2
|
|
# 2. Translate B2 along XYZ
|
|
# 3. Translate B2 along Line (edge of B2)
|
|
# 4. Rotate B2 around Line (edge of translated B2)
|
|
# 5. Mirror B2 relative face of just rotated B2
|
|
# 6. Make fillet on B2
|
|
# 7. Make selection for all sub-shapes
|
|
# 8. Recompute modeling functions
|
|
# 9. Recompute selections
|
|
# ===============================================
|
|
|
|
#pload FULL
|
|
erase
|
|
Close D
|
|
|
|
NewDocument D MDTV-Standard
|
|
|
|
#Drivers' nick-names:
|
|
#Box|Sph|Cyl|Cut|Fuse|Prism|Revol|PTxyz|PTALine|PRLine|PMirr|Fillet|Attach|XAttach
|
|
# order of functions recomputation should be defined out of the tool (by end user)
|
|
|
|
## Test of transformation functions
|
|
AddDriver D Box Attach PTxyz PTALine PRLine PMirr Sph
|
|
|
|
#1 - create box using more flexible set of commands
|
|
NewCommand D
|
|
set B2 [AddObject D]; ## add object
|
|
set F2 [AddFunction D $B2 Box]; ## add function
|
|
BoxDX D $B2 190; ## set argumets of this function
|
|
BoxDY D $B2 290
|
|
BoxDZ D $B2 390
|
|
InitLogBook D; ## initialize (clean) internal maps of labels
|
|
ComputeFun D $F2; ## compute the function
|
|
GetShape D $F2:2 Box2; ## check result
|
|
whatis Box2
|
|
GetReference D $B2; ## referes to result NS
|
|
|
|
|
|
#2
|
|
NewCommand D
|
|
set FTr1 [PTranslateDXYZ D $B2 150 40 90]
|
|
ComputeFun D $FTr1; ## function recomputation
|
|
GetShape D $FTr1:2 Box2; ## get modified result
|
|
|
|
#3
|
|
NewCommand D
|
|
explode Box2 F
|
|
explode Box2_1 E
|
|
set Sel1 [AttachShape D Box2_1_1 ${B2} ${B2} 1]; ## set attachment
|
|
set FTr2 [PTranslateAlongLine D $B2 $Sel1 210]
|
|
ComputeFun D $FTr2
|
|
GetShape D $FTr2:2 Box3
|
|
|
|
#4
|
|
NewCommand D
|
|
explode Box3 F
|
|
explode Box3_1 E
|
|
set Sel4 [AttachShape D Box3_1_3 ${B2} ${B2} 1];
|
|
set FR1 [PRotateRoundLine D $B2 $Sel4 120]
|
|
ComputeFun D $FR1
|
|
GetShape D $FR1:2 Box4
|
|
|
|
#5
|
|
NewCommand D
|
|
explode Box4 F
|
|
set Sel5 [AttachShape D Box4_3 ${B2} ${B2} 1];
|
|
set FM [PMirror D $B2 $Sel5]
|
|
ComputeFun D $FM
|
|
GetShape D $FM:2 Box5
|
|
|
|
#6
|
|
NewCommand D
|
|
explode Box5 F
|
|
explode Box5_1 E
|
|
set Sel6 [AttachShape D Box5_1_3 ${B2} ${B2} 1];
|
|
AddDriver D Fillet
|
|
set Fill [AddFillet D $B2 25 $Sel6 0]
|
|
ComputeFun D $Fill
|
|
GetShape D $Fill:2 SF
|
|
|
|
#7
|
|
NewCommand D
|
|
set SL [TestSingleSelection D $B2 1]
|
|
set SL2 [TestMultipleSelection D $B2 0]
|
|
|
|
#7 modification
|
|
NewCommand D
|
|
BoxDX D $B2 290
|
|
|
|
#8 order of recomputation
|
|
NewCommand D
|
|
InitLogBook D; ## to be initialized before any recomputation of impacted functions set (if attachments are presented)
|
|
ComputeFun D $F2;
|
|
ComputeFun D $FTr1;
|
|
ComputeFun D $Sel1:1
|
|
ComputeFun D $FTr2
|
|
ComputeFun D $Sel4:1
|
|
ComputeFun D $FR1
|
|
ComputeFun D $Sel5:1
|
|
ComputeFun D $FM
|
|
ComputeFun D $Sel6:1
|
|
ComputeFun D $Fill
|
|
GetShape D $Fill:2 SF-new
|
|
|
|
#9 Recompute selections
|
|
SolveFlatFrom D $SL
|
|
|
|
NewCommand D
|