;----------------------------
; Text H”he „ndern 30.6.91
; eingabut in e3f4
;---------------------------
(Defun C:Tsz (/ G A B C D E F)
  (Setvar "Cmdecho" 0)
  (Initget 1 "A H  ")
  (Setq G (Strcase (Substr (Getkword "Height/<Select>: ") 1 1)))
  (Cond
    ((Or (= G "S") (= G ""))
      (Setq A (Ssget))
      (Setq B (Sslength A))
      (Initget 7) (Setq C (Getdist "\nNew Text-Height: "))
      (While
        (> B 0)
          (Setq B (1- B))
          (Setq D (Ssname A B))
          (Setq D (Entget D))
          (If (= "TEXT" (Cdr (Assoc 0 D)))
            (progn
            (Setq E (Assoc 40 D))
            (Setq F (Cons 40 C))
            (Entmod (Setq D (Subst F E D)))))
      )
      (Setq A nil)
    )
    ((= G "H")
      (Initget 7) (Setq A (Getdist "\nOld Text-Height: "))
      (Setq B (Fix (* 100 A)))
      (Initget 7) (Setq C (Getdist "\nNew Text-Height: "))
      (Setq D (Entnext))
      (Setq E (Cons 40 C))
      (While
        D
          (Princ ".")
          (Setq F (Assoc 0 (Entget D)))
          (If
            (= "TEXT" (Cdr F))
              (Progn
                (Setq F (Assoc 40 (Entget D)))
                (Setq G (Fix (* 100 (Cdr F))))
                (If
                  (= B G)
                  (Entmod (Subst E F (Entget D)))
                )
              )
          )
          (Setq D (Entnext D))
      )
    )
  )  
  (Princ)
)
