Bonjour,
Ci-joint un lisp pour l'accès à la vue Google-earth (un nouvel onglet pour chaque point sélectionné) au niveau :
- Aérien : Commande GEV
- Street-View : Commande STRV
Attention le fichier doit être géoréférencé pour le bon fonctionnement du code, s'il ne l'est pas les systèmes de géoréférencements Lambert 1,2,3,93, 2 Etendu vous seront proposés (Lambert93 par défaut)
Ci-joint le code (le fichier lisp est disponible en PJ)
;; GOOGLE_EARTH_ACCES.lsp [Nom des commandes: GEV & STRV]
;; Accéder dans votre navigateur au point sélectionné
;; GEV = Google-Earth View: Accès à la vue aérienne dans Google-earth (version internet)
;; STRV = Street-View : Accès à la vue de la rue dans Google-map (version internet)
;; Il est conseillé d'utiliser Google-Chrome comme navigateur par défaut pour l'utilisation de ces commandes
;; Yoan AUBRY, 27 Octobre 2022
;; Ouvrir Google-earth en vue aérienne dans un nouvel onglet internet
(defun c:GEV ()
(setq old-luprec (getvar "LUPREC"))
(setvar "LUPREC" 6)
(command "_UCS" "_W")
( if
(or ( = nil (ade_projgetwscode)) ( = "" (ade_projgetwscode)))
(progn
(setq code-proj (getstring "Inserez un code de projection: ntf.lambert-E/ntf.Lambert-1/2/3/lambert(9)3<9>?"))
(cond
( ( or ( = "E" code-proj) ( = "" code-proj)) (setq cscode "NTF.Lambert-E"))
( ( = "1" code-proj) (setq cscode "NTF.Lambert-1"))
( ( = "2" code-proj) (setq cscode "NTF.Lambert-2"))
( ( = "3" code-proj) (setq cscode "NTF.Lambert-3"))
( ( = "9" code-proj) (setq cscode "Lambert93"))
)
(ade_projsetwscode cscode)
);pr
);if
(ade_projsetsrc (ade_projgetwscode))
(ade_projsetdest "ll84")
(setq result1 (ade_projptforward (getpoint "point a transformer...")))
(setq coor-cible (strcat (rtos (nth 1 result1) ) "," (rtos (nth 0 result1))))
(command "_UCS" "P")
(if
(null result1)
(progn
(prompt "\nErreur dans la transformation ")
(quit)
);pr
);if
(setvar "LUPREC" old-luprec)
(princ)
(terpri)
(prompt coor-cible)
(dos_clipboard coor-cible)
(setq url (strcat "https://earth.google.com/web/search/" coor-cible) )
(browser url)
);
;; Ouvrir le street view (si disponible) dans un nouvel onglet internet
(defun c:STRV ()
(setq old-luprec (getvar "LUPREC"))
(setvar "LUPREC" 6)
(command "_UCS" "_W")
( if
(or ( = nil (ade_projgetwscode)) ( = "" (ade_projgetwscode)))
(progn
(setq code-proj (getstring "Inserez un code de projection: ntf.lambert-E/ntf.Lambert-1/2/3/lambert(9)3<9>?"))
(cond
( ( or ( = "E" code-proj) ( = "" code-proj)) (setq cscode "NTF.Lambert-E"))
( ( = "1" code-proj) (setq cscode "NTF.Lambert-1"))
( ( = "2" code-proj) (setq cscode "NTF.Lambert-2"))
( ( = "3" code-proj) (setq cscode "NTF.Lambert-3"))
( ( = "9" code-proj) (setq cscode "Lambert93"))
)
(ade_projsetwscode cscode)
);pr
);if
(ade_projsetsrc (ade_projgetwscode))
(ade_projsetdest "ll84")
(setq result1 (ade_projptforward (getpoint "point a transformer...")))
(setq coor-cible (strcat (rtos (nth 1 result1) ) "," (rtos (nth 0 result1))))
(command "_UCS" "P")
(if
(null result1)
(progn
(prompt "\nErreur dans la transformation ")
(quit)
);pr
);if
(setvar "LUPREC" old-luprec)
(princ)
(terpri)
(prompt coor-cible)
(setq url (strcat "http://maps.google.com/maps?q=&layer=c&cbll=" coor-cible) )
(browser url)
);
;; Ouverture d'un navigateur
;; Recherche dans l'ordre suivant :
;; Google Chrome, Opera, Mozilla Firefox, Microsoft Edge, Internet Explorer
(defun browser ( url )
(setq url (strcat "\"" (vl-string-translate "/" "\\" url) "\""))
(vl-some '(lambda ( exe ) (and (findfile exe) (startapp exe url)))
(list
(strcat (getenv "programfiles") "\\Google\\Chrome\\Application\\chrome.exe")
(strcat "C:\\Program Files (x86)" "\\Google\\Chrome\\Application\\chrome.exe")
(strcat "C:\\Users\\" (getenv "UserName") "\\AppData\\Local\\Programs\\Opera\\opera.exe")
(strcat "C:\\Program Files (x86)" "\\Mozilla Firefox\\firefox.exe")
(strcat "C:\Program Files (x86)" "\Microsoft\Edge\Application\msedge.exe")
(strcat (getenv "programfiles") "\\Internet Explorer\\iexplore.exe")
)
)
)
En espérant que cela vous fera gagner du temps.
A+ Yoan
Yoan AUBRY
