Revision 3844 trunk/extensions/extCAD/sm/SelectionCADTool.sm
SelectionCADTool.sm | ||
---|---|---|
19 | 19 |
|
20 | 20 |
Entry { |
21 | 21 |
init(); |
22 |
setQuestion("Precise punto del rect?ngulo de selecci?n"); |
|
22 |
setQuestion("SELECCION" + "\n" + |
|
23 |
"Precise punto del rect?ngulo de selecci?n"); |
|
23 | 24 |
} |
24 | 25 |
Exit{ |
25 | 26 |
} |
26 | 27 |
|
27 | 28 |
{ |
28 | 29 |
addPoint(pointX:double,pointY:double) |
30 |
[!ctxt.isSelected(pointX,pointY)] |
|
29 | 31 |
First { |
30 | 32 |
setQuestion("Precise segundo punto del rect?ngulo de seleccion"); |
31 | 33 |
addPoint(pointX,pointY); |
32 | 34 |
} |
35 |
addPoint(pointX:double,pointY:double) |
|
36 |
[ctxt.isSelected(pointX,pointY)] |
|
37 |
Second { |
|
38 |
setQuestion("Precise punto destino"); |
|
39 |
addPoint(pointX,pointY); |
|
40 |
} |
|
33 | 41 |
} |
34 | 42 |
|
35 | 43 |
First{ |
36 | 44 |
addPoint(pointX:double,pointY:double) |
37 |
Second {
|
|
45 |
Initial {
|
|
38 | 46 |
setQuestion("Precise punto de estiramiento"); |
39 | 47 |
addPoint(pointX,pointY); |
40 | 48 |
} |
49 |
|
|
50 |
|
|
41 | 51 |
} |
42 | 52 |
Second{ |
43 | 53 |
addPoint(pointX:double,pointY:double) |
44 | 54 |
Third { |
45 |
setQuestion("Precise punto de estiramiento");
|
|
55 |
setQuestion("Precise punto destino");
|
|
46 | 56 |
addPoint(pointX,pointY); |
47 |
} |
|
48 |
|
|
49 |
} |
|
50 |
Third{ |
|
51 |
addPoint(pointX:double,pointY:double) |
|
52 |
Fourth { |
|
53 |
setQuestion("Precise punto de estiramiento"); |
|
54 |
addPoint(pointX,pointY); |
|
55 | 57 |
end(); |
56 | 58 |
refresh(); |
57 | 59 |
} |
58 | 60 |
} |
59 |
Fourth{
|
|
61 |
Third{
|
|
60 | 62 |
} |
61 | 63 |
Default |
62 | 64 |
{ |
Also available in: Unified diff