Le portail francophone de la géomatique

Bonjour,
Je suis en train de faire cette fabrication de TAB ou TFW ...mais à partir de DXF (assez facile car texte)
Pour l'instant je perds la rotation, mais la plupart des logiciels SIG sont de toute façon incapables de l'utiliser
Et pour l'instant je galère pour faire la même chose à partir de DWG...donc toute info. est bienvenue !!

Hello,

C'est possible de *lire* des fichiers tfw avec Map en revanche pour la production, il vous faudra Raster Design, en attendant que l'on trouve une solution script/lisp interne à Autocad ou externe comme propose de le faire Maurice.

Est ce que vos images sont "droites" ? Je veux dire, sont elle horizontales avec le Nord en haut ?
Si c'est le cas, je pense que l'outil de Maurice devrait pouvoir le faire pour l'instant, sinon, il faut ruser.

Si vous avez peu d'images, il est possible de digitaliser un polygone et de l'exporter pour vous servir de base de géoréférencement, mais bon, ca reste du bricolage...

A suivre,
Robin.

Bonjour,

le géoref dwg est structuré comme suit :
coin inférieur gauche de l'image, (X,Y), echelle de l'image: exprimée en fonction de la valeur DD_Units (dans Autocad contrôle des unités, insertion des blocs en : mm, mètre etc) donc suivant cette valeur l'echelle sera de 1.0325689 ou 1032.5689 suivant que l'insertion est réalisée en mm ou en mètre.. On peut aussi y adjoindre un angle de rotation (déconseillé cf post de Maurice).

Si vous possédez Autocad il est très facile de générer un code VBA permettant d'écrire un tfw à partir du dwg initial (utilisation de l'objet RASTER du MCD Autocad).
Si vous avez du DXF idem pas de soucis.
Ceci sous réserve d'utiliser un produit qui vous permet de savoir le nombre de pixels en hauteur et largeur de l'image tif (XNVIEW fait ça très bien).

D'autre part il faut se méfier d'Autocad dans le cadre d'utilisation topo de raster: Il privilégie la cohérence géomètrique de l'image (cas des rotations) au détriment du tramage (bon c'est pour couper les cheveux en quatre c'est quasi négligeable pour des images origine à 300dpi).

Je ne connais pas AutocadMap mais s'il est le fils naturel d'Autocad et qu'il accèpte le VBA il doit pas y avoir de pb.

Concernant le pb des rotations le bricolage peu continuer avec XNVIEW il vous permettra de faire subir la rotation au tif et de générer un nouveau tif plein Nord, partant du principe que le centre de l'image est invariant par une rotation il vous sera facile de recalculer le géoref de cette nouvelle image.
Pour ceux qui maitrise VB c'est tout à fait possible d'automatiser tout cela car XNVIEW propose une dll (GFLSDK) qui est utilisable sous VB.

Christophe

Dernière modification par DIANA2D.dev (Tue 19 December 2006 10:09)

Bonjour,

Comme il l'a été dit dans une des réponses, Autodesk Raster Design répond à ce type de besoin.

Il peut s'installer sur Autocad ou sur Map.

Une version d'évalution (en anglais) peut être téléchargée sur http://www.autodesk.com/rasterdesign

Cordialement,
Gwenael Bachelot
Autodesk

Bonjour, voilà un bout de lisp qui peut résoudre votre problème y compris pour des images inclinées et à un demi pixel près pour les puristes.

;GBTFW.LSP pour une IMAGE
;création d'un".TFW" GB 10/11/03
;mirroir en Y des paramètres autocad
(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"))
(setq X10 (car (cdr (assoc 10 ent))) )
(setq Y10 (cadr (cdr (assoc 10 ent))) )
(setq X11 (car (cdr (assoc 11 ent))) )
(setq Y11 (cadr (cdr (assoc 11 ent))) )
(setq X12 (car (cdr (assoc 12 ent))) )
(setq Y12 (cadr (cdr (assoc 12 ent))) )
(setq X13 (car (cdr (assoc 13 ent))) )
(setq Y13 (cadr (cdr (assoc 13 ent))) )
(setq line1 (rtos X11 2 9))
(write-line line1 ftfw)
(setq line2 (rtos Y11 2 9))
(write-line line2 ftfw)
(setq line3 (rtos (* -1 X12) 2 9))
(write-line line3 ftfw)
(setq line4 (rtos (* -1 Y12) 2 9))
(write-line line4 ftfw)
(setq line5 (rtos (+ X10 (* X12 Y13)) 2 9))
(write-line line5 ftfw)
(setq line6 (rtos (+ Y10 (* Y12 Y13)) 2 9))
(write-line line6 ftfw)
(close ftfw)

Gérald

Bonjour,

concernant les unités angulaires de rotations il y en a pas car on indique cosinus(angle) et sinus(angle) sur la deuxième et troisième ligne.

Pour un code VBA résolvant le pb, j'ai pas ça sous la main car je fais l'inverse, mes logiciels générent des fichiers de géoref pour Autocad.(je conçois mes outils de manière à me passer d'autocad)

Une infos de recherche (j'irais pas très loin relativement au post épinglé sur le piratage):
VBA object name:    AcadRasterImage

Toutes les infos sont dans l'aide Autocad, en relisant j'ai vu que les propriétés ImageHeight et ImageWidth de l'objet sont en pixels donc tu peux squizzer le passage XNVIEW.

En gros le script a cette forme:

set monraster = Modelspace.item : accès au objet (if typeof modelspace.item is AcadRasterImage then) : séléction des objets image dans le dessin (on peut aussi le faire avec un selectonscreen et  selectionset.item)

X=monraster.origin(0)
Y = monraster.origin(1)

Pixelx = monraster.width / monraster.imagewidth
Pixely = monraster.heigth / monraster.imageHeight


Xtfw= X+ pixelX/2
Ytfw = Y+ monraster.height- pixely/2

le tfw est ensuite générer dans un fichier texte:

pixelx
0
0
-pixely   
xtfw
ytfw


A+

Christophe

Décidement le temps d'écrire une réponse, il y en a trois autres .... (il est actif ce forum !!!)

Arcview décrit son tfw car il n'accepte pas de rotation. De plus il oblige à avoir un Y négatif, ceci est simplement pour indiquer (le négatif) que l'image se lit de haut en bas comme c'est la norme sous Windows.

J'ai pas tester le code LIsp mais sous Acad c'est plus efficace que du VBA (voir discussion sur le forum autodesk).
Donc si ça marche (merci à gbinfo, comme quoi on ne fait pas que de très belles chansons là bas) le pb est réglé.

Pour ma part il serait plus facile de faire un exe où on rentre (boite de dialogue) les paramètres issus d'acad pour générer un tif + tfw avec rotation à zéro (si rotation <> 0 on génére l'image qui va bien, pour avoir un tfw compatible avec tout SIG).  Si ça interesse les membres je peux regarder ça d'ici le début d'annèe.

Une précision pour Pat:

Pour TIF, BMP, JPG  on génére respectivement :

tfw,bpw,jgw comme fichier de géoref.
Et puis l'utilisation en carto d'un JPG s'il a un facteur Q>10 c'est pas la peine vu la perte d'infos, pour mémoire jpg n'est pas une compression sans pertes.


Christophe

Attention : Arcview 3.2 a certes des limitations, mais ArcGIS V8+, par contre, accepte la rotation !

Robin.

Ps  :  très actif oui, et excellemment efficace... Merci encore !

(Depuis le temps que je cherche qq chose pour créer des tfw sans acheter RD...).

ReReBonjour

2 microscopiques corrections sur le Lisp de Gerald ...

- Ajouter au début , juste avant (command ... >>>

(defun c:GBTFW ()


- Et à la fin, après (close ftfw) >>>

)

Ainsi on dispose d'un programme Lisp qui se lance par la commande "GBTFW" au clavier.

Rappel, on charge les programmes Lisp dans AutoCAD par:
Outils / Charger une application / ...

Le mieux étant de le mettre dans la "Valise", ainsi il sera toujours chargé au lancement d'AutoCAD / MAP / ADT / CIVIL.

GeoBye, Pat

Vous trouverez là:
http://www.cadastre.ch/pub/down/projet/ … ion_fr.pdf

Des infos très utiles sur le géoref des raster.

Christophe

Re bonjour,

Au sujet des paramètres du TFW :
Les deux premiers représentent la dimension en X du pixel à partir du point haut gauche, soit le delta X et le delta Y. Si l’image est droite le delta Y = 0
Les deux suivants représentent la dimension en Y du pixel à partir du point haut gauche, soit le delta X et le delta Y. Si l’image est droite le delta X = 0
Les paramètres du TFW permettent bien de représenter une image inclinée !

Gérald

Certes, tout cela est possible...
... mais subtil et demandant de l'expertise (voir les nombreux post sur les forums à ce sujet)
Dans mon message précédent, je parlais bien des "pièges" possibles du  format GeoTIFF pour des images destinées à être diffusées à des partenaires qui utilisent des logiciels  variés, avec des versions différentes, et qui - au mieux ! - jouent en Lambert Zone ou en Lambert étendu

Sylvie

Sympa, c'est pour fêter les 10 ans du post initial

Bruno