(defun C:x1( / )
(setvar "filedia" 0)
(if (= 32 (logand 32 (cdr (assoc 70 (entget (tblobjname "block" "1-REF"))))))
  
;;;(if (= (cdr (assoc 70 (entget (tblobjname "block" "1-REF")))) 12)
(command "-xref" "u" "1-REF")
(command "-xref" "r" "1-REF")
)
(setvar "filedia" 1)
)

(defun C:x2( / )
(setvar "filedia" 0)
(if (= 32 (logand 32 (cdr (assoc 70 (entget (tblobjname "block" "2-REF"))))))
(command "-xref" "u" "2-REF")
(command "-xref" "r" "2-REF")
)
(setvar "filedia" 1)
)

(defun C:x3( / )
(setvar "filedia" 0)
(if (= 32 (logand 32 (cdr (assoc 70 (entget (tblobjname "block" "3-REF"))))))
(command "-xref" "u" "3-REF")
(command "-xref" "r" "3-REF")
)
(setvar "filedia" 1)
)

(defun C:x4( / )
(setvar "filedia" 0)
(if (= 32 (logand 32 (cdr (assoc 70 (entget (tblobjname "block" "4-REF"))))))
(command "-xref" "u" "4-REF")
(command "-xref" "r" "4-REF")
)
(setvar "filedia" 1)
)

(defun C:GD( / )
(setvar "filedia" 0)
(if (= 32 (logand 32 (cdr (assoc 70 (entget (tblobjname "block" "Grid"))))))
(command "-xref" "u" "Grid")
(command "-xref" "r" "Grid")
)
(setvar "filedia" 1)
)


;;Reload all currently resolved Xrefs

(defun c:refreshxrefs (/ cnt tmpBlk NameList)
(setvar "cmdecho" 0)
(setq cnt T)
(while (setq tmpBlk (tblnext "block" cnt))
(if (and (assoc 1 tmpBlk) (= (logand 32 (cdr (assoc 70 tmpBlk))) 32))
(setq NameList (cons (cdr (assoc 2 tmpBlk)) NameList))
)
(setq cnt nil)
)

(foreach i NameList
  (command ".xref" "r" i))
  (setvar "cmdecho" 1)
  (princ)
)