Lettura file di testo - STRINGGRID

[alexarmato66]

Fantastico,i layer vanno benissimo.
 

[alexarmato66]

le polinee si riferiscono ai 4 poligoni.Vanno benissimo identificare i settori con i 4 layer nell'esempio ci sono solo 3 (Poligono_1,Poligono_2,Poligono_3,Poligono_4)
Grazie

[doc]

@ alexarmato66

Ero sicuro che era per il tuo VCAP.....
A pensare che all'inizio lo proponevi come un "clone" di quello del Prof. Gelfi. Secondo me questo tuo progetto è diventato qualcosa di moooolto interessante. Aspetto con ansia la prox versione, anche per pubblicarla.
Ciao.

[Stilgar]

VCAP?
Ora son curioso.
Qualche link pubblico?


Stilgar

[DragoRosso]

Ecco il progetto completo ...

Hai una classe TReadDXF (che devi creare e distruggere), e la funzione Carica(nomefile).

Vedi sull'evento del pulsante, è spiegato più o meno tutto.
Il resto del codice non è molto commentato ....

Se vuoi cambiare i nomi delle sezioni lo puoi fare anche a runtime, però ricordati di passarli in MAIUSCOLO (sarebbe meglio che il WRITE delle rispettive proprietà cfosse una funzione che converte in maiuscolo il dato passato invece che riportarlo direttamente nella variabile).

La classe "smista" correttamente le proprietà di BARRE e TREFORI, ma si aspetta che in un POLIGONO (POLYLINE) ci siano solo i dati di uno stesso layer.

N.B.: NON SO' SE RIESCI AD APRIRE IL PROGETTO... L'HO FATTO CON L'ULTIMA VERSIONE STABILE...COMUNQUE VEDI IL FILE UNIT1.PAS

Ciao

[alexarmato66]

DragoRosso non so come ringraziarti!!!!

[doc]

@ Stilgar

Se vuoi vedere VCAP.... http://www.ing-mirko-spagnotto.com/collaboratori.htm
Ho concesso questo spazio al nostro amico alexarmato66 perchè penso che il suo progetto/programma sia qualcosa che merita molto, ed io ci credo.

[alexarmato66]

Ho provato a modificare il codice gentilmente concesso da DragoRosso ma devo aver commesso qualche errore.
Nell'importazione del dxf  le coordinate delle polilinee non vanno nelle rispettive StringGrid.Nellesempio allegato il poligono n°3 va nella StrngGrid 4. A parte questo mio errore il codice di DragoRosso è una bomba!!!!

[DragoRosso]

Non è allineata la griglia ai dati perchè nel dxf ci sono diverse polilinee (non ho un cad a portata di mano per vedere dove sono).

Le polilinee che non hanno un nome tra i quattro definiti nel programma generano degli array vuoti.

Per verificare quale array è "operativo", testa la proprietà:

Codice: [Seleziona]

   ReadDXF.Poligoni[x][0].NomeLayer    <-- Ritorna il nome del layer (ad esempio "POLIGONO_1") se appartiene ad uno dei quattro, altrimenti ritorna un '' (cioè vuoto)

[x] è l'indice dell'array da testare,  -------> ( Low(ReadDXF.Poligoni) <= x <= High(ReadDXF.Poligoni)

[alexarmato66]

forse il mio errore sta nel fatto che ho interpretato il POLIGONO_1 come ReadDXF.Poligoni[1]?

[DragoRosso]

Vedi il progetto ...

Ciao

EDIT: Progetto che sorta i poligoni

[alexarmato66]

Grazie DragoRosso!!!!! Il tuo codice mi sarà molto utile.Sei veramente bravo!!!