Aller sur Streetview et mappy

[vannes]

Bonjour à tous,

 

Vous trouverez ci-dessous un lisp qui pourrait peut-être être utile à certains utilisateurs AutocadMap.

Il permet d'ouvrir Streetview et mappy là où on se situe dans autocad.

J'espère avoir été assez clair.

Pour celui qui ne travaille pas en lambert II, il suffit d'adapter le lisp à son besoin. Pourquoi ne pas retirer la condition d'être en LII si il le faut.

 

(defun c:NM-StreetView (/ COORDONNEES LONGITUDELATITUDE LONGITUDE LATITUDE PROJECTIONDESTINATION PROJECTIONSOURCE)

(setq PROJECTIONSOURCE (ade_projgetwscode))

(cond

((= PROJECTIONSOURCE "NTF.Lambert-2")

(if (/= (getvar "ctab") "Model") (command "_layout" "e" "Model"));Etre en espace Objet

(ade_projsetsrc PROJECTIONSOURCE)

(ade_projsetdest "LL84")

(setq COORDONNEES (getpoint "\nCliquer le point à l'écran: "))

(setq LONGITUDELATITUDE (ade_projptforward COORDONNEES))

(setq LONGITUDE (car LONGITUDELATITUDE))

(setq LONGITUDE (rtos LONGITUDE 2 6))

(setq LATITUDE (car (cdr LONGITUDELATITUDE)))

(setq LATITUDE (rtos LATITUDE 2 6))

(setq PROJECTIONDESTINATION (ade_projgetinfo "LL84" "description"))

(princ (strcat

"\nX, Y: " (rtos (car COORDONNEES) 2 6) "," (rtos (cadr COORDONNEES) 2 6)

"\nConverti depuis: " PROJECTIONSOURCE

"\nConverti vers : " PROJECTIONDESTINATION

"\nLongitude, Latitude: " LONGITUDE "," LATITUDE

"\n"

))

(setq SITE1 (strcat "http://fr.mappy.com/#/0/M1/THome/N0,0," LONGITUDE "," LATITUDE "/Z11/"))

(setq SITE2 (strcat "http://data.mapchannels.com/mm/dual2/map.htm?x=" LONGITUDE "&y=" LATITUDE))

(setq SITE3 (strcat "https://www.google.com/maps?ie=UTF8&layer=c&cbll=" LATITUDE "," LONGITUDE "&cbp=1,0,,0,5&z=16"))

;;; (startapp "C:\\Program Files\\Internet Explorer\\iexplore.exe" SITE)

(command "_browser" SITE1)

(command "_browser" SITE2)

(command "_browser" SITE3)

)

(T

(initget "Oui Non _Yes No")

(if (eq (getkword "\nAssigner le système de coordonnées NTF.Lambert-2 au dessin actuel pour exécuter la commande[Oui/Non]? <N>: ")

"Yes")

(progn

(ade_projsetwscode "NTF.Lambert-2")

(setvar "GEOMARKERVISIBILITY" 0)

(princ "\nSystème attribué.")

(c:NM-StreetView)

)

)

)

)

(prin1)

)

 

 

Je remercie BONUSCAD pour son lisp:xy_LL84toRGF93 qui est la base de mon lisp.

 

Il y a peut-être mieux mais çà marche.

 

Bonne journée

[GEGEMATIC]

salut,

très sympa comme idée !

Gégé

[bonuscad]

Bonjour,

 

Merci pour le partage.

Pour moi ça fonctionne nickel.

J'ai adapté pour le "Lambert 93" et seul un site s'affiche bien au navigateur, c'est http://data.mapchannels.com/mm/dual2/map.htm

 

Il faut dire qu'au boulot c'est Firefox ESR 24.3.0, qu'on peut pas installer de plugins. Pour google je n'aie que le plugin simplifié, et mappy c'est pas très probant, souvant une page semi-blanche.

Mais bon ces problèmes ne sont en rien lié à ton code.

 

Ca va me servir puisqu'un site est fonctionnel.

[dan61]

Question bête :

Existe t-il, à votre connaissance, un lisp qui ferait la même chose avec google earth(pas forcément en mode streetview)?

Je n'ai rien trouvé sur ce site, ni sur le net.

[Lommig]

Bonjour,

 

Merci pour ce LISP très intéressant. Je me suis permis de le modifier un peu...

 

(defun c:NM-StreetView (/ COORDONNEES LONGITUDELATITUDE LONGITUDE LATITUDE PROJECTIONDESTINATION PROJECTIONSOURCE)

(setq PROJECTIONSOURCE (ade_projgetwscode))

(if (/= (getvar "ctab") "Model") (command "_layout" "e" "Model"))

(ade_projsetsrc PROJECTIONSOURCE)

(ade_projsetdest "LL84")

(setq COORDONNEES (getpoint "\nCliquer le point à l'écran: "))

(setq LONGITUDELATITUDE (ade_projptforward COORDONNEES))

(setq LONGITUDE (car LONGITUDELATITUDE))

(setq LONGITUDE (rtos LONGITUDE 2 6))

(setq LATITUDE (car (cdr LONGITUDELATITUDE)))

(setq LATITUDE (rtos LATITUDE 2 6))

(setq PROJECTIONDESTINATION (ade_projgetinfo "LL84" "description"))

(princ (strcat

"\n X,Y: " (rtos (car COORDONNEES) 2 6) "," (rtos (cadr COORDONNEES) 2 6)

"\n Projection SOURCE: " PROJECTIONSOURCE

"\n Projection CIBLE: " PROJECTIONDESTINATION

"\n Longitude,Latitude: " LONGITUDE "," LATITUDE

"\n"

))

(setq SITE1 (strcat "http://fr.mappy.com/#/0/M1/THome/N0,0," LONGITUDE "," LATITUDE "/Z14/"))

(setq SITE2 (strcat "http://data.mapchannels.com/mm/dual2/map.htm?x=" LONGITUDE "&y=" LATITUDE))

(setq SITE3 (strcat "https://www.google.com/maps?ie=UTF8&layer=c&cbll=" LATITUDE "," LONGITUDE "&cbp=1,0,,0,5&z=16"))

(command "_browser" SITE1)

(command "_browser" SITE2)

(command "_browser" SITE3)

(prin1)

)

 

Ce nouveau LISP prend directement en compte le système de coordonnées MAP affecté au dessin.

Il fonctionne donc quelque soit la projection de départ et pas seulement en Lambert2.

 

Guillaume

[lili2006]

Bonne Année à toutes et tous,

 

Tous simplement Super !!:D

 

Merci à vannes pour l'initiative et à Lommig pour sa version (c'est celle que j'ai testé directement avec succès,:))

[vannes]

Bonjour,

 

Pour répondre à Dan61:

Je pense qu'il faudrait à partir du lisp écrire un fichier KML temporaire contenant la position voulue et exécuter ce fichier.

- récupérer Longitude/Latitude

- Ecrire fichier KML temporaire

- Exécuter KML temporaire

- Effacer KML temporaire

 

A approfondir ou à oublier

[vannes]

Bonjour,

 

Pour répondre à Bonuscad:

Effectivement, mappy ne permet pas un accès à une vue 360 sur l'ensemble du territoire et on en est loin.

Sur ce site tu peux trouver la liste des villes couvertes: http://widgets.mappy.com/360view/documentation/#coverage

 

Par contre, google map couvre un territoire incroyable que ce soit en milieu urbain, péri-urbain et rural... et en plus on peut avoir un historique suivant la position!

Comme des collègues des services techniques me l'on souvent dit: c'est le meilleur outils SIG, ça fait mal!!!

 

Pourquoi tu ne forces pas l'ouverture avec ie?

[dan61]

Bonjour,

 

tout d'abord, merci à toi, Vannes, pour ta réponse; effectivement,c'est un peu plus complexe que je ne l'imaginais naïvement au départ :-). Toutefois je ne crois pas que ce soit à oublier; tous les ingés et projeteurs VRD que je connais utilisent quotidiennement Google earth pour vérifier /compléter des informations issues des plans topo.

[vannes]

Question à Dan61

 

Pour un travail topographique, pourquoi est-il plus intéressant de consulter les vues sur google earth plutôt que sur google map? Il est vrai que j'utilise rarement google earth.

[dan61]

parce qu'il existe des plugins de liaison entre autocad et google earth.

[lecrabe]

Hello

 

YES voir l'excellent www.plexearth.com a 180 Euros (Me semble t-il ?) !

 

Bon WE, Bye, lecrabe

 

PS: LA SANTE & Meilleurs Voeux

[crayonetgomme]

Bonjour,

 

Merci à Vannes et Lomming.

Je vais pouvoir transmettre ce Lisp à mes collègues qui seront bien intéressés.

à bientôt :)

[chris66]

Merci pour le LISP, ça fait partie de fonction très intéressante que j’utilise souvent, par contre si quelqu'un avait un LISP qui reproduit les fonction de plexearth alors je suis preneur mais je crois que je rêve un peu là.

Cordialement