(DEFUN c:hddo ()
  (SETQ oldcmdecho (GETVAR "cmdecho"))
  (SETVAR "cmdecho" 0)
  (SETQ	hdbox_ss (SSGET	"x"
			'((-4 . "<AND")
			  (0 . "INSERT")
			  (2 . "HDBOX")
			  (8 . "~*RAIL?HAND-HIDE")
			  (67 . 1)
			  (-4 . "AND>")
			 )
		 ) ;_ end of ssget
  ) ;_ end of setq
  (SETQ	hdcirc_ss (SSGET "x"
			 '((8 . "*RAIL?HAND-HIDE"))
		  ) ;_ end of SSGET
  ) ;_ end of SETQ
  (SETQ	hrails_ss (SSGET "X"
			 '((8 . "*RAIL?HAND"))
		  ) ;_ end of SSGET
  ) ;_ end of SETQ
  (SETQ	txdim_ss (SSGET	"x"
			'((-4 . "<AND")
			  (-4 . "<OR")
			  (0 . "TEXT")
			  (0 . "DIMENSION")
			  (2 . "*TTBAT")
			  (2 . "GTB????#")
			  (8 . "*NOHIDE*")
			  (8 . "*NHID*")
			  (-4 . "OR>")
			  (67 . 1)
			  (-4 . "AND>")
			 )
		 ) ;_ end of ssget
  ) ;_ end of setq
  (IF (AND hrails_ss hdcirc_ss)
    (PROGN
      (COMMAND "_.draworder" hdcirc_ss "" "f")
      (COMMAND "_.draworder" hrails_ss "" "f")
      (COMMAND "_.move" hdcirc_ss "" "0,0" "")
      (COMMAND "_.move" hrails_ss "" "0,0" "")
    ) ;_ end of PROGN
  ) ;_ end of IF
  (IF (AND hdbox_ss txdim_ss)
    (PROGN
      (COMMAND "_.draworder" hdbox_ss "" "f")
      (COMMAND "_.draworder" txdim_ss "" "f")
      (COMMAND "_.move" hdbox_ss txdim_ss "" "0,0" "")
    ) ;_ end of PROGN
    (COND
      ((AND (NOT hdbox_ss) (NOT txdim_ss))
       (PRINC
	 "\nNo text, dimensions, border sheets or hiding objects found! "
       ) ;_ end of PRINC
       (PRINC)
      )
      ((NOT hdbox_ss)
       (PRINC "\nNo hiding objects found! ")
       (PRINC)
      )
      ((NOT txdim_ss)
       (PRINC "\nNo text, dimensions or border sheets found! ")
       (PRINC)
      )
    ) ;_ end of COND
  ) ;_ end of IF
  (SETVAR "cmdecho" oldcmdecho)
  (PRINC)
  (PRINC)
) ;_ end of defun
;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 2 1 ... )
;*** DO NOT add text below the comment! ***|;