; TIP503.LSP   One-Shot Text Scaling   (c)1990, Igor Gurevich

(defun EXECUTE ()
  (setq 
    STYLENAME (cdr (assoc '2 ITEM))
    HEIGHT (cdr (assoc '40 ITEM))
    NEWHEIGHT (* FACTOR HEIGHT))
  )  
  (command "STYLE" STYLENAME "" 
    NEWHEIGHT "" "" "" "" "")
)

(defun C:SCSTYLE ()
  (setq ECHO (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
; Disallow zero or negative input:
  (initget (+ 2 4))   
  (setq FACTOR (getreal 
    "Multiply all text heights by: "))
  (if (= nil FACTOR) CANCEL)
  (setq ITEM (tblnext "STYLE" T))
  (EXECUTE)
  (setq LIMIT 0)
  (while (< LIMIT 99)
    (setq ITEM (tblnext "STYLE"))
	(if (= nil ITEM) 
	  (setq LIMIT 99) 
	  (EXECUTE))
  )
  (setvar "CMDECHO" ECHO)
  (princ)
)