nom d\'une image

[fabcad]

Bonjour,

 

Sur une version d'AutoCAD MAP 2005 avec la fonction autolisp ENTSEL, celle-ci n'affiche pas le nom d'une image raster.

 

le but étant de pouvoir sélectionner un contour d'une ou plusieurs images afin de les recharger ou de les décharger pour optimiser l'affichage.

 

Merci pour vos réponses.

 

Fabcad

 

[lecrabe]

 

Hello Fab

 

Regarde le debut de cette routine Lisp :

 

;; http://georezo.net/forum/viewtopic.php?id=45805&action=new

;; GBTFW.LSP pour une IMAGE

;; Creation d'un".TFW" GB 10/11/03

;; mirroir en Y des paramètres AutoCAD

 

(defun c:GBTFW ()

(command "_imageframe" "_on")

(setq index "")

(setq ent (entget (CAR(ENTSEL "Montrer l'IMAGE: "))))

(setq ent340 (cdr (assoc 1 (entget (cdr (assoc 340 ent))))))

(setq ef (strcat (substr ent340 1 (- (strlen ent340) 4)) index ".TFW"))

(setq ftfw (open ef "w"))

...

 

En effet la récupération du nom de l'image pour écrire le fichier TFW n'est pas simple !

 

Le Decapode

 

[zebulon_]

Bonjour,

 

tu sélectionnes une image en faisant :

(setq e (car (entsel)))

 

tu transformes en objet vla

(setq e (vlax-ename->vla-object e))

 

puis tu peux regarder ce qu'il y de disponible en faisant

(vlax-dump-object e)

 

et cela t'affiche quelque chose comme ça :

Commande: (vlax-dump-object e)

; IAcadRasterImage: Interface AutoCAD Raster

; Valeurs de propriétés:

; Application (RO) = #

; Brightness = 50

; ClippingEnabled = -1

; Contrast = 50

; Document (RO) = #

; Fade = 0

; Handle (RO) = "11B"

; HasExtensionDictionary (RO) = 0

; Height (RO) = 766.0

; Hyperlinks (RO) = #

; ImageFile = "C:\\Affaires\\Doller\\Rff.jpg"

; ImageHeight = 202.671

; ImageVisibility = -1

; ImageWidth = 51.8583

; Layer = "0"

; Linetype = "ByLayer"

; LinetypeScale = 1.0

; Lineweight = -1

; Material = "ByLayer"

; Name = "Rff"

; ObjectID (RO) = 2080030872

; ObjectName (RO) = "AcDbRasterImage"

; Origin = (1307.95 903.485 0.0)

; OwnerID (RO) = 2082839800

; PlotStyleName = "ByLayer"

; Rotation = 0.0

; ScaleFactor = 1.0

; ShowRotation = -1

; Transparency = 0

; TrueColor = #

; Visible = -1

; Width (RO) = 196.0

T

 

tu as le nom de toutes les méthodes disponibles. Après il suffit de s'en servir dans ton lisp.

 

Tu veux le nom de l'image :

(setq IMGNAME (vla-get-ImageFile e))

 

tu veux rendre l'image invisible

(vla-put-imagevisibility e 0)

 

tu veux rendre l'image visible

(vla-put-imagevisibility e -1)

 

En principe, tu peux changer avec (vla-put...) tout ce qui n'est pas (RO) donc en lecture seule et tu as accès à tout avec (vla-get...)

 

Voilà, j'espère ne pas être hors sujet, parce que les fichiers .tfw, ça ne me dit rien.

Amicalement

Zebulon_

 

 

[Edité le 31/5/2007 par zebulon_]

[fabcad]

Merci et chapeau bas,

 

Un fichier twf (TIF World File) correspond à un fichier alphanumérique qui possède les coordonnées des quatres points d'une image tif pour la placer sur un logiciel SIG sur le bon système de coordonnées (LAMBERT 2 étendu par exemple).

 

Merci et bonne soirée...