Message posté par : olivier.eckmann
----------------------------------------
Bonjour,
Avec ce code, on peut convertir les 2 coins BG et HD en lat long vers du L93, puis insérer
la photo sur ces 2 points
-----------------
Code :
(defun c:GRI (/ sPhotoName PtBG_LL PtHD_LL ptBG_L93 ptHD_L93)
; initialise le système d'origine
(ade_projsetsrc "LL-RGF93")
; initialise le système d'arrivée
(ade_projsetdest "Lambert93")
; nom du fichier image
(setq sPhotoName "C:/TEMP/PHOTO.PNG")
; coordonnée du point bas gauche et haut droit en LatLong
(setq PtBG_LL (list 2.293300 48.857300)) ; la tour eiffel :)
(setq PtHD_LL (list 2.295617 48.859120))
; coordonnées transformée en L93
(if (and (setq ptBG_L93 (ade_projptforward ptBG_LL))
(setq ptHD_L93 (ade_projptforward ptHD_LL))
)
; la transformation a réussi
(progn
(command "-image" "_a" sPhotoName "_none" ptBG_L93
"_u" "s" (- (car ptHD_L93) (car ptBG_L93)) "0")
)
)
);
-----------------
Olivier
----------------------------------------
Le message est situé
https://georezo.net/forum/viewtopic.php?pid=353929#p353929
Pour y répondre : autodesk_sig_fr(a)ml.georezo.net ou reply de votre messagerie
Pour vous désabonner connectez-vous sur le forum puis Profil / Abonnement
--
Association GeoRezo - le portail géomatique
https://georezo.net