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
|
puts "TODO ?OCC12345 ALL: ERROR. offsetperform operation not done."
puts "TODO ?OCC12345 ALL: Tcl Exception: ERROR. offsetperform operation not done."
puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
puts "========================"
puts " OCC427 "
puts "(case 6)"
puts "========================"
puts ""
cpulimit 1200
proc OFFSETSHAPE {distance faces calcul type} {
uplevel #0 explode s f
uplevel #0 offsetparameter 1e-7 $calcul $type
uplevel #0 offsetload s $distance $faces
uplevel #0 offsetperform result
}
#Shell no rough and rounded mode
set calcul "c"
set type "i"
circle w -20 0 0 20
mkedge w w 0 pi*2/5
wire w w
polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
mkplane profile profile
pipe s w profile
OFFSETSHAPE 1 {s_4 s_5} $calcul $type
set square 808.448
set 2dviewer 0
|
