|
byerry
Nuovo Utente
Regione: Campania
Prov.: Napoli
Cittā: Napoli
31 Messaggi |
 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)]
|
|
|
admin
Amministratore
Regione: Veneto
Prov.: TV
Cittā: Treviso
188 Messaggi |
 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! |
 |
|
|
|
Problema con definizione punto
