Revision 3828 trunk/extensions/extCAD/sm/ArcCADTool.sm

View differences:

ArcCADTool.sm
9 9 
%class ArcCADTool
10 10 
%package com.iver.cit.gvsig.gui.cad.tools.smc
11 11 
%import com.iver.cit.gvsig.gui.cad.tools.ArcCADTool
12 
%import com.iver.cit.gvsig.fmap.layers.FBitSet
13 12 

  		




  14
  13
  
    
%map ExecuteMap


  		




  15
  14
  
    
%%


  		




  ......




  25
  24
  
    
		}


  		




  26
  25
  
    

  		




  27
  26
  
    
	{


  		




  28
  
  
    
		addPoint(sel:FBitSet,pointX:double,pointY:double)


  		




  
  27
  
    
		addPoint( pointX:double,pointY:double)


  		




  29
  28
  
    
			First {


  		




  30
  29
  
    
				setQuestion("Insertar segundo punto");


  		




  31
  
  
    
				addPoint(sel,pointX,pointY);


  		




  
  30
  
    
				addPoint( pointX,pointY);


  		




  32
  31
  
    
				}


  		




  33
  32
  
    

  		




  34
  33
  
    
	}


  		




  35
  34
  
    
First{


  		




  36
  
  
    
	addPoint(sel:FBitSet,pointX:double,pointY:double)


  		




  
  35
  
    
	addPoint( pointX:double,pointY:double)


  		




  37
  36
  
    
		Second {


  		




  38
  37
  
    
			setQuestion("Insertar ultimo punto");


  		




  39
  
  
    
			addPoint(sel,pointX,pointY);


  		




  
  38
  
    
			addPoint( pointX,pointY);


  		




  40
  39
  
    
			}


  		




  41
  40
  
    

  		




  42
  41
  
    
}


  		




  43
  42
  
    
Second{


  		




  44
  
  
    
	addPoint(sel:FBitSet,pointX:double,pointY:double)


  		




  
  43
  
    
	addPoint( pointX:double,pointY:double)


  		




  45
  44
  
    
		Third {


  		




  46
  
  
    
			addPoint(sel,pointX,pointY);


  		




  
  45
  
    
			addPoint(pointX,pointY);


  		




  47
  46
  
    
			end();


  		




  48
  47
  
    
			}


  		




  49
  48
  
    
}


  		












Also available in:  Unified diff