;  Text_6Z.lsp
;  Texte auf 6 ´Zeichen kuerzen

; Elementliste aus Auswahlsatz bauen
; Parameter: Auswahlsatz
; Rueckgabe: Liste der Elementnamen
(defun bau_elemli (asatz / anz i liste)
  (setq anz (sslength asatz) i 0)
  (while (< i anz)
    (setq liste (cons (ssname asatz i) liste))
    (setq i (1+ i))
  )
  (setq liste liste)
)


(defun c:t6z( / t_aws t_li ct ctl altwert_txt neuwert_txt)
;
  (print "Texte auswählen ")

  (if (setq t_aws (ssget '((0 . "TEXT"))))
      (progn
	    (setq t_li (bau_elemli t_aws))
		(foreach ct t_li
          (setq ctl (entget ct))
          ;   alten wert holen
          (setq altwert_txt (cdr (assoc 1 ctl)))
         (setq neuwert_txt (substr altwert_txt 1 6))
          ;   textinhalt setzen auf neuwert_txt
          (setq ctl (subst (cons 1 neuwert_txt) (assoc 1 ctl) ctl))
          (entmod ctl)
          (entupd ct)
        )
	  )
	  (print "Keine Texte ausgewaehlt")
  )
)
;