GeoProcessor

Go;
/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
Go;
/* Verschneidet zwei Geometrien und stellt das Ergebnis 
mit Hilfe einer Redline dar*/
ret=CreateObject(geo,"GeoProcessor"); 
    ret=geo.DoProcess2($GEOM0,$GEOM1,$OP); 
    count=geo.ResultCount(); 
    i=0; 
    while(compare(i,count,lt)); 
        ret=geo.ResultAt(i); 
        ret=ret.AsGeometry(); 
        ret=execold("MakeRedLine",theType:"ADD",theSymbol:8,theGeometry:ret); 
        inc(i); 
    wend;
End;
End;