blob: 1f760398bc502ff7138d2d8da7e3764d1fcb9651 (
plain)
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
|
proc SelectLoop { DF shape T} {
#
# loop to select all the sub-shapes of type <T> in the context <shape>
#
global $DF
global $shape
display $shape
fit
clear
set L [Label $DF 0:1000]
isos $shape 0
set ter _*
global $ter
foreach S [directory [concat $shape$ter]] {
global $S
unset $S
}
uplevel #0 explode $shape $T
foreach S [directory [concat $shape$ter]] {
clear
puts $S
global $S
display $shape
display $S
#wclick
#SelectShape $DF $L $S $shape
SelectGeometry $DF $L $S $shape
DumpSelection $DF $L 1
wclick
SolveSelection $DF $L
pick ID x y z b
if {[dval b] == 3} {
foreach OS [directory [concat $shape$ter]] {
global $OS
unqset $OS
}
return
}
}
}
|
