;Made in release 10:
    ;
    ;Programmed by:
    ;               Shawn Kondas
    ;               Albion, In.
    ;
    ;Free to anyone that wants it !!!!!!!
    ;
(defun C:ISOBOX (/)
(setvar "cmdecho" 0)
(setq a1 (/ pi 180.0))
(initget 1)
(setq isp (getpoint "\nPick lower corner: "))
(if (/= ish nil) (progn
                (princ "\nEnter height <")(princ ish)(princ ">: "))
                   (progn
                   (initget 1)
                  (princ "\nEnter height: ")))
(setq ish1 (getdist))
(if (/= ish1 nil) (setq ish ish1) (setq ish1 ish))
(if (/= isw nil) (progn
                (princ "\nEnter width <")(princ isw)(princ ">: "))
                   (progn
                   (initget 1)
                  (princ "\nEnter width: ")))
(setq isw1 (getdist))
(if (/= isw1 nil) (setq isw isw1) (setq isw1 isw))
(if (/= isd nil) (progn
                (princ "\nEnter depth <")(princ isd)(princ ">: "))
                    (progn
                    (initget 1)
                  (princ "\nEnter depth: ")))
(setq isd1 (getdist))
(if (/= isd1 nil) (setq isd isd1) (setq isd1 isd))
(setq ison (getvar "snapisopair"))
(setq bm (getvar "blipmode"))
(setvar "blipmode" 0)
(cond ((= ison 0) (setq isa1 150 isa2 90 isa3 30))
      ((= ison 1) (setq isa1 30 isa2 150 isa3 270))
      ((= ison 2) (setq isa1 30 isa2 90 isa3 150))
)
(setq isa1 (* isa1 a1) isa2 (* isa2 a1) isa3 (* isa3 a1))
(command "line" isp (setq isp1 (polar isp isa1 isw))
   (setq isp2 (polar isp1 isa2 ish)) (setq isp3 (polar isp2 (angle isp1 isp) isw)) "c")
(cond ((= ison 0) (command "line" isp (setq isp4 (polar isp isa3 isd)) (setq isp5 (polar isp4 isa2 ish)) isp3 "" "line" isp2 (polar isp2 isa3 isd) isp5 ""))
((= ison 1) (command "line" isp (setq isp4 (polar isp isa3 isd)) (setq isp5 (polar isp4 isa1 isw)) isp1 "" "line" isp3 (polar isp3 isa3 isd) isp4 ""))
((= ison 2) (command "line" isp (setq isp4 (polar isp isa3 isd)) (setq isp5 (polar isp4 isa2 ish)) isp3 "" "line" isp5 (polar isp5 isa1 isw) isp2 ""))
)
(setvar "blipmode" bm)
(princ)
)