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
26
27
28
29
30
31
32
|
set os $env(os_type)
puts "================"
puts "OCC23379"
puts "================"
puts ""
#################################
# Exporting single point into STEP produces a compound with two points
#################################
pload XDE
set filedir ${imagedir}
set Name bug23379_point
set brepFileName ${Name}.brep
set stepFileName ${imagedir}/${Name}.step
restore [locate_data_file ${brepFileName}] point
stepwrite 0 point ${stepFileName}
stepread ${stepFileName} a *
set L [llength [explode a_1]]
puts "L=$L"
if { ${L} == 1} {
puts "OK : Number of points is good"
} else {
puts "Error : Number of points is bad"
}
catch {exec rm -f ${stepFileName}}
|
