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
33
34
35
36
37
|
puts "================"
puts "OCC333"
puts "================"
puts ""
#######################################################
## Superimposed curves during intersection two surfaces
#######################################################
pload QAcommands
restore [locate_data_file OCC333a.draw] s12
############### checkshape su12 # is not a topological shape
restore [locate_data_file OCC333b.draw] s11
############### checkshape su11 # is not a topological shape
intersect result s12 s11
explode result e
clknots result_3
clknots result_13
mkedge e_1 result_3
mkedge e_2 result_13
set status [OCC333 e_1 e_2]
if {[llength ${status}] < 1} {
puts "OCC333 ERROR"
} else {
regexp {([-0-9.+eE]+)} ${status} full code
if { ${code} == 3 || ${code} == 2} {
puts "OCC333 OK : Intersection command works properly"
} else {
puts "Faulty OCC333 : Intersection was made WRONGLY"
}
}
donly i_3 i_13
set 2dviewer 0
|
