26 lines
569 B
Common Lisp
26 lines
569 B
Common Lisp
;---------------------------------------
|
|
; F�hrende 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)
|
|
)
|
|
|