topic Re: georeferencing Tiff in Visual LISP, AutoLISP and General Customization Forum

georeferencing Tiff

dani-perez — Sat, 02 Feb 2019 21:31:37 GMT

Hello all,

I am trying to georeference tiff images with a lisp, I found this lisp

; #######################################################################
;
; 		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 fichtfw "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)
)

But when I am trying to insert a tiff image I get an error: "Stringp nil"

I have been trying to fix the code but I don't know

Thanks all.

Re: georeferencing Tiff

vladimir_michl — Sun, 03 Feb 2019 17:20:13 GMT

You can try the GeoRefImg freeware app, with more options.

See

https://www.cadstudio.cz/georefimg

and

https://apps.autodesk.com/ACD/en/Detail/Index?id=7718964543906860174&appLang=en&os=Win32_64

Vladimir Michl, www.cadstudio.cz - www.cadforum.cz

Re: georeferencing Tiff

Moshe-A — Sun, 03 Feb 2019 17:42:36 GMT

@dani-perez hi,

you want to attach image with lisp? why IMAGEATTACH is not enough?

anyhow this lisp can attach only one specific tif file, position and scale it base on some data text file contains these parameters. why i think it's only one specific? cause the data text file name is base on the image name plus "fw" and i can not image the author has prepared such data files to any image.

so when you say i found this lisp? are you sure you want to use it?

moshe

Re: georeferencing Tiff

ronjonp — Mon, 04 Feb 2019 16:38:23 GMT

You could try using THIS very old code.

Re: georeferencing Tiff

dani-perez — Tue, 05 Feb 2019 21:07:14 GMT

Hello vladimir.michl

Hello rperez

Very interesing code. Thanks a lot for replying

I have other doubt: if the file has georreference metadata (as .ECW) is there a way to attach it at the correct coordinates using autocad if you dont have any worldfile? not civil3d or autocad map

Re: georeferencing Tiff

dani-perez — Tue, 05 Feb 2019 21:12:08 GMT

Hello Moshe-A

Thanks for replying.

With the codes posted by vladimir and rperez, I can attach a raster image in its correct georreference position using a wordfile. It's a very interesting step.

My idea is to attach an image and place it in its position (ortophoto for example). Now my idea is to attach it without that wordfile (just internal metadata) in order to solve all posibilities of this issue.

Thanks

Re: georeferencing Tiff

CodeDing — Tue, 05 Feb 2019 21:57:41 GMT

@dani-perez ,

What version/year of AutoCAD are you using? Ex: Civil 3D 2018? AutoCAD 2016? LT 2019?

Re: georeferencing Tiff

dani-perez — Wed, 06 Feb 2019 18:43:42 GMT

Hello CodeDing,

I am using AutoCAD 2019.

Re: georeferencing Tiff

CodeDing — Wed, 06 Feb 2019 23:26:34 GMT

@dani-perez ,

In that case, I will not be offering a specific answer to your particular request but...

Unless you are being directly tasked with using your TIF, there are 2 perfectly acceptable alternative methods that I highly recommend...

1) AutoCAD's BING maps.

- since you have AutoCAD 2019, you have their built-in BING maps that allows you to import worldwide data using a selected coordinate system.

- With your assigned coordinate system, you can use other "GEO-" prefixed commands to interact with your coordinate system.

- Use the GEO command, but first be sure you are logged in to your Autodesk account...

2) Use ArcGIS for AutoCAD. ESRI and Autodesk have teamed up to bring you an awesome end-user experience for importing and saving maps within your drawings.

- the coordinate systems with ArcGIS are assigned to correct coordinates in model space, unlike having to choose with BING maps.

- you can snip and save raster-images of your selected coordinate system map. this allows you to move your map at-will if you would so like.

- Using ArcGIS also allows you to import ANY overlay that is available publicly from their REST services. You can link to a REST database and overlay their maps with more data than a basic map!

....... these 2 options are workflows that I use currently and they both allow for up-to-date imagery and ease-of-implementation. So in the essence of not trying to reinvent Civil 3D (somebody has already programmed coordinate systems for you! If you use coordinate systems frequently, just upgrade your license), you could use one or both of these methods to get your desired outcome.

Hope this helps.

Best,

~DD

Re: georeferencing Tiff

dani_cs — Thu, 29 Aug 2024 06:43:24 GMT

I downloaded the code but it is not working. Could anyone have a look?

Re: georeferencing Tiff

hak_vz — Thu, 29 Aug 2024 07:58:11 GMT

I just checked the code from original poster and it works ok.

What you need is Tiff file and corresponding tfw file with the same name as the tiff file.

Let say 221-4-3.tif and 221-4-3.tfw

Re: georeferencing Tiff

dani_cs — Thu, 29 Aug 2024 09:21:22 GMT

Hello,

I try to load the lisp, but it gives me an error (translated from Spanish): "Error: wrong format input list"

Re: georeferencing Tiff

ronjonp — Thu, 29 Aug 2024 14:25:37 GMT

@dani_cs I've been using this code for years without issue.

Re: georeferencing Tiff

F.Camargo — Mon, 21 Oct 2024 19:46:51 GMT

Hello @ronjonp

Could you please help me how to use your code?

I don't undersand about .twf file.

Thanks

Re: georeferencing Tiff

ronjonp — Tue, 22 Oct 2024 17:47:02 GMT

@F.Camargo The TFW file should be included with your aerial. It needs to have the same name as the TIF file and the code should correctly scale the image.