-
afazio
| .
|
|
|
con ogni probabilità serve definire altre variabili globali, ma lo farò via via che ne riscontro necessita nel tentativo di tradurre il codice. Cosi come le eventuali modifiche che intendo apportare le meterò solo alla fine.
Intanto continuo con la traduzione: ecco la sub che inverte il senso di definizione dei vertici da orario ad antiorario e viceversa:
CODICE ' -------------------------------------------------------------------------- ' NOme sub: Inversione_poligono( ' Scopo : Inverte il senso di input del singolo poligono orario ' in antiorario e viceversa ' Parametri : il numero del poligono da invertire ' Valore : nessuno. Agisce sulla variabile globale poli() ' invertendone il senso di definizione dei vertici ' Implementazione : Luglio 2011 */ ' Autore : Zax2010 ' traduzione in VBA : Afazio Settembre 2012 ' ---------------------------------------------------------------------------
Sub inversione_poligono(np As Integer) Dim k As Integer Dim provv As Double
For k = 1 To poli(np).numv / 2 provv = poli(np).x(k) poli(np).x(k) = poli(np).x(poli(np).numv - k) poli(np).x(poli(np).numv - k) = provv
provv = poli(np).y(k) poli(np).y(k) = poli(np).y(poli(np).numv - k) poli(np).y(poli(np).numv - k) = provv Next End Sub
Ho provato il suo funzionamento creando due range con due diverse liste dei vertici, quindi con apposita macro legata ad un bottone sul foglio, ho riempito le variabili poli(0) e poli(1) coi dati contenuti nelle due liste, quindi ho richiamato la sub sovrastante e poi ho fatto trascrivere sul foglio in due altri range diversi dai primi i risultati. pare che tutto funzioni alla perfezione
Edited by afazio - 27/9/2012, 20:55
|
|
| .
|
390 replies since 26/9/2012, 10:47 29394 views
.