mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
55 lines
956 B
Plaintext
55 lines
956 B
Plaintext
pload DCAF
|
|
|
|
if { [info exists imagedir] == 0 } {
|
|
set imagedir .
|
|
}
|
|
set BugNumber OCC24164
|
|
|
|
#1 open new document
|
|
NewDocument D BinOcaf
|
|
UndoLimit D 10 0 0
|
|
InitLogBook D
|
|
AddDriver D Box
|
|
|
|
#2 build box
|
|
NewCommand D
|
|
set B2 [AddObject D]
|
|
set F2 [AddFunction D $B2 Box]
|
|
BoxDX D $B2 190
|
|
BoxDY D $B2 290
|
|
BoxDZ D $B2 390
|
|
ComputeFun D $F2
|
|
GetShape D $F2:2 Box2
|
|
NewCommand D
|
|
|
|
#3 save shape in the document
|
|
set aTmpFile ${imagedir}/${casename}.cbf
|
|
SaveAs D $aTmpFile
|
|
|
|
#4 close document
|
|
set catch_status 0
|
|
if { [catch {Close D} catch_result] } {
|
|
set catch_status 1
|
|
}
|
|
if { ${catch_status} != 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|
|
#5 reopen just saved document with the same name
|
|
Open $aTmpFile D
|
|
file delete -force $aTmpFile
|
|
set catch_status 0
|
|
|
|
#6 close the document
|
|
if { [catch {Close D} catch_result] } {
|
|
set catch_status 1
|
|
}
|
|
|
|
if { ${catch_status} != 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|