Classement

Bonjour, le problème est identifié et en cours de correction. en attendant sa résolution, je vous propose de refaire le plaquage directement dans terravision.

Salut Luna, C'est bon j'ai résolu mon problème en ajoutant le filtre suivant au début du lisp: (setq oldangbase (getvar "angbase")) (setvar "angbase" 0) Tout fonctionne! 🙂 Merci encore à toi pour ton aide. A bientôt

Hello @GEGEMATIC Voir ci apres la routine "MultiCarte" de DenisHen que j utilise parfois avec les Parametres : 2 Horiz et 2 Verts ... car les images cartographiques BingMaps alourdissent beaucoup le DWG ... Bye, lecrabe ;; ;; http://cadxp.com/topic/45472-foliotage-de-geocarte/ -- 2018/03/02 ;; ;; Suite a un sujet de La Lozere : http://cadxp.com/topic/45469-commande-imagegeo-ou-geomapimage/ ;; j'ai fais ce petit bout de code qui fait un foliotage de GeoCartes. ;; Il reste un petit soucis de chevauchement, mais on gagne un temps fou ! ! ;; J'ai aussi prevu un petit decalage pour cacher la ligne "Bing"... ;; ;; Routine: MultiCarte par DenisHen ;; ;; pour la commande GEOCARTE (_GEOMAP) et surtout pour "remplacer" N x IMAGEGEO ... ;; ;; (vl-load-com) ;;; ******************************************* ;;; Cree des GeoCartes (GEOMAPs) en mode "Folio" ;;; Special dedicace a La Lozere (CadXP.com) ;;; ******************************************* (defun c:MultiCarte () (princ "\n Developpe par Denis H. (vs 1.4) \n SVP/Please restez/remain dans/into le/the SCG/WCS ! \n") ;; (command "Geocarte" "_h") ;; Carte/Map Hybride ;; (command "_GEOMAP" "_h") ;; Carte/Map Hybride ;; Si vous voulez seulement la Carte Aerienne (Orthophoto) ;; (command "Geocarte" "_a") ;; Carte/Map Aerienne (command "_GEOMAP" "_a") ;; Carte/Map Aerienne ;; Si vous voulez seulement la Carte Routiere ;; (command "Geocarte" "_r") ;; Carte/Map Routiere ;; (command "_GEOMAP" "_r") ;; Carte/Map Routiere (setq NbCarteHori (getreal " Nombre de Cartes/Maps horizontales : ") NbCarteVerti (getreal " Nombre de Cartes/Maps verticales : ") NbCarteHoriOrig NbCarteHori NbCarteVerti (+ NbCarteVerti 1) screen (getvar "screensize") ratio (/ (car screen) (cadr screen)) cen (getvar "viewctr") cen (trans cen 1 0) angle_rad (getvar "viewtwist") angle_rad (- (* 2 pi) angle_rad) h (getvar "viewsize") w (* h ratio) BasGauche (polar (polar cen (+ angle_rad pi) (/ w 2)) (- angle_rad (/ pi 2)) (/ h 2)) BasDroite (polar (polar cen angle_rad (/ w 2)) (- angle_rad (/ pi 2)) (/ h 2)) HautDroite (polar (polar cen angle_rad (/ w 2)) (+ angle_rad (/ pi 2)) (/ h 2)) HautGauche (polar (polar cen (+ angle_rad pi) (/ w 2)) (+ angle_rad (/ pi 2)) (/ h 2)) Xmin (car BasGauche) Ymin (cadr BasGauche) Xmax (car HautDroite) Ymax (cadr HautDroite) DeltaX (- Xmax Xmin) DeltaY (- Ymax Ymin) Haut (/ DeltaY NbCarteVerti) Larg (/ DeltaX NbCarteHori) ValDecal 5 ;;; Decal ValDecal ) ;_ Fin de setq (while (> NbCarteVerti 0) (while (> NbCarteHori 0) (setq PtGauche (list Xmin Ymin)) (setq PtDroite (list (+ Xmin Larg) (+ Ymin Haut))) (command "_zoom" "_w" PtGauche PtDroite) ;; (command "imagegeo" "") (command "_GEOMAPIMAGE" "") (setq NbCarteHori (- NbCarteHori 1)) (setq Xmin (+ Xmin Larg)) ) ;_ Fin de while (setq NbCarteVerti (- NbCarteVerti 1)) (setq NbCarteHori NbCarteHoriOrig) ;;; (setq Decal (+ Decal ValDecal)) (setq Xmin (car BasGauche)) (setq Ymin (+ Ymin (- Haut ValDecal))) ) ;_ Fin de while ;; (command "Geocarte" "d") (command "_GEOMAP" "_OFF") (princ) ) ;_ Fin de defun

Hello Attention c une capture écran en pixels de la résolution de la zone d affichage à l instant T (getvar "screensize") Donc enlever toutes les palettes, Ctrl 0, Ctrl 9, pour maximiser la zone d affichage ... Bye, lecrabe