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}" }