mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-20 12:45:50 +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
99 lines
2.2 KiB
Plaintext
99 lines
2.2 KiB
Plaintext
# =================== OCAF ======================
|
|
# Naming
|
|
#
|
|
# Testing purpose: Naming selection mechanism
|
|
#
|
|
# Test case: F4 (ShapeOrientation is not used)
|
|
# 1. Create box $B2
|
|
# 2. Create prism Pr1 ($Prism1)
|
|
# 3. Create prism Pr2 ($Prism2)
|
|
# 4. $FS1 = Fuse ($Prism1, $Prism2)
|
|
# 5. Make selections for all sub-shapes
|
|
# 6. Modify B2
|
|
# 7. Recompute modeling functions
|
|
# 8. Recompute selections
|
|
# ===============================================
|
|
|
|
#pload FULL
|
|
erase
|
|
Close D
|
|
|
|
NewDocument D MDTV-Standard
|
|
|
|
#Drivers' nick-names:
|
|
#Box|Sph|Cyl|Cut|Fuse|Prism|SecRevol|FulRevol|PTxyz|PTALine|PRLine|PMirr|Fillet|Attach|XAttach
|
|
# order of functions recomputation should be defined out of the tool (by end user)
|
|
AddDriver D Box Attach PTxyz PTALine PRLine PMirr Sph Prism FulRevol SecRevol
|
|
|
|
#1 - create box using more flexible set of commands
|
|
NewCommand D
|
|
isos 12
|
|
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
|
|
fit
|
|
whatis Box2
|
|
GetReference D $B2; ## referes to result NS
|
|
|
|
|
|
#2 Prism 1
|
|
NewCommand D
|
|
explode Box2 F
|
|
set Bas1 [AttachShape D Box2_1 ${B2} ${B2} 0]
|
|
set Prism1 [AddPrism D $Bas1 300 0]
|
|
ComputeFun D $Prism1:1
|
|
GetShape D $Prism1:1:2 Pr1
|
|
|
|
PrismHeight D $Prism1 500
|
|
ComputeFun D $Prism1:1
|
|
GetShape D $Prism1:1:2 Pr1
|
|
fit
|
|
|
|
|
|
#3 Prism 2
|
|
NewCommand D
|
|
explode Pr1 F
|
|
set Bas2 [AttachShape D Pr1_1 ${Prism1} ${Prism1} 0]
|
|
set Prism2 [AddPrism D $Bas2 500 0]
|
|
ComputeFun D $Prism2:1
|
|
GetShape D $Prism2:1:2 Pr2
|
|
|
|
#4 => fuse
|
|
NewCommand D
|
|
AddDriver D Fuse
|
|
set FS1 [AddFuse D $Prism1 $Prism2]
|
|
ComputeFun D $FS1
|
|
GetShape D $FS1:2 Pr1
|
|
|
|
|
|
|
|
#5
|
|
NewCommand D
|
|
set SL [TestSingleSelection D $Prism1 0]
|
|
set SL2 [TestMultipleSelection D $Prism1 0]
|
|
# both have failed units!!!
|
|
|
|
#6
|
|
NewCommand D
|
|
BoxDZ D $B2 420
|
|
|
|
#7 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 $Bas1:1
|
|
ComputeFun D $Prism1:1
|
|
ComputeFun D $Bas2:1
|
|
ComputeFun D $Prism2:1
|
|
ComputeFun D $FS1
|
|
|
|
|
|
#8
|
|
SolveFlatFrom D $SL
|
|
NewCommand D
|