X-REF Manager Auto Re-load???

[Chirag Mistry]

Reload an External Reference by selecting it

^C^C(if(not c:reload)(load "reload")) reload

This works great for me, just click on the button and pick the xref.

[cwade]

Look at the FileDependency object. (Is there an echo in here?)

Ok, but how on earth do you use it? I don't mess with VBA portions of stuff, because I have yet to figure out how to call it from LISP. If it changed a variable it would work great, beacuse I have a routine that reacts to variables being changed.

[kbsheppard]

Hi folks, I'm new here (actually my first post) but I've been running this Cad thing for a while now...anyway I just flipped briefly through this thread...ummm ya know the little status bar icon where that baloon thingy originates from, well if you right click it you get an option to reload all xrefs...or is that just an oversimplification???

[Adam R.]

Not really, that still requires 2 clicks, and I've got it down to one. It doesn't seem like much, but after 500 reloads it is substantial.

[Rayllen]

revised code

(defun C:RX	(/ BLOCKS NEXTBLOCK N)  ;; Reload all "loaded" xref's only
                                                                          ;; Richard Lawrence (c) 2005
  (defun ASC (ELEMENT ENTITY /) (cdr (assoc ELEMENT ENTITY))) ;;; retrieve assoc data from entity
  (setq BLOCKS NIL)
  (setq NEXTBLOCK (tblnext "BLOCK" t))
  (while (/= NEXTBLOCK NIL)
    (if	(= (logand (ASC 70 NEXTBLOCK) 4) 4)
      (if (= (logand (ASC 70 NEXTBLOCK) 32) 32)
	(if BLOCKS
	  (setq BLOCKS (append BLOCKS (list (ASC 2 NEXTBLOCK))))
	  (setq BLOCKS (list (ASC 2 NEXTBLOCK)))
	)
      )
    )
    (setq NEXTBLOCK (tblnext "BLOCK"))
  )
  (if blocks
    (progn
      (foreach N BLOCKS
	(command "-XREF" "R" N)
      )
      (if (= (length blocks) 1)
	(princ (strcat "n"(itoa(length blocks))" reference reloaded."))
	(princ (strcat "n"(itoa(length blocks))" references reloaded."))
      )
    )
    (princ "nNo xref's found.")
  )
  (princ)
)

Ok, I'm very new to all of this, and I've never worked with this type of stuff before. I am one of those people who would be greatly affected by having a shortcut to reloading only the loaded XREF's. However, I am not sure how you would go about putting this code into autocad to make it work for simple people like me. I was hoping that someone could explain this simply for me

thank you (in advance)

[Mike.Perry]

Ok, I'm very new to all of this, and I've never worked with this type of stuff before. I am one of those people who would be greatly affected by having a shortcut to reloading only the loaded XREF's. However, I am not sure how you would go about putting this code into autocad to make it work for simple people like me. I was hoping that someone could explain this simply for me

Hi

Have a read of this post and this one.

+

Have a browse of the following threads -

Image transparency

Total polyline length

Have a good one, Mike

[iainslie]

GENIUS! I was hoping I could get direction to write this and here it is! Thanks!

revised code

(defun C:RX	(/ BLOCKS NEXTBLOCK N)  ;; Reload all "loaded" xref's only
                                                                          ;; Richard Lawrence (c) 2005
  (defun ASC (ELEMENT ENTITY /) (cdr (assoc ELEMENT ENTITY))) ;;; retrieve assoc data from entity
  (setq BLOCKS NIL)
  (setq NEXTBLOCK (tblnext "BLOCK" t))
  (while (/= NEXTBLOCK NIL)
    (if	(= (logand (ASC 70 NEXTBLOCK) 4) 4)
      (if (= (logand (ASC 70 NEXTBLOCK) 32) 32)
	(if BLOCKS
	  (setq BLOCKS (append BLOCKS (list (ASC 2 NEXTBLOCK))))
	  (setq BLOCKS (list (ASC 2 NEXTBLOCK)))
	)
      )
    )
    (setq NEXTBLOCK (tblnext "BLOCK"))
  )
  (if blocks
    (progn
      (foreach N BLOCKS
	(command "-XREF" "R" N)
      )
      (if (= (length blocks) 1)
	(princ (strcat "\n"(itoa(length blocks))" reference reloaded."))
	(princ (strcat "\n"(itoa(length blocks))" references reloaded."))
      )
    )
    (princ "\nNo xref's found.")
  )
  (princ)
)

[Opie]

Go back to my original post. I have revised the code once more to allow one to select the xrefs to reload or if none are previously selected, all loaded xrefs will be reloaded.