Nota: Devi essere registrato per poter inserire un messaggio.
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!
|
|
