; TIP542.LSP   Hide Networked Files   (c)1990, Y. Bourgouin

(defun S::STARTUP ()
 (command ".UNDEFINE" "QUIT")
 (command ".UNDEFINE" "END")
 (command "HID"(strcat(getvar"DWGPREFIX")
  (getvar "DWGNAME")))
 (graphscr)
)

(defun C:END ()
 (command "NHID"(strcat(getvar"DWGPREFIX")
  (getvar "DWGNAME")))
 (command ".END")
)

(defun C:QUIT ()
 (command "NHID"(strcat (getvar"DWGPREFIX")
  (getvar "DWGNAME")))
 (command ".QUIT")
)