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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
puts "================"
puts "BUC61039"
puts "OCC343"
puts "================"
puts ""
cpulimit 9000
pload XDE
set filepath [locate_data_file lh3d_px1.igs]
if [catch {igesbrep $filepath a *} catch_result] {
puts "Faulty OCC343: here is reading problem"
} else {
puts "Reading OCC343 OK"
tpcompound a
#
# First sewing
#
sewing result1 100. a
set FaceList [explode result1 f]
set FaceListLength [llength ${FaceList}]
if { ${FaceListLength} < 1 } {
puts "OCC343 - Error : FaceListLength= ${FaceListLength}"
}
set X_List1 [list]
set Y_List1 [list]
set Z_List1 [list]
for {set i 1} {${i} <= ${FaceListLength}} {incr i} {
set props [sprops result1_${i}]
set list [split ${props} "\n\t"]
set listLength [llength ${list}]
if { ${listLength} < 20 } {
puts "OCC343 - Error : listLength= ${listLength}"
}
set Center_Gravity_X [lindex ${list} 5]
set Center_Gravity_Y [lindex ${list} 6]
set Center_Gravity_Z [lindex ${list} 7]
set Center_Gravity_X [lindex [split ${Center_Gravity_X}] [expr [llength [split ${Center_Gravity_X}] ] - 1] ]
set Center_Gravity_Y [lindex [split ${Center_Gravity_Y}] [expr [llength [split ${Center_Gravity_Y}] ] - 1] ]
set Center_Gravity_Z [lindex [split ${Center_Gravity_Z}] [expr [llength [split ${Center_Gravity_Z}] ] - 1] ]
lappend X_List1 ${Center_Gravity_X}
lappend Y_List1 ${Center_Gravity_Y}
lappend Z_List1 ${Center_Gravity_Z}
}
vinit
vdisplay result1
vfit
set CycleNumber 10
for {set j 1} {${j} <= ${CycleNumber}} {incr j} {
veraseall
#
# Second sewing
#
if [catch {igesbrep $filepath a *} catch_result] {
puts "Faulty OCC343: here is reading problem"
} else {
puts "Reading OCC343 OK"
}
tpcompound a
sewing result2 100. a
set FaceList [explode result2 f]
set FaceListLength [llength ${FaceList}]
if { ${FaceListLength} < 1 } then {puts "OCC343 - Error : FaceListLength= ${FaceListLength}"}
set X_List2 [list]
set Y_List2 [list]
set Z_List2 [list]
for {set i 1} {${i} <= ${FaceListLength}} {incr i} {
set props [sprops result2_${i}]
set list [split ${props} "\n\t"]
set listLength [llength ${list}]
if { ${listLength} < 20 } {
puts "OCC343 - Error : listLength= ${listLength}"
}
set Center_Gravity_X [lindex ${list} 5]
set Center_Gravity_Y [lindex ${list} 6]
set Center_Gravity_Z [lindex ${list} 7]
set Center_Gravity_X [lindex [split ${Center_Gravity_X}] [expr [llength [split ${Center_Gravity_X}] ] - 1] ]
set Center_Gravity_Y [lindex [split ${Center_Gravity_Y}] [expr [llength [split ${Center_Gravity_Y}] ] - 1] ]
set Center_Gravity_Z [lindex [split ${Center_Gravity_Z}] [expr [llength [split ${Center_Gravity_Z}] ] - 1] ]
lappend X_List2 ${Center_Gravity_X}
lappend Y_List2 ${Center_Gravity_Y}
lappend Z_List2 ${Center_Gravity_Z}
}
set ListLength [llength ${X_List1}]
if { ${ListLength} != [llength ${Y_List1}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
if { ${ListLength} != [llength ${Z_List1}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
if { ${ListLength} != [llength ${X_List2}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
if { ${ListLength} != [llength ${Y_List2}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
if { ${ListLength} != [llength ${Z_List2}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
for {set i 0} {${i} < ${ListLength}} {incr i} {
set X1 [lindex ${X_List1} ${i}]
set X2 [lindex ${X_List2} ${i}]
if { ${X1} != ${X2} } {
puts "OCC343 - Error : X1= ${X1} X2= ${X2}"
}
set Y1 [lindex ${Y_List1} ${i}]
set Y2 [lindex ${Y_List2} ${i}]
if { ${Y1} != ${Y2} } {
puts "OCC343 - Error : Y1= ${Y1} Y2= ${Y2}"
}
set Z1 [lindex ${Z_List1} ${i}]
set Z2 [lindex ${Z_List2} ${i}]
if { ${Z1} != ${Z2} } {
puts "OCC343 - Error : Z1= ${Z1} Z2= ${Z2}"
}
}
tclean result1
vdisplay result1
vfit
}
}
set only_screen 1
|
