Revision 3744 trunk/extensions/extCAD/sm/LineCADTool.sm
| LineCADTool.sm | ||
|---|---|---|
| 21 | 21 |
init(); |
| 22 | 22 |
setQuestion("Insertar primer punto");
|
| 23 | 23 |
} |
| 24 |
Exit {
|
|
| 24 |
Exit{
|
|
| 25 |
end(); |
|
| 25 | 26 |
} |
| 26 | 27 |
|
| 27 | 28 |
{
|
| 28 | 29 |
|
| 29 | 30 |
addpoint(sel:FBitSet,pointX:double,pointY:double) |
| 30 |
Second {
|
|
| 31 |
setQuestion("Insertar segundo punto");
|
|
| 31 |
First {
|
|
| 32 |
setQuestion("Insertar segundo punto o angulo");
|
|
| 32 | 33 |
addpoint(sel,pointX,pointY); |
| 33 | 34 |
} |
| 35 |
|
|
| 34 | 36 |
} |
| 35 | 37 |
First{
|
| 36 | 38 |
addpoint(sel:FBitSet,pointX:double,pointY:double) |
| 37 |
Second {
|
|
| 38 |
setQuestion("Insertar segundo punto");
|
|
| 39 |
First {
|
|
| 40 |
setQuestion("Insertar segundo punto o angulo");
|
|
| 39 | 41 |
addpoint(sel,pointX,pointY); |
| 42 |
refresh(); |
|
| 40 | 43 |
} |
| 44 |
addvalue(sel:FBitSet,d:double) |
|
| 45 |
Second {
|
|
| 46 |
setQuestion("Insertar longitud o punto");
|
|
| 47 |
addvalue(sel,d); |
|
| 48 |
} |
|
| 49 |
|
|
| 41 | 50 |
} |
| 42 | 51 |
Second{
|
| 43 | 52 |
addpoint(sel:FBitSet,pointX:double,pointY:double) |
| 44 | 53 |
First {
|
| 45 |
setQuestion("Insertar primer punto");
|
|
| 54 |
setQuestion("Insertar segundo punto o angulo");
|
|
| 46 | 55 |
addpoint(sel,pointX,pointY); |
| 47 | 56 |
refresh(); |
| 48 | 57 |
} |
| 58 |
addvalue(sel:FBitSet,d:double) |
|
| 59 |
First {
|
|
| 60 |
setQuestion("Insertar segundo punto o angulo");
|
|
| 61 |
addvalue(sel,d); |
|
| 62 |
refresh(); |
|
| 63 |
} |
|
| 49 | 64 |
} |
| 50 | 65 |
Default |
| 51 | 66 |
{
|
Also available in: Unified diff