;;;Place a "hiding" solid over a rectangular area (on layer ?-NPLTFAREA).
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 10-06-2005
;;;
(defun c:hdrect (/)
(if c:mklayr nil (load"mklayr"))
(c:svlayr)
(if dimscl nil (load"dimscl"))
(dimscl)
(if gvpno nil (load"gvpno"))
(gvpno)
(if mjrg nil (setq mjrg "C"))
(setq ntz 20000                ;(* 1000 dimsc)
      llt "-"
;      prod "NPLT"
;      colra "F"
;      colri "15"
      colr "1"
      modf "NPLT"
);setq
(while
  (setq pt1 (upoint 0 "" "First 3DFACE point" nil nil))
  (setq pt2 (upoint 0 "" "Second 3DFACE point" nil pt1))
  (setq pt3 (upoint 0 "" "Third 3DFACE point" nil pt1))
  (setq pt4 (inters pt2 
                    (polar pt2 (angle pt1 pt3) 100)
                    pt3
                    (polar pt3 (angle pt1 pt2) 100)
                    nil
            )
  )
  (c:mklayr)
;  (setq tlayr (getvar"clayer"))
  (setq bxp1 (list(car pt1)(cadr pt1)ntz)
        bxp2 (list(car pt2)(cadr pt2)ntz)
        bxp3 (list(car pt3)(cadr pt3)ntz)
        bxp4 (list(car pt4)(cadr pt4)ntz)
  );setq
;  (command ".solid" bxp1 bxp2 bxp3 bxp4 "")
  (setq 3dflst
    (list
      (cons 0 "3DFACE")
;      (cons 8 tlayr)
      (cons 10 bxp1)
      (cons 11 bxp2)
      (cons 12 bxp4)
      (cons 13 bxp3)
      (cons 67 as_67)
      (cons 70 15)
    )
  )
  (entmake 3dflst)
);while
  (c:rslayr)
;  (if (or(eq(substr(getvar"clayer")3 4)"NPLT")(eq(substr(getvar"clayer")8 4)"NPLT"))
;    (command ".layer" "m" "TEMP" "")
;  );if
;  (command ".layer" "of" "*nplt*" "")
);defun