Buenas a todos,
Necesitaría ayuda en este problema. Me gustaría encontrar una forma de georreferenciar imagenes tipo .tiff o .ecw y similares. Sé que autocad civil o Autocad map puede realizar estas operaciones. Pero necesitaría hallar la solución para autocad básico.
Dicho esto, he encontrado varias rutinas que pueden hacer esta operación, pero necesitan el archivo "worldfile" que es donde vienen las coordenadas. Si no estoy mal informado, archivos de extensión .ECW tienen en sus metadados sus respectivas coordenadas. Habria una forma de poder georreferenciar en autocad básico, de la misma forma que hace Civil o Map?
Aqui os pongo otra rutina lisp que quizas pueda darme solucion, pero cuando la ejecuto me da fallo.
Gracias a todos,
Un saludo.
; #######################################################################
;
; Inserta una imagen TIFF georreferenciada
;
; Autor: Francisco Navarrete Mandly
; Noviembre 2001
;
; #######################################################################
(defun C:INSIMG (/ fichtif fichtfw fp ex ey rx ry x0 y0 ent info dimx dimy)
; Pide ficheros
(if (not (setq fichtif (getfiled "Imagen a Insertar" "*" "tif" 2))) (exit))
(setq fichtfw (strcat (substr fichtif 1 (- (strlen fichtif) 2)) "fw"))
; Lee parametros
(setq fp (open "fichtif" "r"))
(setq ex (atof (read-line fp)))
(setq rx (read-line fp))
(setq ry (read-line fp))
(setq ey (atof (read-line fp)))
(setq x0 (atof (read-line fp)))
(setq y0 (atof (read-line fp)))
(close fp)
(setq ey (* ey -1))
; Inserta imagen
(command "._-IMAGE" "" fichtif (list x0 y0) 1.0 0.0)
; Modifica posicion
(setq ent (entlast))
(setq info (entget ent))
(setq nx (cadr (assoc 13 info)) ny (caddr (assoc 13 info)))
(setq dimx (* nx ex) dimy (* ny ey))
(setq y0 (- y0 dimy))
(setq info (subst (list 10 x0 y0 0.0) (assoc 10 info) info))
; Modifica tamaño
(setq info (subst (list 11 ex 0.0 0.0) (assoc 11 info) info))
(setq info (subst (list 12 0.0 ey 0.0) (assoc 12 info) info))
(entmod info)
(princ)
)
os adjunto una imagen tiff por si la necesitáis.
