Detach Image IF it exists

[jpaulsen]

We have an image in many of our drawings that is a remnant of on old title block. I want to put something in my Acaddoc.lsp to detach the image if it exists. My only problem is I don't know how to determine if it exists.

I put the following line in my Acaddoc.lsp:
(command "-image" "d" "BW_JR_FORMAT_B")

That works fine if the image exist but crashes if it does not. Well OK it doesn't "crash" but it displays the message Unknown command "BW_JR_FORMAT_B".

How would I search the drawing to see if the image exists and how would I put the above line of code into an IF statement?

Edit: If there is a better way to accomplish my goal I am more than willing to listen.

[T.Willey]

How comfortable are you with lisp and dictionaries? That is the way I would do it. Step through the 'ACAD_IMAGE_DICT' and see if your image is there, if so, erase it from the dictionary.

[jpaulsen]

Unfortunately I am not very familiar with dictionaries or lisp for that matter. I'm what I call a lisp hack.

When I have more time I will do some research on accessing the dictionaries.

[Railrose]

Unfortunately I am not very familiar with dictionaries or lisp for that matter. I'm what I call a lisp hack.

When I have more time I will do some research on accessing the dictionaries.

You can also do a CTRL + A to select everything, then CTRL + 1 to open the properties box. At the top left, is a pulldown. Click the arrow, & it will give you the option for Raster Image, if one exists. Can be slow to run on huge drawings, but is a quick & dirty way to see what is in the drawing file.

[Opie]

You can also do a CTRL + A to select everything, then CTRL + 1 to open the properties box. At the top left, is a pulldown. Click the arrow, & it will give you the option for Raster Image, if one exists. Can be slow to run on huge drawings, but is a quick & dirty way to see what is in the drawing file.

Jane,

That is a good tip. However, Jeff is looking for an automated approach to removing the image.

[Opie]

Unfortunately I am not very familiar with dictionaries or lisp for that matter. I'm what I call a lisp hack.

When I have more time I will do some research on accessing the dictionaries.

Jeff,

Maybe the links in this post can help you on your journey to learning dictionaries.

[abdulhuck]

I put the following line in my Acaddoc.lsp:
(command "-image" "d" "BW_JR_FORMAT_B")

That works fine if the image exist but crashes if it does not. Well OK it doesn't "crash" but it displays the message Unknown command "BW_JR_FORMAT_B".

How would I search the drawing to see if the image exists and how would I put the above line of code into an IF statement?

Hi Jeff,
This code won't display the irritating "Unknown command..." string.

(command "-image" "d")
(if (= (getvar "cmdactive") 1)
  (command "BW_JR_FORMAT_B")
  (princ "\nNo images found in this drawing.") 
  )

You may delete (princ "\nNo images found in this drawing.") if you don't want to see any prompt.

Regards,
Abdul Huck

[jpaulsen]

I ended up using the code posted by R.K. McSwain in this thread:
http://discussion.autodesk.com/threa...sageID=5498183

[robert.1.hall72202]

Is there a way to detach all images?

[jpaulsen]

Here is a modified version of Abdul's code that seems to work.

(defun c:test() 
(command "-image" "d")
  (if (= (getvar "cmdactive") 1)
	(command "*")
	(princ "\nNo images found in this drawing.")
  )
(princ)
)