---

hallo,

ist es möglich den kompletten dtext und mtext in ein textfile bzw. excel file zu exportieren

grüße
sleepi

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

---

ja

Grüße Holger

Etwas konkreter solltest du schon werden.
Vielleicht hilft dir aber das schon:

Code:

---

(defun c:Text->Excel (/ aws xls-file)
  (setq aws (ssget "_X" '((0 . "*TEXT")(8 . "LAYERNAME")))
xls-file (open "c:\\KreisMPT.xls" "w"))
  (mapcar '(lambda (C / PT)
    (princ (cdr(assoc 1 C)) xls-file)
    (princ "\n" xls-file)
    )
  (if aws (mapcar 'entget(bau_elemli aws)))
  )
  (close xls-file)
  )
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli (cons (ssname asatz n) elemli)
  n      (1+ n)
  ) ;_ end of setq
    ) ;_ end of repeat
  elemli
  )

---

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

auch noch ein Vorschlag,

Ja die lieben 'MTexte' machen einem hier das Leben schwer,
habs mal der einfachheit halber simply in ne txt geschrieben, mit nem $ als Trenner,
muss man dann halt unter Excel in Zeilenumbrüche ersetzen oder Daten > Text in Spalten
especially für MTexte freilich ;-)
Alle andren Formatierungen ebenso aussen vor, das wird sonst bissel heftiger [isMirSchlecht;-)] ...

lg Nancy

Code:

---

Sub xx()
Dim i&, s$, arr
With ThisDrawing.ModelSpace
  Open "d:\textit.txt" For Output As #1
  For i = 0 To .Count - 1
    If TypeOf .Item(i) Is AcadMText Then
        arr = Split(.Item(i).TextString, "\P")
        s = Join(arr, "$")
        Print #1, s
      ElseIf TypeOf .Item(i) Is AcadText Then
        Print #1, .Item(i).TextString
      End If
  Next
  Close #1
End With
End Sub

---

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

---

hallo,

vielen dank für eure möglichkeiten

bei der lsp variante ... ist die excel unter c: leer
muß man da auf etwas bestimmtes achten?

die makro variante habe ich eingefügt und auf ausführen geclickt
was genau sollte dan passieren?

grüße
sleepi

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

---

Hallo Sleepi,

hast du den für dich relevanten LAYERNAME eingetragen?

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

hallo,

achso funktioniert das ... jetzt wo du es sagst ist es mir klar

frage ... wie kann man alle layer nehmen oder mehr layer

Layer trennen mit Beistrich bzw. "*" für alle

grüße
sleepi

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

---

Hallo Sleepi,

du kannst anstelle des LAYERNAME auch mit Wildcards arbeiten. Verschiedene Muster werden durch , (Komma) getrennt.
Bsp:
"*"; alle Layer
"#*"; alle Layer, die mit einer Zahl beginnen
"#*,@#*"; Alle Layer, die mit einer Zahl oder einem Buchstaben und einer Zahl beginnen.
Schau mal in der Lisp-Hilfe unter dem Stichwort wcmatch.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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