Le portail francophone de la géomatique

Bonjour,

La fonction YResultat() ci dessous, alimentée par un X et un objet vous retournera le Y correspondant à la projection du X sur l'objet ligne.
Par sécurité le systeme de projection du X doit être spécifié dans le code.

En espérant que ca corresponde à votre demande ou vous donne des idées !

Include "mapbasic.def"

Declare Sub Main
Declare Function YResultat(ByVal XRef as Float, ByVal Obj_Target as Object) as Float

Sub Main
    Dim Y_Result as Float
' Definition du systeme de projection a employer, a modifier selon le systeme employe
    Set CoordSys Earth Projection 3, 1002, "m", 0, 46.8, 45.8989188889, 47.69601444, 600000, 2200000

    Dim X_Search as Float
' X de reference
    X_Search = 814398.6

    Y_Result = YResultat(X_Search, selection.obj) 

' Affichage du résultat
    Print Y_Result 
    Dim NomCoucheDessin as String
    NomCoucheDessin = WindowInfo( FrontWindow(), WIN_INFO_TABLE) 
    Insert Into NomCoucheDessin (obj) Values (Createpoint(X_Search, Y_Result))
End Sub 


Function YResultat(ByVal XRef as Float, ByVal Obj_Target as Object) as Float

    Dim Obj_Intersect as object
    Dim YMin, YMax as integer

    YMin = ObjectGeography(Obj_Target, OBJ_GEO_MINY)
    YMax = ObjectGeography(Obj_Target, OBJ_GEO_MAXY)

    Obj_Intersect = IntersectNodes( Createline(XRef, YMin, XRef, YMax), Obj_Target, INCL_CROSSINGS)    

    YResultat = CentroidY(Obj_Intersect)
End Function

Dernière modification par Gérard parcoli (Fri 30 May 2008 23:12)

Bonjour , Je suis débutante en mapbasic , je voulais écrire un script qui en cliquant sur deux point d'une carte (carte qui contient la forme du relief (MNT): les hauteurs )  cette application est capable de calculer l'atténuation de l'onde entre ces deux point en se basant sur une des méthodes de calcule de diffraction . Donc j'ai besoin que ce script soit capable de lire les obstacles (montagne , colline ... ) ce qui existent entre l'émetteur et le récepteur . J'ai commencé à lire le guide officiel de mapbasic mais encore je n'arrive pas à résoudre mon problème . J'ai aussi une autre question , en Arcview , juste en cliquant sur un point dans carte ->les coordonnées de ce point apparaissent dans la table avec une couleur différente . mais malheureusement ce n'est pas le cas avec mes cartes (.tab ,.grd , .grc ) que j'arrive uniquement à ouvrir les cartes et non pas leurs tables ( je ne sais pas c'est quoi le problème . Merci bien de vouloir me répondre . J'en ai vraiment besoin . Je suis vraiment bloquée .

Dernière modification par supcom (Sun 26 January 2014 09:36)