;  praefix.lsp
;  Präfix vor Text setzen
;  erstellt 10/06  Th.Jakob
;
;
(defun c:praefix()
;
;
  (princ "PRAEFIX  -  Präfix vor Texte setzen")
  (print )
  (initget 1)     ; keine Leereingaben
  (setq prae_txt (getstring "Präfix: "))
  (setq tl (ssget  '((0 . "TEXT"))))
  (setq anz (sslength tl))
  (setq x 0)
  (while (< x anz)
    (setq ct (ssname tl x))
    (setq ctl (entget ct))
;
;   alten Text holen
    (setq alt_txt (cdr (assoc 1 ctl)))
    (setq neu_txt (strcat prae_txt alt_txt))


;   textinhalt setzen auf neu_txt
    (setq ctl (subst (cons 1 neu_txt) (assoc 1 ctl) ctl))

    (entmod ctl)
    (entupd ct)
    (setq x (1+ x))

  )  

)