Revision 3828 trunk/extensions/extCAD/sm/LineCADTool.sm
| LineCADTool.sm | ||
|---|---|---|
| 9 | 9 |
%class LineCADTool |
| 10 | 10 |
%package com.iver.cit.gvsig.gui.cad.tools.smc |
| 11 | 11 |
%import com.iver.cit.gvsig.gui.cad.tools.LineCADTool |
| 12 |
%import com.iver.cit.gvsig.fmap.layers.FBitSet |
|
| 13 | 12 |
|
| 14 | 13 |
%map ExecuteMap |
| 15 | 14 |
%% |
| ... | ... | |
| 27 | 26 |
|
| 28 | 27 |
{
|
| 29 | 28 |
|
| 30 |
addPoint(sel:FBitSet,pointX:double,pointY:double)
|
|
| 29 |
addPoint( pointX:double,pointY:double)
|
|
| 31 | 30 |
First {
|
| 32 | 31 |
setQuestion("Insertar segundo punto o angulo");
|
| 33 |
addPoint(sel,pointX,pointY);
|
|
| 32 |
addPoint( pointX,pointY);
|
|
| 34 | 33 |
} |
| 35 | 34 |
|
| 36 | 35 |
} |
| 37 | 36 |
First{
|
| 38 |
addPoint(sel:FBitSet,pointX:double,pointY:double)
|
|
| 37 |
addPoint( pointX:double,pointY:double)
|
|
| 39 | 38 |
First {
|
| 40 | 39 |
setQuestion("Insertar segundo punto o angulo");
|
| 41 |
addPoint(sel,pointX,pointY);
|
|
| 40 |
addPoint( pointX,pointY);
|
|
| 42 | 41 |
} |
| 43 |
addValue(sel:FBitSet,d:double)
|
|
| 42 |
addValue( d:double)
|
|
| 44 | 43 |
Second {
|
| 45 | 44 |
setQuestion("Insertar longitud o punto");
|
| 46 |
addValue(sel,d);
|
|
| 45 |
addValue( d);
|
|
| 47 | 46 |
} |
| 48 | 47 |
|
| 49 | 48 |
} |
| 50 | 49 |
Second{
|
| 51 |
addPoint(sel:FBitSet,pointX:double,pointY:double)
|
|
| 50 |
addPoint( pointX:double,pointY:double)
|
|
| 52 | 51 |
First {
|
| 53 | 52 |
setQuestion("Insertar segundo punto o angulo");
|
| 54 |
addPoint(sel,pointX,pointY);
|
|
| 53 |
addPoint( pointX,pointY);
|
|
| 55 | 54 |
} |
| 56 |
addValue(sel:FBitSet,d:double)
|
|
| 55 |
addValue( d:double)
|
|
| 57 | 56 |
First {
|
| 58 | 57 |
setQuestion("Insertar segundo punto o angulo");
|
| 59 |
addValue(sel,d);
|
|
| 58 |
addValue( d);
|
|
| 60 | 59 |
} |
| 61 | 60 |
} |
| 62 | 61 |
Default |
Also available in: Unified diff