---

Kann man eine Textzeile aus mehreren Wörtern so trimmen, dass die einzelnen Wörter als Text mit der gleicher Position erzeugt werden?

------------------
Gruss Dirk

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

---

Hallo,
ich denke mit (textbox elist) sollte sich da was zusammenstellen lassen.

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

Weiss nicht genau, was du meinst.
Die Textzeile zu zerlegen und die einzelnen Wörter zu erzeugen stellt kein Problem dar. Ich weiss nur nicht wie ich die Position des Wortes ermitteln kann ?

Code:

---

(defun c:strtrim (/ s n)
  (princ "\nTrimmt einen Text an den Leerzeichen")
  (defun convert ( str del / pos lst )
    (while (setq pos (vl-string-search del str))
      (setq lst (cons (substr str 1 pos) lst)
            str (substr str (+ pos 1 (strlen del)))
    )
      )
    (reverse (cons str lst))
    )
  (setq s (cdr (assoc 1 (setq obj (entget (car (entsel "\nWähle Text! "))))))
n (convert s " ")
i 0)
  (while
    (repeat (length n)
      (setq txt (nth i n))
      (command "text" (cdr (assoc 10 obj)) "0" txt)
      (setq i (1+ i)
    )
      )
    )
  (princ)
  )

---

------------------
Gruss Dirk

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

---

Ich denke wenn du den Text auf das erst Wort kürzt und dann Textbox darauf anwendest kannst du so die einfüge koordinaten für das 2te Wort herausfinden und dann wieder auf das 2te Wort Textbox um so die Werte für das 3te Wort usw usw.
 

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

Danke Wolfgang!

Ich konnte mir jetzt soweit helfen. Ich verstehe eigentlich gar nicht warum die Ursprungszeile gelöscht wird. Ich sage ja immer nur das ein Wort aus der Textzeile immer an das Vorgehende angesetzt werden soll.
übrig bleibt das letzte Wort, welches auf dem Textursprung liegt und eigentlich gelöscht werden kann.
Vielleicht kann das einer lösen

Code:

---

(defun c:strtrim (/
;;;   obj ; gewähltes Textobjekt
;;;   s ; Inhalt der Testzeile "1 2 3 4"
;;;   n ; umgewandelte Textzeile "1" "2" "3" "4"
;;;   txp ; Einfügepunkt vom Textobjekt
;;;   txw ; Das jeweilige Wort aus der Textzeile
;;;   txl ; die Länge des jeweiligen Wortes
  )
  (princ "\nTrimmt einen Text an den Leerzeichen")
  (defun convert ( str del / pos lst )
    (while (setq pos (vl-string-search del str))

      (setq lst (cons (substr str 1 pos) lst)
            str (substr str (+ pos 1 (strlen del)))
    )
      )
    (reverse (cons str lst))
    )
  (setq s (cdr (assoc 1 (setq obj (entget (car (entsel "\nWähle Text! "))))))
n (convert s " ")
txp (cdr (assoc 10 obj))
i 0)
  (while
    (repeat (length n)
      (setq txw (entmod (subst (cons 1 (nth i n)) (assoc 1 obj) obj)))
      (setq txl (caar (cdr (textbox (list (assoc 1 txw))))))
      (command "_text" txp "0" (cdr (assoc 1 txw)))
      (setq txp (polar txp 0 (+ txl 2.15)))
      (setq i (1+ i))
      )
    )
  (princ)
  )
 

---

------------------
Gruss Dirk

[Diese Nachricht wurde von cadplayer am 28. Mai. 2012 editiert.]

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

---

Zitat:

---

Ich verstehe eigentlich gar nicht warum die Ursprungszeile gelöscht wird. Ich sage ja immer nur das ein Wort aus der Textzeile immer an das Vorgehende angesetzt werden soll.

---

Nein

Code:

---

(setq txw (entmod (subst (cons 1 (nth i n)) (assoc 1 obj) obj)))

---

hier löschst du den gesamten text und erstzt ihn durch dein erstes Wort. Und hier

Code:

---

(command "_text" txp "2.5" "0" (cdr (assoc 1 txw)))

---

in der Zeile solltest du (fett Markiert) noch die Texthöhe eintragen oder aus dem vorherigen Text abfragen.

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

Hi Wofgang!

Normal zu deiner zweiten Zeile, wenn ich die so wie deine Vorgabe in die Befehlszeile kopiere funktioniert das. Jedoch nicht i der Schleife

(command "_text" "_s" txstyle txpoint txangle txwert)

will so auch nicht gehen, in welcher Reihenfolge müssen denn die Texteigenschaften stehen, kriegs irgendwie nicht hin.

------------------
Gruss Dirk

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

---

TextExplode.VLX.txt

Ich hätte da mal was zum testen ....

------------------
  - 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

---

Mache es doch mal Schitt für Schritt in der Befehlszeile und geb mal _text ein dann wirst du sehen das der Befehl text alles für angaben benötigt und in welcher Reihnefolge.

------------------
Gruß Wolfgang 

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden.  

[Diese Nachricht wurde von Meldin am 29. Mai. 2012 editiert.]

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

---

Zitat:

---

Original erstellt von cadplayer:
Hi Wofgang!

Normal zu deiner zweiten Zeile, wenn ich die so wie deine Vorgabe in die Befehlszeile kopiere funktioniert das. Jedoch nicht i der Schleife

(command "_text" "_s" txstyle txpoint txangle txwert)

will so auch nicht gehen, in welcher Reihenfolge müssen denn die Texteigenschaften stehen, kriegs irgendwie nicht hin.

---

Servus Dirk1

Parameter in COMMAND "_Text" sind abhängig vom Textstil (->Texthöhe 0 oder Vorgabe). Mach ' den Text halt mit ENTMAKE, dann mußt dich um den Stil nicht kümmern.

Ciao Georg

------------------
http://www.xxx-tausend.info

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

---

Servus Georg!

Ich bin gerade darauf gekommen, wenn ich mit command den Text erzeuge, dann muss ich vorher den command _style ausführen

Code:

---

(defun c:ttrim (/
  obj ; gewähltes Textobjekt
    s ; Inhalt der Testzeile "1 2 3 4"
    n ; umgewandelte Textzeile "1" "2" "3" "4"
                  txa ; Textwinkel
  txp ; Einfügepunkt vom Textobjekt
  txh ; Texthöhe
  txs ; Textstyle
  txw ; Das jeweilige Wort aus der Textzeile
  txl ; die Länge des jeweiligen Wortes
  )
  (princ "\nTrimmt einen Text an den Leerzeichen")
  (defun convert ( str del / pos lst )
    (while (setq pos (vl-string-search del str))

      (setq lst (cons (substr str 1 pos) lst)
            str (substr str (+ pos 1 (strlen del)))
    )
      )
    (reverse (cons str lst))
    )
  (setq s (cdr (assoc 1 (setq obj (entget (car (entsel "\nWähle Text! "))))))
n (convert s " ")
txa (* (cdr (assoc 50 obj)) (/ 180 pi))
txp (cdr (assoc 10 obj))
txs (cdr (assoc 7 obj))
txh (cdr (assoc 40 obj))
i 0
)
  (command "_style" txs "" txh "" txa "" "" "")
  (while
    (repeat (length n)
      (setq txw (entmod (subst (cons 1 (nth i n)) (assoc 1 obj) obj)))
      (setq txl (caar (cdr (setq tb (textbox (list (assoc 1 txw)))))))
      (command "_text" txp txa (cdr (assoc 1 txw)))
      (setq txp (polar txp (* txa (/ pi 180)) (+ txl (* txh 0.85544))))
      (setq i (1+ i))
      )
    (entdel (cdr (assoc -1 txw)))
    )
  (princ)
  )

---

 
Mit entmake wird alles erzeugt, dennoch
error: bad DXF group: (1)

Und die Leerzeichen werden nicht korrekt dargestellt (proportional zur Texthöhe mit Faktor 0.852)

Cadmium dein code funktioniert natürlich bestens - Danke, dennoch vielleicht sieht einer den Irrtum in meinem code

[CODE][
(defun c:ttrim (/
;;;   obj ; gewähltes Textobjekt
;;;     s ; Inhalt der Testzeile "1 2 3 4"
;;;     n ; umgewandelte Textzeile "1" "2" "3" "4"
;;;                  txa ; Textwinkel
;;;   txp ; Einfügepunkt vom Textobjekt
;;;   txh ; Texthöhe
;;;   txs ; Textstyle
;;;   txw ; Das jeweilige Wort aus der Textzeile
;;;   txl ; die Länge des jeweiligen Wortes
  )
  (princ "\nTrimmt einen Text an den Leerzeichen")
  (defun convert ( str del / pos lst )
    (while (setq pos (vl-string-search del str))

      (setq lst (cons (substr str 1 pos) lst)
            str (substr str (+ pos 1 (strlen del)))
    )
      )
    (reverse (cons str lst))
    )
  (setq s (cdr (assoc 1 (setq obj (entget (car (entsel "\nWähle Text! "))))))
n (convert s " ")
txa (* (cdr (assoc 50 obj)) (/ 180 pi))
txp (cdr (assoc 10 obj))
txs (cdr (assoc 7 obj))
txh (cdr (assoc 40 obj))
i 0
)
  (while
    (repeat (length n)
      (setq txw (entmod (subst (cons 1 (nth i n)) (assoc 1 obj) obj)))
      (setq txl (caar (cdr (setq tb (textbox (list (assoc 1 txw)))))))
      (entmake
(list '(0 . "TEXT")
      (cons 1 (cdr (assoc 1 txw)))
      (cons 7 txs)
      (cons 8 (getvar "clayer"))
      (cons 10 txp)
      (cons 40 txh)
      (cons 50 (* txa (/ pi 180)))
      )
)
      (setq txp (polar txp (* txa (/ pi 180)) (+ txl (* txh 0.852))))
      (setq i (1+ i))
      )
    (entdel (cdr (assoc -1 txw)))
    )
  (princ)
  )
 

/CODE]

------------------
Gruss Dirk

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

---

du solltest textbox die Entgetliste eines Linksbündigen, Textteils mit den nachfolgenden Leerzeichen übergeben um den Abstand des nachfolgenden Textteils zum  UrsprungsEinfügepunkt zu erhalten und dann den neuen Text auch als linksbündig erzeugen .. macht die Sache einfacher ( wenns ausreicht)

------------------
  - 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

---

Sorry Ich verstehs nicht. In der var n steht bsp. das: ("TOTAL" "YTA" "" ":" "6707" "m2")

Das Ausführen von (command "_text" txp txa "") führt zwangsläufig zum Abbruch, weil kein Leerzeichentext erzeugt werden kann. Mir fällt nix ein wie ich den Fall in meinen code einbauen kann ?

------------------
Gruss Dirk

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

---

damit ist dein Ansatz falsch .... du brauchst für die Einfügepunkte
was, was aus
"Text1  Text2 Text3    Text4"
für die Einfügepunktermitlung via Textbox
sowas
("Text1  " "Text2 " "Text3    " "Text4")
erzeugt und für die zu übergebenen Singletexte dann
wegenmeiner
("Text1" "Text2" "Text3" "Text4")
draus macht ... aber das ist Kosmetik

------------------
  - 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

---

Okay habŽs kappiert, muss mich wiedermal mit string-verarbeitung beschäftigen, krieg das nur nicht heute mehr gebacken.

------------------
Gruss Dirk

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

---

Für was brauchst das denn eigentlich?

Ciao Georg

------------------
http://www.xxx-tausend.info

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

---

Bei mir kommt es häuftig, dass ich Texte habe in denen Zahlenwerte stehe für Berechnungen oder Zeilen umgeschrieben werden müssen. Da lässt es sich gut machen die Zeilen zu zerlegen in ein Einzelworte bzw. wieder neu verbinden. Dann dachte ich mir, wäre es auch eine gute übung zum Thema Zeichenverarbeitung.

------------------
Gruss Dirk

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