---

Hallo,

ich möchte in einem Block (Schriftfeld) einen rtext in Mtext wandeln.
Der Blockname ist immer gleich (Title) auch der rtext-Inhalt ist immer gleich ($getvar ctab).
Mit Hilfe der Suche konnte ich das innerhalb der Zeichnung umsetzen mit:
(command "_explode" (ssget "_x" '((0 . "RTEXT")(1 . "$(getvar,ctab)"))) "")

das kommt dem Problem nahe, allerdings konnte ich auch mit der Hilfe nicht umsetzen wie der Block angesprochen wird.
Vermute daß das mit (ssget "x" '((2 . "Title")) ) geht.

Kann mir wer helfen den Rtext im Block zu bearbeiten?

Gruß
Peter

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

---

hmm, was möchtest du denn nun wirklich ?
In deiner Ausführung und Beschreibung mit den Lispzeilen
deutet rein garnichts auf einen Block hin, oder
war das nur der Text wie man einen RText zu einem MText
in einer DWG "wandelt" ?

Bitte erkläre das mal ausführlich IST-->SOLL .

Wenn du in DWG´s eine Blockreferenz hast "Title" und der
Block "Title" immer der gleiche ist so würde ich dir
eher mal einen Nicht-Lisp-Variante empfehlen, es sei denn
du hast besonderes Interesse an dem Lisp-Weg.
(nur so einfach wie "explode meinen RText" wird es nicht,
sie auch jüngstes Thema "Schraffur filtrieren in Blöcke",
nur das dein Thema wohl noch aufwendiger wäre.)

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

---

der RText, den du auflösen willst befindet sich ersteinmal in Blockreferenzen, diese leiten sich von der einen Blockdefinition aus der Blocktabelle ab 
um alle Blockreferenzen aufzulösen, nimmst du DIESES

Code:

---

(if (setq AUSWAHL(ssget "_x" (list '(0 . "INSERT")(2 . "NAME")(cons 410 (getvar "CTAB"))))) 
(repeat(sslength AUSWAHL)
  (command "_explode" (ssname AUSWAHL 0))
  (ssdel (ssname AUSWAHL 0) AUSWAHL)
  ) 
)

---

hier.

Alle Blockreferenzen zerfallen in ihre Einzelteile.
Dann brauchst du was um die RTexte aufzulösen

Code:

---

(if (setq AUSWAHL(ssget "_x" (list '(0 . "RTEXT")(cons 410 (getvar "CTAB"))))) 
(repeat(sslength AUSWAHL)
  (command "_explode" (ssname AUSWAHL 0))
  (ssdel (ssname AUSWAHL 0) AUSWAHL)
  ) 
)

---

Das wars dann

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo,
danke, daß Ihr euch reingedacht habt.

@cadffm

ich möchte automatisierbar den Rtext im Block exploden ohne die Werte im Schriftfeld zu verlieren. Als Ergebnis soll das Schriftfeld auch auf Nicht-ET-Systemen die ursprünglichen Rtext-Inhalte darstellen können.

IST:
Schriftfeld (Blockname=TITLE) mit

-Werten in den Attributen
-Rtext mit $(getvar,ctab)

Soll:
Schriftfeld (Blockname=TITLE) mit

-Werten in den Attributen gleich wie IST
-Mtext mit Layoutname aus dem Rtext

Lisp-Weg ist nicht notwendig, war mein erster Gedanke das zu automatisieren, weil Ich das "RText2Mtext" über ein paar Zeichnungen
laufen lassen möchte.

Welche Nicht-Lisp-Variante könntest Du mir empfehlen? (c)

Von Hand kriege ich das gewünschte Ergebniss so hin:
1.Title kopieren, 2.Title ursprungen, 3.Rtext ursprungen, den geursprungte Objekthaufen mit 4.Block wieder als Title neudefinieren mit Objekte löschen. 

@CADwiesel

wenn ich Deinen Code richtig verstehe ist nach dessen Ausführung der Block und der Rtext aufgelöst, ich möchte jedoch den Block mit den Werten erhalten.
Ist es möglich (a) den Rtext im Block zu exploden oder (b) muß zum exploden des Rtextes auch der Block aufgelöst werden?
Mit Block-auflösen (b) habe ich das wie oben beschrieben von Hand gelöst, diese meine Lösung bekomme ich aber automatisiert nur für Schritt 2 und 3 hin mit:

Code:

---

(setq Auswahl (ssget "_X" '((0 . "INSERT") ( 2 . "TITLE")))) ; finded alle Blöcke namens TITLE
(if Auswahl (command "_explode" (ssname AUSWAHL 0))) ; 2. ursprungt diese Blöcke
(command "_explode" (ssget "_x" '((0 . "RTEXT")(1 . "$(getvar,ctab)"))) "") ; 3. ursprungt den Rtext

---

gibt es einen verhältnissmäßigen Lösungsweg für (a), (b) oder (c)?

Gruß
Peter

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