Ciao a tutti, mi sono perso nell'uscire da questi cicli e questi if.
in pratica date 4 linee e per ognuna punto origine e punto finale, creare un quadrato o rettangolo che sia!
quindi avevo pensato di fare vari casiin vase a come sono unite le prime 2 inee, succ la 3 e poi la 4 a verificare che chiuda il quadrilatero.
non riesco però ad uscire completamente dal ciclo quando mi trovo il valore corretto!!
For i = 1 To NumLines - 1
ProgressBar1.Value = i
DoEvents
line1 = LineArray(i)
For j = i + 1 To NumLines
line2 = LineArray(j)
DoBlend = False
CalcTimerStart = Timer
If line1.OrigName = line2.OrigName Then
For k = 1 To NumLines
Line3 = LineArray(k)
DoBlend = False
If (Line3.ExtremName = line2.ExtremName) Or (Line3.OrigName = line2.ExtremName) Then
For m = 1 To NumLines
Line4 = LineArray(m)
If ((Line3.OrigName = Line4.OrigName) And (line1.ExtremName = Line4.ExtremName)) Or ((Line3.ExtremName = Line4.ExtremName) And (Line4.OrigName = line1.ExtremName)) Then
DoBlend = True
Exit For ' con questo mi esce fal 1 ciclo ma non mi va diretto alla verifica della condizione (if Doblen then) e i passa diretto all'altro k (cosa che non voglio!!!)
End If
Next m
End If
Next k
da qui avrei :
if DoBlen then
' quello che fa
End If
Next j
Next i
' altre cose
end if
spero di essere riuscito a farvi capire il mio problema!!
ciao a tutti e grazie, se avete altre vie sono ben accette!!
ciaooo
Rispondi quotando
