 ; Fungus: fix the path on Xrefs.
 ; Copyright 1995, 2010 by Rocket Software Ltd.
 ; Mostly for batch use, has to be edited.
 ; Note the use of "\\" for "\" in paths.
 ; Hey Kids: try this fun game - see how many people you can name who
 ; make you think of a fungus or a big puffball!

 ; Blotch: an invisible utility: print block table data.
 (DEFUN C:BLOTCH (/ rew dat)
  (setq rew T)
  (while (setq dat (tblnext "block" rew))
         (if dat (print dat))
         (setq rew ()))
  (princ))

 (DEFUN C:FUNGUS ()
  (setvar "cmdecho" 0)
  (if (tblsearch "block" "a1tb")
      (progn
           (command "-xref" "path" "a1tb"
            "T:\\CADD\\Drafting General\\Titleblocks\\a1tb.dwg")
;           (command "-rename" "block" "a1tb" "a1tb-2")    ; optional
      ))
 (princ))