I found a solution (may be not the best solution, but it's a solution).
The problem was that I meant planimetric distance and mapwingis intended geodetic distance.
I used axmap.geodeticdistance and calculate a scale factor to convert my radius:
...
Dim raggio As Double = 100000.0 ' 100 km
' calcolo la distanza geodetica
Dim distGeodetica As Double = AxMap1.GeodesicDistance(xCoo, yCoo, xCoo + raggio, yCoo)
Dim rapporto As Double = raggio / distGeodetica
Dim raggioCorretto = raggio * rapporto
...
AxMap1.DrawCircleEx(m_drawlay_hndl, xCoo, yCoo, raggioCorretto, m_utils.ColorByName(tkMapColor.Gray), False)
...
It seems to work fine now.
bye
Marco
The problem was that I meant planimetric distance and mapwingis intended geodetic distance.
I used axmap.geodeticdistance and calculate a scale factor to convert my radius:
...
Dim raggio As Double = 100000.0 ' 100 km
' calcolo la distanza geodetica
Dim distGeodetica As Double = AxMap1.GeodesicDistance(xCoo, yCoo, xCoo + raggio, yCoo)
Dim rapporto As Double = raggio / distGeodetica
Dim raggioCorretto = raggio * rapporto
...
AxMap1.DrawCircleEx(m_drawlay_hndl, xCoo, yCoo, raggioCorretto, m_utils.ColorByName(tkMapColor.Gray), False)
...
It seems to work fine now.
bye
Marco