;******************************************************************************
;*                                 ISOTXT.LSP                                 *
;*                                                                            *
;*     By Harold Tyler     Racore Computer Products, Inc.    March 1989       *
;*           This will draw isometric text on an isometric plane.             *
;******************************************************************************
(defun c:isotxt (/ pt1 pt2 hgt obl rot)
   (setvar "CMDECHO" 0)
   (setq pt1 (getpoint "\nEnter text starting point: "))
   (setq pt2 (getstring "\nEnter direction of text:\n(TR) top right,(TL) top left,(SR) side right,(SL) side left:  "))
   (setq hgt (getstring "\nEnter text height: "))
   (if (or (= pt2 "sr") (= pt2 "SR"))
       (progn
          (setq obl "30")
          (setq rot "30")))
   (if (or (= pt2 "sl") (= pt2 "SL"))
       (progn
          (setq obl "-30")
          (setq rot "330")))
   (if (or (= pt2 "tr") (= pt2 "TR"))
       (progn
          (setq obl "-30")
          (setq rot "30")))
   (if (or (= pt2 "tl") (= pt2 "TL"))
       (progn
          (setq obl "-330")
          (setq rot "330")))
   (command "style" "" "" "" "" obl "" "" "")
   (command "dtext" pt1 hgt rot)
   (command "style" "" "" "" "" "0" "" "" "") 
   (setvar "CMDECHO" 1)
)
