;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3/29/00
;;;>		   EDITED: 10-31-2003
;;;
(DEFUN c:rrect ()
  (IF c:mklayr
    nil
    (LOAD "mklayr")
  )
  (c:svlayr)
  (IF dimscl
    nil
    (LOAD "dimscl")
  ) ;_ end of if
  (dimscl)
  (SETQ tname (CAR (ENTSEL)))
  (SETQ	tent (ENTGET tname)
	tbox (TEXTBOX tent)
	txht (CDR (ASSOC 40 tent))
	tdis (DISTANCE (NTH 0 tbox) (NTH 1 tbox))
	tp1  (CDR (ASSOC 10 tent))
	ntz  (* dimsc 502.5)
	tz3  (* dimsc 501)
  ) ;_ end of setq
  (IF
    (OR	(= (CDR (ASSOC 71 tent)) 2)
	(= (CDR (ASSOC 71 tent)) 6)
    ) ;_ end of or
     (SETQ tang (+ PI (CDR (ASSOC 50 tent))))
     (SETQ tang (CDR (ASSOC 50 tent)))
  ) ;_ end of if
  (SETQ	tbang
	      (IF (AND (> tdis 0) (> tdis txht))
		(IF
		  (= (CDR (ASSOC 71 tent)) 2)
		   (- tang
		      (ATAN txht (SQRT (- (* tdis tdis) (* txht txht))))
		   ) ;_ end of -
		   (IF
		     (= (CDR (ASSOC 71 tent)) 4)
		      (- tang
			 (ATAN txht (SQRT (- (* tdis tdis) (* txht txht))))
		      ) ;_ end of -
		      (+ tang
			 (ATAN txht (SQRT (- (* tdis tdis) (* txht txht))))
		      ) ;_ end of +
		   ) ;_ end of if
		) ;_ end of if
		0
	      ) ;_ end of if
	tp2   (POLAR tp1 tbang tdis)
  ) ;_ end of setq
  (IF
    (OR	(= (CDR (ASSOC 71 tent)) 2)
	(= (CDR (ASSOC 71 tent)) 4)
    ) ;_ end of or
     (SETQ bxp1	(POLAR tp1
		       (+ tang (* PI 0.75))
		       (* 1.414214 (/ txht 2.10))
		) ;_ end of polar
	   bxp2	(POLAR bxp1
		       (- tang (* PI 0.50))
		       (+ (* 2.00 (/ txht 2.10)) txht)
		) ;_ end of polar
	   bxp4	(POLAR tp2
		       (- tang (* PI 0.25))
		       (* 1.414214 (/ txht 2.10))
		) ;_ end of polar
	   bxp3	(POLAR bxp4
		       (+ tang (* PI 0.50))
		       (+ (* 2.00 (/ txht 2.10)) txht)
		) ;_ end of polar
     ) ;_ end of setq
     (SETQ bxp1	(POLAR tp1
		       (- tang (* PI 0.75))
		       (* 1.414214 (/ txht 0.35))
		) ;_ end of polar
	   bxp2	(POLAR bxp1
		       (+ tang (* PI 0.50))
		       (+ (* 2.00 (/ txht 0.35)) txht)
		) ;_ end of polar
	   bxp4	(POLAR tp2
		       (+ tang (* PI 0.25))
		       (* 1.414214 (/ txht 0.35))
		) ;_ end of polar
	   bxp3	(POLAR bxp4
		       (- tang (* PI 0.50))
		       (+ (* 2.00 (/ txht 0.35)) txht)
		) ;_ end of polar
     ) ;_ end of setq
  ) ;_ end of if
  (IF (= (CDR (ASSOC 71 tent)) 2)
    (SETQ ntz (- 0 (ABS ntz)))
    (SETQ ntz (ABS ntz))
  ) ;_ end of if
  (SETQ	bxp1 (TRANS (LIST (CAR bxp1) (CADR bxp1) ntz) 0 1)
	bxp2 (TRANS (LIST (CAR bxp2) (CADR bxp2) ntz) 0 1)
	bxp3 (TRANS (LIST (CAR bxp3) (CADR bxp3) ntz) 0 1)
	bxp4 (TRANS (LIST (CAR bxp4) (CADR bxp4) ntz) 0 1)
  ) ;_ end of setq
  (SETQ	d3p1 (TRANS (LIST (CAR bxp1) (CADR bxp1) tz3) 0 1)
	d3p2 (TRANS (LIST (CAR bxp2) (CADR bxp2) tz3) 0 1)
	d3p3 (TRANS (LIST (CAR bxp3) (CADR bxp3) tz3) 0 1)
	d3p4 (TRANS (LIST (CAR bxp4) (CADR bxp4) tz3) 0 1)
  ) ;_ end of setq
  (COMMAND ".color" "bylayer")
  (COMMAND "-layer" "m" "TBM_NPLT" "")
  (COMMAND ".3dface" d3p1 d3p2 d3p4 d3p3 "")
  (COMMAND "-layer" "m" "TBM" "")
  (COMMAND ".color" "3")
  (COMMAND ".pline" bxp1 "w" (* 0.7(/ dimsc 40.0))(* 0.7(/ dimsc 40.0)) bxp2 bxp4 bxp3 bxp1 "")
  (COMMAND ".color" "bylayer")
  (c:rslayr)
) ;_ end of defun

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
 ***Don't add text below the comment!***|;