;---------------------------------------
; Fhrende Nullen entfernen 30.6.91 AW
; eingebaut in e3f5
;---------------------------------------
(Defun C:ENTFZEI ()
  (Setvar "Cmdecho" 0)
  (Setq A (Entsel "Text w„hlen: "))
  (If
    A
      (Progn
        (Setq A (Entget (Car A)))
        (If
          (= (Cdr (Assoc 0 A)) "TEXT")
            (Progn
              (Setq B (Assoc 1 A))
              (Setq C (Cons 1 (Substr (Cdr B) 2
                (Strlen (Cdr B))))
              )
              (Entmod (Subst C B A))
            )
        )
      )
  )
  (Princ)
)
