1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
puts "================"
puts "OCC630"
puts "================"
puts ""
########################################################
## DRAW hungs up at the attempt to restore solid previously saved in STEP format
########################################################
restore [locate_data_file OCC630.brep] a1
checkshape a1
######################################################################
file delete ${imagedir}/solid.stp
stepwrite a a1 ${imagedir}/solid.stp
dall
if [catch {stepread ${imagedir}/solid.stp a2 * } res] {
puts "Faulty OCC630: here is reading problem"
} else {
tpcompound result
checkshape result
set 2dviewer 0
}
|
