(DEFUN hua_D_sheet ()
  (SETQ hua_sheet_name "g00tbx01")
  (SETQ hua_fill_name "huattbat")
  (IF (SSGET "x" (LIST (CONS 2 hua_sheet_name)))
    (ALERT (STRCAT "\n   Sheet Border \"" hua_sheet_name "\" already exists! "))
    (IF (FINDFILE hua_sheet_name)
      (PROGN (IF (EQ (GETVAR "tilemode") 1)
               (SETVAR "tilemode" 0)
             ) ;_ end of if
             (COMMAND "-layer" "m" hua_sheet_name "")
             (COMMAND "-xref" "o" hua_sheet_name "0,0" 1 1 0)
      ) ;_ end of progn
      (ALERT
        (STRCAT "\n   Drawing file \"" hua_sheet_name "\" not found! Check the project drawing folder. ")
      ) ;_ end of ALERT
    ) ;_ end of IF
  ) ;_ end of if
  (IF (SSGET "x" (LIST (CONS 2 hua_fill_name)))
    (ALERT (STRCAT "\n   Sheet Title Block fill-in \"" hua_fill_name "\" already exists! "))
    (IF (FINDFILE hua_fill_name)
      (PROGN (IF (EQ (GETVAR "tilemode") 1)
               (SETVAR "tilemode" 0)
             ) ;_ end of if
             (COMMAND "-layer" "m" hua_fill_name "")
             (COMMAND "-insert" hua_fill_name "0,0" 1 1 0)
             (COMMAND ".ddatte" "l")
      ) ;_ end of progn
      (ALERT (STRCAT "\n   Drawing file \""
                     hua_fill_name
                     "\" not found! AutoCAD support file search path should include \"H:\\Util\\\". "
             ) ;_ end of STRCAT
      ) ;_ end of ALERT
    ) ;_ end of IF
  ) ;_ end of if
  (SETQ hua_sheet_name nil)
  (SETQ hua_fill_name nil)
  (PRINC)
) ;_ end of defun
;|«Visual LISP© Format Options»
(120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T)
;*** DO NOT add text below the comment! ***|;