Aller au contenu

Aller sur Streetview et mappy


vannes

Messages recommandés

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

Lien vers le commentaire
Partager sur d’autres sites

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.

Choisissez un travail que vous aimez et vous n'aurez pas à travailler un seul jour de votre vie. - Confucius

Lien vers le commentaire
Partager sur d’autres sites

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

AutoCAD, AutoCAD Map3D, AutoCAD Architecture, Revit, COVADIS, InfraWorks 360, ReCap 360, ...

BIM Infrastructure

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

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?

Lien vers le commentaire
Partager sur d’autres sites

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.

Lien vers le commentaire
Partager sur d’autres sites

  • 2 semaines après...

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité