Manipuler une image de carte géographique

[Fraid]

Bonjour,

 

L'image de carte géographique obtenue avec la commande IMAGEGEO me pose un problème en code.

 

Je n'arrive pas à récupérer l'ename, ni le nom vla ... (Autocad 2018)

 

Quelqu'un a une idée?

[lecrabe]

Hello

 

Je crois que c une Image interne a AutoCAD comparable a un Copier / Coller !?

Donc pas forcement atteignable par programmation ??

 

A verifier par un Super Pro !!

 

Bon WE, Bye, lecrabe

[Fraid]

ah oui, comme un objet ole

vais voir dans cette direction

mercich

[lili2006]

Bonjour à toutes et tous,

 

C'est une entité "image de carte géographique" :

 

[Fraid]

Bonjour,

 

Bon, a la base voulais juste la supprimer, en créer une autre(sa ça marche si il y a un emplacement géo.) et changer sa résolution en lisp, vais faire autrement.

cela resteras un mystére.

[Olivier Eckmann]

Bonjour,

 

effectivement un (entget) sur une geoimage ne fonctionne pas mais on peut les sélectionner quand même dans un jeu de sélection

(setq JEU (ssget "x" (list (cons 0 "GEOMAPIMAGE"))))

puis récupérer l'objet

(setq oImage (ssname JEU 0))

le convertir en objet Vlisp

(setq oVlaImage (vlax-ename->vla-object oImage))

et faire un dump pour voir les propriétés accessibles par Vlisp

(vlax-dump-object oVlaImage)

Commande: (vlax-dump-object oVlaImage);

IAcadGeomapImage: Interface des images de carte géographiques AutoCAD;

Valeurs de propriétés:;

Application (RO) = #<VLA-OBJECT IAcadApplication 00007ff67897a130>;

Brightness = 50;

ClippingEnabled = -1;

Contrast = 50;

Document (RO) = #<VLA-OBJECT IAcadDocument 0000022a0b5cfb48>;

EntityTransparency = "DuCalque";

Fade = 0;

GeoImageBrightness = 50;

GeoImageContrast = 50;

GeoImageFade = 0;

GeoImageHeight (RO) = 1324.35;

GeoImagePosition (RO) = (571184.0 6.91332e+006 0.0);

GeoImageWidth (RO) = 1301.48;

Handle (RO) = "11DB52";

HasExtensionDictionary (RO) = 0;

Height (RO) = 830.0;

Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 00000232d3724f68>;

ImageFile = "";

ImageHeight = 1350.84;

ImageVisibility = -1;

ImageWidth = 1327.51;

Layer = "_A_DETECTER";

Linetype = "ByLayer";

LinetypeScale = 1.0;

Lineweight = -1;

Material = "ByLayer";

Name = AutoCAD.Application: Clé introuvable;

ObjectID (RO) = 2851;

ObjectName (RO) = "AcDbGeoMap";

Origin = (571171.0 6.91331e+006 0.0);

OwnerID (RO) = 2852;

PlotStyleName = "ByLayer";

Rotation = 0.0;

ScaleFactor = 0.0;

ShowRotation = -1;

transparency = 0;

TrueColor = #<VLA-OBJECT IAcadAcCmColor 00000232d3723d00>;

Visible = -1;

Width (RO) = 816.0

T

 

 

Olivier

[Fraid]

Merci Olivier Super