mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
4f4b893546
'BUILD_Inspector' CMake option switches ON/OFF Inspector in compilation procedure (add additional dependency to Qt third party product) 'inspector.bat' starts sample to demonstrate possibilities of this tool. Replacing TOOLS to INSPECTOR key for 'pload' command in DRAW cases due to this change in DrawPlugin.
53 lines
1.1 KiB
Plaintext
53 lines
1.1 KiB
Plaintext
pload DCAF
|
|
pload VISUALIZATION
|
|
pload INSPECTOR
|
|
|
|
chrono qat start
|
|
# Create a new document and set UndoLimit
|
|
NewDocument D BinOcaf
|
|
tinspector -dfbrowser
|
|
|
|
#NewDocument D
|
|
cpulimit 300
|
|
UndoLimit D 100
|
|
|
|
# Open a transaction
|
|
NewCommand D
|
|
|
|
#1 - create box using more flexible set of commands
|
|
NewCommand D
|
|
# add object
|
|
set B2 [AddObject D]
|
|
# add function
|
|
set F2 [AddFunction D $B2 Box]
|
|
# set argumets of this function
|
|
BoxDX D $B2 190
|
|
BoxDY D $B2 290
|
|
BoxDZ D $B2 390
|
|
# initialize (clean) internal maps of labels
|
|
InitLogBook D
|
|
AddDriver D Box Attach Cyl
|
|
# compute the function
|
|
ComputeFun D $F2
|
|
|
|
# check result
|
|
set IsDone [catch {GetShape D $F2:2 Box2} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error: Get a value of TNaming_NamedShape attribute from restoring document"
|
|
} else {
|
|
puts "OK: Value of TNaming_NamedShape attribute from restoring document was got"
|
|
}
|
|
if { [regexp "SOLID FORWARD" [whatis Box2] ] != 1 } {
|
|
puts "Error: Box2 is not a solid forward"
|
|
} else {
|
|
puts "OK: Box2 is a solid forward"
|
|
}
|
|
|
|
# referes to result NS
|
|
GetReference D $B2;
|
|
|
|
tinspector -update
|
|
vinit
|
|
vdisplay Box2
|
|
vfit
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png |