;;;Special auto Wblock for Camp Lejeune, HP area drawings.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-15-94
;;;>		   EDITED: 08-18-1999
;;;
(defun c:hpwb ( / )
  (setq fnam (getvar"dwgname"))
  (setq fpfx (getvar"dwgprefix"))
  (setq fdir1 (substr fnam 4 6))
  (setq fdir2 (substr fpfx 4 6))
  (setq fnpf1 (substr fnam 11 5))
  (setq fnpf2 (substr fnam 1 5))
  (if (and
        (or(eq fdir1 "CL9406")
           (eq fdir2 "CL9406"))
        (or(eq fnpf1 "CSVPL")(eq fnpf1 "CSTPL")
           (eq fnpf2 "CSVPL")(eq fnpf2 "CSTPL"))
       );and
    (progn
      (setq flen (strlen fnam))
      (setq wbnam (strcat "xr" (substr fnam (- flen 2) 3)))
      (setq wbss
        (ssget "X"
          '((-4 . "<NOT")
           (-4 . "<OR")
             (0 . "TEXT")
             (2 . "DWGSTAMP")
             (2 . "PROJ_NAM")
             (2 . "POINT")
             (2 . "XRCT0")
             (2 . "XR000")
             (2 . "XR100")
             (2 . "XR101")
             (2 . "XR102")
             (2 . "XR103")
             (2 . "XR104")
             (2 . "XR105")
             (2 . "XR106")
             (2 . "XR107")
             (2 . "XR108")
             (2 . "XR109")
             (2 . "XR130")
             (2 . "XR131")
             (2 . "XR132")
             (2 . "XR133")
             (2 . "XR134")
             (2 . "XR135")
             (2 . "XR200")
             (2 . "XR201")
             (2 . "XR202")
             (2 . "XR203")
             (2 . "XR204")
             (2 . "XR205")
             (2 . "XR206")
             (2 . "XR207")
             (2 . "XR208")
             (2 . "XR209")
             (2 . "XR210")
             (2 . "XR211")
             (2 . "XR212")
             (2 . "XR213")
             (2 . "XR214")
             (2 . "XR215")
             (2 . "XR216")
             (2 . "XR217")
             (2 . "XR218")
             (2 . "XR219")
             (2 . "XR220")
             (2 . "XR300")
             (2 . "XR301")
             (2 . "XR302")
             (2 . "XR303")
             (2 . "XR304")
             (2 . "XR305")
             (2 . "E06")
             (2 . "E07")
             (2 . "F06")
             (2 . "F07")
             (2 . "F08")
             (2 . "F09")
             (2 . "G07")
             (2 . "G08")
           (-4 . "OR>")
           (-4 . "NOT>")
           )
        );ssget
      );setq
      (if (findfile (strcat wbnam ".dwg"))
        (command ".wblock" wbnam "y" "" "0,0" wbss "")
        (command ".wblock" wbnam "" "0,0" wbss "")
      );if
      (if wbss
        (command ".oops" "")
      );if
    );progn
  );if
);defun