| V I S U A L I Z Z A D I S C U S S I O N E |
| byerry |
Inserito il - 09/07/2007 : 10:16:44
Ciao Lucio,
sto utilizzando il seguente codice per una semplice funzione If. Lo scopo è quello di farmi restituire i valori "orario" o "antiorario" a seconda se il punto di intersezione tra la linea (Rettifilo1) e l'arco coincide, o meno, con il punto iniziale dell'arco.
Potresti dirmi perchè non funziona? Forse c'è qualche problema nella dichiarazione del punto ArcoiPt?
Ecco il codice:
'Lettura verso percorrenza curva
Dim Pti As Variant
Dim ArcoiPt As Variant
Pti = Rettifilo1.IntersectWith(Arco, acExtendNone)
ArcoiPt = Arco.StartPoint
If Pti(0) = ArcoiPt(0) And Pti(1) = ArcoiPt(1) Then
Text6 = "antiorario"
Else
Text6 = "orario"
End If
Grazie, attendo notizie [:o)] |
| 1 U L T I M E R I S P O S T E (in alto le più recenti) |
| admin |
Inserito il - 10/07/2007 : 13:22:18
Ciao,
io ho provato mettendo uno dopo l'altro come codice quello dell' "IntersectWith" e quello che mi ha passato adeguando gli oggetti e funziona.
Secondo me ti manca qualche definizine di oggetto... Ah no aspetta, prova a dichiarare "Pti" e "ArcPt" come Duoble.
Hola! |
|
|
|
|
