;Made in release 10:
    ;
    ;Programmed by:
    ;               Shawn Kondas
    ;               Albion, In.
    ;
    ;Free to anyone that wants it !!!!!!!
    ;
(defun C:ISOSIDE (/)
(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))
(setq ison (getvar "snapisopair"))
(cond ((= ison 0) (setq isa1 150 isa2 90))
      ((= ison 1) (setq isa1 30 isa2 150))
      ((= ison 2) (setq isa1 30 isa2 90))
)
(setq isa1 (* isa1 a1) isa2 (* isa2 a1))
(setq bm (getvar "blipmode"))
(setvar "blipmode" 0)
(command "line" isp (setq isp1 (polar isp isa1 isw))
   (setq isp2 (polar isp1 isa2 ish)) (setq isp3 (polar isp2 (angle isp1 isp) isw)) "c")
(grdraw isp isp1 -1 1)
(grdraw isp1 isp2 -1 1)
(grdraw isp2 isp3 -1 1)
(grdraw isp3 isp -1 1)
(setvar "blipmode" bm)
(princ)
)