---

suche ein Tool mit dem ich Text 1 mit Text2 verbinden kann. Das EXPRESS
Tool geht schlecht da die Texte untereinander stehen und dann erst
auseinandergezogen werden müssen und dann auch noch in Text zurückgewandelt.
Aslo Beispiel verbinde 259 mit 45 =259-45 oder abc-45 .
Es sind immer andere Werte.
Gibt es da schon was.

------------------
Gruß vom Bauvermesser;

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

http://forum.cad.de/foren/ubb/Forum54/HTML/030312.shtml#000002

Auf's Video klicken 

------------------
Gruß

Michi

"Es ist schon alles gesagt, nur noch nicht von allen." (Karl Valentin)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

habe Lsp getestet , leider bewirkt sie das Gleiche wie im Express Tool.
Der zusammengefügte Text wir als Mtext untereinander gesetzt. Da bringt mir nichts.
Habe eine LSP gefunden welche eventuell gehen würde wenn, ja.... wenn da nicht das Problem mit den Klammern wäre. Ich brieg sie nicht zum laufen, irgendwo ist vermutlich eine ode zwei Klammern zu viel,
Kann bitte mal drüber schauen.
    (defun c:text_test ( / aws wert_liste wert)
      (if (setq aws (ssget (list (cons 0 "TEXT"))))
        (progn
          (setq n 0)
          (repeat (sslength aws)
    (setq wert_liste (cons (list(cdr(assoc 1 (entget(ssname aws n))))(cdr(assoc 10(entget(ssname aws n)))))wert_liste) n (+ n 1)))
          ;Liste mit Textwerten nach x-Wert sortieren
          (setq wert_liste (vl-sort wert_liste '(lambda (e1 e2)
          (<; (car(cadr e1))(car(cadr e2))))))
          (setq wert(apply 'strcat(mapcar '(lambda(A)(car A))wert_liste))) 
          (command "_.text" (cadr(car wert_liste))
          (cdr(assoc 40 (entget(ssname aws 0))))  0.0  wert "")
          (entmod (subst (cons 50 (angle (cadr(car wert_liste))(cadr(last wert_liste))))
        (assoc 50 (entget (entlast)))(entget(entlast)))))
        (alert "Keine Texte ausgewählt.")))

------------------
Gruß vom Bauvermesser;

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kapier ich nicht so ganz ....
Du willst bei ausgewählten Textobjekten an den bestehenden Textinhalt ein "Suffix" anfügen?

Dann vielleicht damit

(defun C:TEXTSUFFIX()
  (if(and(setq AWS(ssget '((0 . "TEXT"))))
        (/=(setq S(getstring "\nSUFFIX: ")) "")
    )
    (mapcar
      '(lambda(X / Y Z)
        (if(and(=(type(cadr X))'ENAME)
                (setq Y(entget(cadr X)))
                (setq Z(cdr(assoc 1 Y)))
                (setq Z(strcat Z S))
            )   
          (entmod(subst(cons 1 Z)(assoc 1 Y)Y))
        ) 
      ) 
      (ssnamex AWS)
    ) 
  )
  (princ)
) 

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

im AutoCAD Magazin 8-2014 gab es ein Tool zum Zusammenführen von Texten und/oder MTexten, das IMHO das Gewünschte macht.
Falls du kein Abo hast, frag' einfach mal bei der Redaktion nach.

Gruß
CADchup

------------------
CADmaro.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

also in der Beschreibung zu der oben angegeben lsp (text_test) steht das diese den text nach auswahl aufsammelt und dann nach x-wert aneinander reiht. Bringe diese nur nicht zum laufen.
Habe ich da was falsch verstanden zu dieser lsp.
Suffix bringt nichts da es ja immer unterscheidliche Texte und Zahlen sind welche zusammengefügt werden sollen.
Die Tools von Express und ein anderes hier benanntens habe ich getestet ,gehen aber nicht, da alle beide am Ende einen Mtext erstellen welcher auch noch nicht nebeneinander steht sondern nur untereinander. Das heist ich bin wieder am Anfang.
Es geht also um das Aufsammeln von nur 'TEXT' und ablegen von nur 'TEXT'.
Für MText gibt es da einige Tools.

------------------
Gruß vom Bauvermesser;

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bauvermesser,

lösch mal in der 9. Zeile des Lisp-Proggis das ";" hinter (<
Damit wird die restliche Zeile und somit einige Klammern auskommentiert. (Hättest Du auch schnell selber rausfinden können, wenn Du Dir die Zeilen mal in den Lisp-Editor kopiert hättest  )
Danach geht das Lisp auch mit folgenden Einschränkungen:
- Der aktuelle Textstil darf keine feste Höhe zugewiesen haben.
- Die vorhandenen Texte werden nicht gelöscht.

HTH
LG
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP