Polygone ab bestimmter Größe automatisch aktivieren (Script)

[Mailing-Liste]

[--- Mailinglistenbeitrag: Donnerstag, 21. April 2005 17:26:42 Uhr ---]

 

Hallo VectorWorkers

 

Ich habe ein File mit 203 Polygonen von verschiedener Grösse. Nun brauche ich nur diejenige, die Grösser sind als 100m2. Wie kann ich eine solche Auswahl automatisch durchführen, ohne mich mühsam von Objekt zu Objekt durchklicken zu müssen.

 

Besten Dank

[Mailing-Liste]

hallo

 

dank vectorscipts ist dies möglich!

 

hab da was kurz gebastelt, sollte eigentlich funktionieren.

 

gruss, marc

 

PROCEDURE PickPoly;
CONST
flaeche = 100;            {<------- Hier wird der Wert für die Flaeche eingestellt }
                             {Einheiten beachten}

PROCEDURE Pick(H : HANDLE);
VAR
delta_fl : REAL;
BEGIN
    delta_fl:= HArea(h);
    IF delta_fl > flaeche Then Begin
        SetSelect(H);
    End;
END;

BEGIN
DSelectAll;
ForEachObject(Pick, T=POLY);
END;
Run(PickPoly);