Help to improve/change "PHOTO.lsp" (insertion of geotagged images as blocks and hyperlinks)

Help to improve/change "PHOTO.lsp" (insertion of geotagged images as blocks and hyperlinks)

lzedCB
Advocate Advocate
346 Views
3 Replies
Message 1 of 4

Help to improve/change "PHOTO.lsp" (insertion of geotagged images as blocks and hyperlinks)

lzedCB
Advocate
Advocate

Hello guys, how are you doing?

 

Someone knows how or is able to modify this lips to insert the pics angles/direction accordingly to the metadata embedded in the pics? Nowadays, this LISP inserts the blocks "views" and places the pics URL as hyperlinks on it. Is it possbile to adjust the block rotation/direction accordingly to the pic data?

 

Thanks!

0 Likes
347 Views
3 Replies
Replies (3)
Message 2 of 4

hosneyalaa
Advisor
Advisor

Can you clarify  more
and attach a picture of an example

0 Likes
Message 3 of 4

lzedCB
Advocate
Advocate

I've attached a geotagged pic as example, that contains latitude, longitude, altitude and direction:

 

lzedCB_0-1732037121261.png

 

It's something similar with this, but this is made with Dynamo:

 

Solucionado: Geotagged Photos Points - Autodesk Community - Civil 3D

0 Likes
Message 4 of 4

Sea-Haven
Mentor
Mentor

Yes can be done need CIV3D as it supports Lat & Long import, I imported Phone photos. I used Exiftool to read the image properties and make a file. Read that file and made cogo points. Then got those cogo point and matched to a image file name.

 

This is 8 year old code and have not used maybe since I wrote it, as I am retired. 

 

 

(setq *acad* (vlax-get-acad-object))
  (setq	C3D (strcat "HKEY_LOCAL_MACHINE\\"
		    (if	vlax-user-product-key
		      (vlax-user-product-key)
		      (vlax-product-key)
		    )
	    )
	C3D (vl-registry-read C3D "Release")
	C3D (substr
	      C3D
	      1
	      (vl-string-search "." C3D (+ (vl-string-search "." C3D) 1))
	    )
	C3Dapp (vla-getinterfaceobject
	      *acad*
	      (strcat "AeccXUiLand.AeccApplication." C3D)
	    )
  )
  (setq C3Ddoc (vla-get-activedocument C3Dapp))
  (setq pnts (vlax-get C3Ddoc 'points))
  (setq ptopts (vla-getinterfaceobject *acad* (strcat "AeccXLand.AeccPointImportOptions." C3D)))
  (setq filename "C:\\acadtemp\\exiftool\\out.lat")
  (setq pnts (vlax-invoke pnts 'importpoints filename "LATLONG" ptopts))
  
  (vlax-release-object ptopts)
  (vlax-release-object c3Dapp)

 

Pretty sure had to set up a latlong import style in the "Import points" so say description is image name. You will need to get Exiftool or similar to make the file.

 

Part 2 is read cogo points can help but could not find code that I used previously. Have other stuff so should be able to put something together.

 

Just post again if stuck.

0 Likes