---

Kennt jemand eine Routine, die aus einer Zeichnung alle

- Texte
- MTexte
- Attributinhalte

in eine Datei schreibt?

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Also ich nicht, aber wo ist das Problem, sich solche zu schreiben ? Hattest du nicht auch schon rumgelispelt?

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

---

Zitat:

---

Original erstellt von Wolli1:
...wofür man so etwas benötigt....

---

Die Idee ist, durch gesammelte Worte einen Überblick über Terminologie und Rechtschreibung zu bekommen - in Fachbegriffen, die man mit der Rechtschreibung schwer in den Griff kriegt.

Z.B.
Thermometeranschluss
Thermometeranschluß
Thermometer-Anschlussbuchse

Wenn man das in einer Liste hat, muss man die durchschauen, vereinheitlichen - und dann in den Zeichnungen anpassen.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Zitat:

---

Original erstellt von Wolli1:
Hallo Peter
An der Geschichte würde mich mal Interessieren wofür man so etwas benötigt.
Das Ergebnis sieht für mich eher nach Chaos aus .
Gruss Wolfgang

---

Kann z.B. sinnvoll sein, wenn man sich diese Texte übersetzen lassen will. Übersetzungsbüros arbeiten in der Regel nicht mit AutoCAD 

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

---

Zitat:

---

Original erstellt von Wolli1:
...Da sehe ich nicht viel Terminologie und Rechtschreibungsergebisse ...

---

Die sehe ich hier auch nicht   

Natürlich muss man nacharbeiten - Zahlen weg, Satzzeichen weg usw. Dann nimmt das langsam Formen an.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Hallo Peter,

im SystemInfo steht bei Dir nur AutoCAD 2002 und 2006.
Solltet Ihr auch 2008 haben könntest Du über die Datenextraktion diese Liste erstellen (für was immer sie auch gebraucht wird).
Als Feature bekommst Du auch schon angezeigt wie oft ein Text in der Zeichnung vorhanden ist.

Grüße,
Klaus

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

---

Zitat:

---

Original erstellt von KlaK:
...Solltet Ihr auch 2008 haben ...

---

Nein, noch nicht.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Hi Peter,
also mach's doch so:
1. alle attribute mit burst in dtexte umwandeln.
2. alle mtexte mit explode in dtexte umwandeln.
3. mit

Code:

---

(setq z -1 s (ssget "_X" '((0 . "TEXT"))))
(setq d (open "c:/out.txt" "w"))
(while (setq e (ssname s (setq z (1+ z))))
  (princ (cdr (assoc 1 (entget e))) d) (princ "\n" d)
)
(close d)

---

die dtexte in Datei schreiben.

Grüsse, Henning

[EDIT] Ist natürlich alles QAD [/EDIT]
------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 26. Mai. 2008 editiert.]

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

---

Danke - für eine längere Stellungnahme bitte etwas Geduld. Ich bin seit gestern außer Betrieb ...

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Ich habe den Code etwas formell ausgebaut (if-Abfragen für nil; Kommentare, Dateiausgabe) und per Lisp-Editor formatiert. Schaut nun so aus:

Code:

---

(defun c:TxTCatcher (/   Textinh vla-object
    Text-Liste   Teil Auswahl-ss
    Zähler2   VLA-Object-Name
    )
  (defun TXT-Lister (/)
    (if (member (setq Textinh (vla-get-TextString vla-object))
Text-Liste
)
      ()
      (setq Text-Liste (cons Textinh Text-Liste))
    )
  )

  (defun CatchBlock (/)
    (foreach Teil
    (mapcar
      'vla-get-TextString
      (safearray-value
(vlax-variant-value (vla-GetAttributes vla-object))
      )
    )
      (if (member Teil Text-Liste)
()
(setq Text-Liste (cons Teil Text-Liste))
      )
    )
  )

  (setq Auswahl-ss
(ssget "X"
'((-4 . "<OR")
  (0 . "INSERT")
  (0 . "TEXT")
  (0 . "MTEXT")
  (-4 . "OR>")
)
)
  )
  (setq Zähler2 0)
  (if auswahl-ss
    (progn
      (repeat (sslength Auswahl-ss)
(setq VLA-Object-Name
      (vla-get-ObjectName
(setq vla-object
(vlax-ename->vla-object
  (ssname Auswahl-ss Zähler2)
)
)
      )
)
(cond ((or (= VLA-Object-Name "AcDbText")
  (= VLA-Object-Name "AcDbMText")
      )
      (TXT-Lister)
      )
      ((= VLA-Object-Name "AcDbBlockReference") (CatchBlock))
      (t nil)
)
(setq Zähler2 (1+ Zähler2))
      )
      (setq text-liste (acad_strlsort text-liste))
      (princ
"\nAusgabe der sortierten, wiederholungsfreien Textliste:\n----------------------\n"
      )
      (princ Text-Liste)
      (princ (strcat "\n----------------------\nEs wurden "
    (rtos (length text-liste))
    " unterschiedliche Einträge ermittelt."
    )
      )
    )
    (progn
      (setq text-liste
    (cons
      "Meldung des Programms: Keine Texteinträge gefunden."
      text-liste
    )
      )
      (princ "\nEs wurden keine Einträge ermittelt.")
    )
  )
  (if (not (findfile "d:\\textausgabe"))
    (progn
      (vl-mkdir (strcat "d:\\textausgabe\\"))
      (princ "\nVerzeichnis d:\\textausgabe wurde erzeugt.")
    )
  )
  (setq prot (open (strcat "d:\\textausgabe\\"
  (vl-filename-base (getvar "dwgname"))
  "-texte.txt"
  )
  "a"
    )
  )
  (princ (strcat "Sortierte, wiederholungsfreie Textausgabe vom "
(rtos (getvar "cdate") 2 6)
"\n"
)
prot
  )
  (foreach wert text-liste
    (princ (strcat wert "\n") prot)
  )
  (princ "Ende dieses Durchlaufs.\n" prot)
  (close prot)
  (princ "\nProgramm zur Textausgabe abgeschlossen.")
  (princ)
)
(princ)

---

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Zitat:

---

Original erstellt von Wolli1:
Die frage ist wohl nicht wie es aussieht die frage ist ob es dir hilft!

---

Ja - auf jeden Fall. Besten Dank.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Statt

Code:

---

(ssget "X"
'((-4 . "<OR")
  (0 . "INSERT")
  (0 . "TEXT")
  (0 . "MTEXT")
  (-4 . "OR>")
)
)

---

ginge auch
(ssget "X" '((0 . "INSERT,TEXT,MTEXT"))) 

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

Randbemerkung:
Ein Tool sollte rel. allgemein einsetzbar sein.

.. Minserts und Texte in Blöcken werden noch nicht berücksichtigt .... bei Mtexten würden mich evtl. Formatierungen stören usw ...

aber wenn es für den speziellen Fall ausreicht und hilft ...

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