---

MTEXT.dwg.txt

(defun c:Textexport ( / AUSWAHL FILE INDEX)
  (if (and(setq FILE(getfiled "TEXT-Export" "C:\\" "TXT" 1))
          (setq FILE(open FILE "w"))       
          (setq AUSWAHL (ssget "_x" '((0 . "*TEXT"))))
      )                 
    (progn
   
      (setq INDEX -1)
      (repeat (sslength AUSWAHL)
        (princ (cdr(assoc 1 (entget(ssname AUSWAHL(setq INDEX(1+ INDEX)))))) FILE)
        (princ "\n" FILE)
      )
      (close FILE)
    )
  )                 
)

Ich bekomme nicht den Kompletten Textinhalt exportiert, wenn bei einem MTEXT der Text in GC 3 und GC 1 steht.
Ich müsste also assoc 1 und assoc 3 auslesen. Kann mir jemand weiterhelfen?
Die Anlage verdeutlicht die 2 unterschiedlichen MTEXT'e

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

---

Via ActivX:

(defun c:Textexport ( / AUSWAHL FILE INDEX)
  (vl-load-com)
  (if (and(setq FILE(getfiled "TEXT-Export" "C:\\" "TXT" 1))
          (setq FILE(open FILE "w"))       
          (setq AUSWAHL (ssget "_x" '((0 . "*TEXT"))))
      )                 
    (progn
   
      (setq INDEX -1)
      (repeat (sslength AUSWAHL)
        (princ (vla-get-textstring(vlax-ename->vla-object(ssname AUSWAHL(setq INDEX(1+ INDEX)))))FILE)         
        (princ "\n" FILE)
      )
      (close FILE)
    )
  )                 
)

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

---

Besten Dank!

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