Image Detach using lisp

Hi,

I'm trying to detach some image in a drawing, but it doesn't work.

First, if I paste (command ".image" "detach" "Image Name") in the command line, it works.

If I use the same line in a lisp program, AutoCAD freeze.

Also, why an image doesn't have an association code (2) like the xref does ?

Thanks

 

Marcel,

Try the command line version of the image command. (command ".-image" ...)

I don't know about your other question. The image file name and path are stored in
the imagedef object associated with DXF code 340 in the primary image elist.

Joe Burke

 

Hi,

Thanks for the IMAGEDEF information, I now got what i want.

But for the (command ".image" ...... ), that's what I was using, but it doesn't work.

Thanks,

Ciao

 

Marcel,

Note the difference between: (command ".image" ...) and (command ".-image" ...) The
"-" before the command name calls the command line version. Which is what you want in
a lisp program given your original example.

Joe Burke

 

Hi Joe,

I am noticing that using the "-" isn't really required. Now I
haven't tested all commands, but off the top of my head....

(command "layer")
(command "image")
(command "dimstyle")

all go directly to the command line (A2K2)

Not sure when this behavior started.

 

Hi Jason,

Well... that's interesting and confirmed.

Wonder what version Marcel is using?

Joe Burke

 

:

Marcel,

Try setting CMDDIA to 0 before statement
and 1 afterwards.

Scot-65

 

Marcel,

I steared you wrong with DXF code 340. To "detach" you need the name of the image.
Which may or may not be the same as the file name, since you can rename. So maybe
this will help.

(defun ImageNames ( / elst namelst )
(setq elst (dictsearch (namedobjdict) "acad_image_dict"))
(foreach x elst
(if (eq 3 (car x))
(setq namelst (cons (cdr x) namelst))
)
)
(reverse namelst)
) ;end

Command: (ImageNames)
("Loc Map renamed" "Proj Map")

Joe Burke