;Lisp erstellt von "FLASCHENPOST", 09.12.04

;Einzeiliger Text wird zusammengefaßt 
;Bei Verwendung für Mtext ist TEXT durch MTEXT zu ersetzen

;Befehl: TAD ohne Lehrzeichen, TML mit Leerzeichen
;ersten Text wählen - Eingabe - anzufügende Texte wählen 


(defun C:TAD ()
  (print "Anfangstext wählen :")
  (setq Atext (ssname (ssget '((0 . "TEXT")) ) 0) )
  
  
  (print "Texte wählen, die direkt angefügt werden sollen :") 
  (setq Textwahl (ssget '((0 . "TEXT")) ) )
  
  (setq Anfel (entget Atext))
  (setq Inhalt1 (cdr (assoc 1 Anfel)) )
  
  
  (setq nr 0)
  (setq Inhalt2 Inhalt1)
  (while (< nr (sslength Textwahl))
    (progn
      (setq el1 (ssname Textwahl nr))
      (setq Ntext  (cdr (assoc 1 (entget el1))) )
      (setq Tneu (strcat Inhalt2 Ntext))
      (setq Inhalt2 Tneu)
      (entdel el1) 
    )
    (setq nr (+ nr 1))
   )
    
  (setq Textneu (subst (cons 1 Inhalt2) (cons 1 Inhalt1) Anfel)) 
  (entdel Atext)
  (entmake Textneu)  
  
)


(defun C:TML ()
  (print "Anfangstext wählen :")
  (setq Atext (ssname (ssget '((0 . "TEXT")) ) 0) )
  
  
  (print "Texte wählen, die direkt angefügt werden sollen :") 
  (setq Textwahl (ssget '((0 . "TEXT")) ) )
  
  (setq Anfel (entget Atext))
  (setq Inhalt1 (cdr (assoc 1 Anfel)) )
  
  
  (setq nr 0)
  (setq Inhalt2 Inhalt1)
  (while (< nr (sslength Textwahl))
    (progn
      (setq el1 (ssname Textwahl nr))
      (setq Ntext  (cdr (assoc 1 (entget el1))) )
      (setq Tneu (strcat Inhalt2 " " Ntext))
      (setq Inhalt2 Tneu)
      (entdel el1) 
     )
    (setq nr (+ nr 1))
   )
  
  (setq Textneu (subst (cons 1 Inhalt2) (cons 1 Inhalt1) Anfel)) 
  (entdel Atext)
  (entmake Textneu)  
      

)