---

Hallo

Habe hier ein Lisp das mir die Mtext-Elemente in Text-Elemente
umwandelt mit Befehl explode.
Aber wenn die Zeichnung z.Bsp. über 1000 Mtext-Elemente hat geht es zulange.

Hat Jemand ein Tipp??

Danke Nano

(DEFUN BAUMTXTURP()
(SETQ baublockmtxt (SSGET "_X"  '((0 . "MTEXT"))))
(IF (/= baublockmtxt nil)
(PROGN (SETQ baublockmtxt1 (sslength baublockmtxt) j 0 zaehler 1)
(PRINC "\n")
(PRINC (STRCAT "Anzahl MTEXT werden umgewandelt in TEXT: "(rtos baublockmtxt1 2 0)))(PRINC "\n")
(MUELLE)
(WHILE (< j baublockmtxt1)
(SETQ baublockmtxtelem (SSNAME baublockmtxt j))
(SETQ baubereich (CDR (ASSOC 410 (ENTGET baublockmtxtelem))))
(COMMAND "layout" "SE" baubereich)
(SETQ j (1+ j))
(vl-cmdf "_.explode" baublockmtxtelem)
;(MUELLE)
(SETQ zaehler (+ zaehler 1))
)
(SETQ baublockmtxt (SSGET "_X"  '((0 . "MTEXT"))))
(IF (/= baublockmtxt nil)(BAUMTXTURP))
))
)

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

---

Warum verwendest du nicht einfach die Schnellauswahl mit explode gemeinsam?

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Thomas wie geht das???

Nano

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

---

Einfach bei STRG+1 den Filterdialog (sieht aus wie ein Trichter) aufrufen - dort dann als Objekttyp MText auswählen und bei Operand einfach "Alle auswählen" wählen - danach noch bestätigen.

Schon hast du in deiner Auswahl alle MTexte - danch brauchst du nur noch auflösen ausführen; fertig.

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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