mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-30 13:05:50 +03:00
71 lines
1.3 KiB
Plaintext
71 lines
1.3 KiB
Plaintext
pload DCAF
|
|
|
|
set BugNumber OCC24164
|
|
if { [info exists imagedir] == 0 } {
|
|
set imagedir .
|
|
}
|
|
|
|
#1 open new document
|
|
NewDocument D BinOcaf
|
|
UndoLimit D 10 0 0
|
|
|
|
#2 define set of labels
|
|
NewCommand D
|
|
set Lab1 [Label D 0:1:1]
|
|
set Lab2 [Label D 0:1:2]
|
|
set Lab3 [Label D 0:1:3]
|
|
set Lab4 [Label D 0:1:4]
|
|
set Lab5 [Label D 0:1:5]
|
|
set Lab6 [Label D 0:1:6]
|
|
|
|
#3 set references
|
|
SetRefArray D $Lab1 1 2 $Lab2 $Lab1
|
|
SetRefArray D $Lab2 1 2 $Lab3 $Lab4
|
|
SetRefArray D $Lab3 1 1 $Lab1
|
|
|
|
#4 set additional references
|
|
NewCommand D
|
|
SetRefArray D $Lab4 1 2 $Lab5 $Lab1
|
|
SetRefArray D $Lab5 1 1 $Lab6
|
|
SetRefArray D $Lab6 1 2 $Lab3 $Lab4
|
|
|
|
NewCommand D
|
|
|
|
#5 check references
|
|
GetRefArray D $Lab1
|
|
GetRefArray D $Lab2
|
|
GetRefArray D $Lab3
|
|
GetRefArray D $Lab4
|
|
GetRefArray D $Lab5
|
|
GetRefArray D $Lab6
|
|
|
|
#6 save the document
|
|
set aTmpFile ${imagedir}/${casename}.cbf
|
|
SaveAs D $aTmpFile
|
|
|
|
#7 close the 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}"
|
|
}
|
|
|
|
#8 reopen just saved document with the same name
|
|
Open $aTmpFile D
|
|
file delete -force $aTmpFile
|
|
|
|
#9 close the document
|
|
if { [catch {Close D} catch_result] } {
|
|
set catch_status 1
|
|
}
|
|
|
|
if { ${catch_status} != 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|