Géocarte plus capturable non imprimable ?

[GEGEMATIC]

salut à toutes et à tous,

j'ai du mal à croire que je n'ai pas eu besoin de cette fonction depuis si longtemps ,

mais sous la 2021 je ne trouve pas l'option "capturer" (je l'avais sous la 2018)

et je vois également que l'image ne s’imprime pas.

Je peux me passer de géocarte, puisque j'ai le wms ign, qui lui s'imprime,

mais comment dans ce cas choisir la fen^tre dans laquelle la carte s'affiche, puisqu'en wms, je ne peux gérer le calque que globalement !

Grr

a+

gégé

 

 

[Olivier Eckmann]

Salut Gege,

 

La commande pour capturer c'est 

_geomapimage

ou

IMAGEGEO

 

Olivier

[lecrabe]

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

 

[GEGEMATIC]

merci a vous deux !

de vrais anges gardiens !

mais j'ai pas la berlue, avant (2018 ...)  cette option était proposée par le ruban ou le menu quand on tapait geocarte ?

a+, gégé

 

 

 

[Olivier Eckmann]

Sous Map en espace de travail "Dessin 2D", elle est dans le ruban, onglet Map - Dessin, à côté de la liste déroulante des types de carte.

[lecrabe]

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