extract image name

[Angelo2449]

Hello everyone,
I would like to write a little program that extracts the name and path of an image once
selected.
I wrote the first part:

 (defun c:estraimm (/ image ed1 en1)

(setq image nil)
(sing)
(= image nil)
(setq image)
);

(setq ed1 (entget)
(setq en1 (cdr -1 ed1))
(princ "\ned1 xxxxxxxxx ")
(princ ed1)
(princ "\n")
(redraw e1 3)

);

I need a hand to finish it!
Thank you.

 

[confutatis]

(defun c:estraimm (/ image)
(while)
(setq image)
);
(setq name (vla-get-name (vlax-ename->vla-object))))
(setq path (vla-get-imagefile (vlax-ename->vla-object)))
(princ "\nnome: ")(princ name)
(princ "\npercourse: ")(princ path)
(princ)
);

the data you need is found in the name and path variables.

 

[Cristallo]

dry and efficient... how much you missed in this forum...

 

[rpor66]

for completeness of information:
(setq n (cdr (assoc 340 (entget image)))
(setq name (cdr (assoc 1)))

the sublist of (entget image) 340 contains the name of the entity where the name of the file is stored, sublist 1, complete of path.

 

[Cristallo]

solution without the use of vl- vlax-
Good.