(defun c:dis ()
  (setq itl (tblobjname "layer" "disclaimer|disclaimer"))
  (IF itl
    (PROGN
      (setq it(entget itl))
      (setq it(subst (cons 62(- 0(cdr(assoc 62 it))))(assoc 62 it)it))
      (entmod it)
    )
    (PROGN
      (setq itl (tblobjname "layer" "disclaimer"))
      (IF itl
        (PROGN
          (setq it(entget itl))
          (setq it(subst (cons 62(- 0(cdr(assoc 62 it))))(assoc 62 it)it))
          (entmod it)
        )
      )
    )
  )
  (setq itl (tblobjname "layer" "nondisclaimer"))
  (IF itl
    (PROGN
      (setq it(entget itl))
      (setq it(subst (cons 62(- 0(cdr(assoc 62 it))))(assoc 62 it)it))
      (entmod it)
    )
  )
  (princ)
)
(DEFUN C:MYPATHS ()
  (SETQ JFP_NC_ENT (ENTGET (TBLOBJNAME "BLOCK" "JFP_NC")))
  (SETQ TBLOCK_ENT (ENTGET (TBLOBJNAME "BLOCK" "TBLOCK")))
  (IF (WCMATCH (CDR (ASSOC 1 JFP_NC_ENT)) "*:*")
    (PROGN
      (Command "-XREF" "P" "JFP_NC" "JFP_NC")
;;;      (SETQ JFP_NC_ENT (SUBST (CONS 1 "JFP_NC.DWG")(ASSOC 1 JFP_NC_ENT)JFP_NC_ENT))
;;;      (ENTMOD JFP_NC_ENT)
    )
    (PRINC (CDR (ASSOC 1 JFP_NC_ENT)))
  )
  (IF (WCMATCH (CDR (ASSOC 1 TBLOCK_ENT)) "*:*")
    (PROGN
      (Command "-XREF" "P" "TBLOCK" "TBLOCK")
;;;      (SETQ TBLOCK_ENT (SUBST (CONS 1 "TBLOCK.DWG")(ASSOC 1 TBLOCK_ENT)TBLOCK_ENT))
;;;      (ENTMOD TBLOCK_ENT)
    )
    (PRINC (CDR (ASSOC 1 TBLOCK_ENT)))
  )
  (PRINC)
)