Image name

[giskumar]

Hi All,

 

I have an image attached to the autocad using mapiinsert command.

When i select the image i would like to read the name and extension of the image.

Is there a way to this.

 

 

Thanks,

Kumar.

[MSasu]

Not sure about AutoCAD Map – but for raster images inserted in plain AutoCAD you can use the below code:

 

(vl-load-com)

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

(setq thePath      (vl-filename-directory theImage)
     theExtension (vl-filename-extension theImage))

 

 

Regards,

Mircea

[Tyke]

When you select the image on screen you should see its name in the properties window. If you have quick properties switched on you will see the name there.

[giskumar]

(setq theImage

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

 

 

This really helps me.

 

Thank you all.

[MSasu]

Sound good! You're welcome!

 

Regards,

Mircea

[BlackBox]

Not sure about AutoCAD Map – but for raster images inserted in plain AutoCAD you can use the below code:

 

(vl-load-com)

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

(setq thePath (vl-filename-directory theImage)
theExtension (vl-filename-extension theImage))

 

 

(entget nil) ?

 

Perhaps this may be a more viable solution:

 

(defun c:FOO (/ e v)
 (vl-load-com)
 (if (and (setq e (car (entsel "\n  >>  Select an Image: ")))
          (= "IMAGE" (cdr (assoc 0 (entget e)))))
   (prompt
     (strcat
       "\n  >>  Image Name  >>  "
       (vla-get-name (setq v (vlax-ename->vla-object e)))
       "\n  >>  Image Ext.  >>  "
       (vl-filename-extension (vla-get-imagefile v)))))
 (princ))