Get the entity name (.tif)

[mbest]

Hi all!

I'm inserting a scanned .tiff into a drawing.  I want to get the tiff name and save the drawing to that name.  I've searched a lot of code but can't quite get the name effectively to use.

TIA,

Mike

*Happy Memorial Day!!

[paullimapa]

**added save file portion**

try this code:

(setq name(cdr (assoc 1 (entget (cdr (assoc 340 (entget (car(entsel)))))))))

Here's the code to save the drawing using image name: 

(command"_.SaveAs" "" (strcat (vl-filename-directory name) "\\" (vl-filename-base name)))

[Sea-Haven]

Like other answer use "getfiled" to select the TIFF than use imageattach that way you know the image name. 

(getfiled "Select Tiff " "" "tif" 0) do some home work re the blank "" entries.