Images Toggle

[richie_hodgson]

Ok it all seemed so easy, but I seem to be getting nowhere. I would like a lisp to toggle all images in the drawing between loaded or unloaded

I tried

(vl-load-com)
(defun c:IMT (/ i lst obj ss)
  (setq lst "")
  (prompt "\nSelecting All Images to Unload: ")
  (if (setq ss (ssget "x" (list (cons 0 "IMAGE"))))
    (progn
      (repeat (setq i (sslength ss))
        (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i))))
              lst (strcat lst "," (vla-get-name obj))
        )
      )
      (vl-cmdf "-Image" "_U" lst)
    )
  )
  (princ)
)

Just to unload all of them, but it worked once then not again. Has anyone got a working piece of code to toggle between reload and unload, or something that will unload and reload seperately

[paullimapa · Accepted solution]

Should be no special function needed:

To Unload All Images at command prompt type:

-Image

U

*

To Reload All Images at command prompt type:

-Image

R

*

Area Object Link | Attribute Modifier | Dwg Setup | Feet-Inch Calculator
Layer Apps | List on Steroids | VP Zoom Scales |Exchange App Store

[richie_hodgson · Accepted solution]

That gave me another idea, cool.

[braudpat · Accepted solution]

Hello

For this purpose :

Unload / Reload ALL Images

Unload / Reload ALL Xrefs

I use a nice routine from Gilles (gile)

I0 : ALL Images OFF

I1 : ALL Images ON

X0 : ALL XREFs OFF

X1 : ALL XREFs ON

Thanks to Gilles (a french Expert Developer)

[richie_hodgson]

Hi there

That looks very interesting, will test it later today.  Thank you in advance.

Richie

[richie_hodgson]

Very cool, will have to check how the image part works as I am not sure about that bit of the code.