---

Hallo

ich komme zwar aus der Inventor Welt aber ich denke mal ich bin auch hier willkommen.
Ich bin gerade dabei ein "altes" Programm durch ACADM zu ersetzen.
Die Abteilung (Hydraulik) ist offen für diesen Wechsel, hat
jedoch einen Wunsch.
Hat kemand eine Funktion um von einem benannten Layer (genaugenommen 2
Name X und Y) die Texte in eine TXT oder CSV Datei zu schreiben.

Als zweite Frage habe ich noch hat jemand von euch eine Applikation im Einsatz, welche die Hydraulik spezifisch unterstützt und wenn ja wie sind seine Erfahrungen damit.

Danke für eure Hilfe

------------------

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

---

Hallo Frank,

Natürlich bist du auch hier willkommen.

Hier findest du unter Sonstiges, Layer das Programm LADOC. Damit kannst du den Layerstand in eine Textdatei abspeichern.
Ist das so etwas, das du suchst?!

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 29. Apr. 2006 editiert.]

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

---

Eventuell ist dieses Tool was für dich. Es exportiert selektierte Texte in eine TXT-Datei.
http://new.cadalyst.com/code/tips/CodeSearch_Detail.cfm?ID=1730

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

Thomas

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

---

Erst einmal Danke für die Antworten (ja wer mit der DIVA tanzt ist höflich  )
Aber es geht eigentlich nur nur darum.
Benutzer lädt eine Zeichnung und mittels einer Funktion
werden alle Texte die auf den Layer (Name X und Y) in eine TXT oder CSV Datei geschrieben.

------------------

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

---

Hallo Frank,

Probiers mal hiermit:

Sub Extract_Text()
  Dim sstext As AcadSelectionSet 'Variable für Auswahlsatz anlegen
  Dim FilterType(9) As Integer 'Variable für Filterliste (Typ)
  Dim FilterData(9) As Variant 'Variable für Filterliste (Daten)
  Dim fs As Object 'Variable für FileSystemObject
  Dim a As Object 'Variable für Datei
  Dim Object As Object 'Variable für vorhandene Textstrings
On Error Resume Next
  ThisDrawing.SelectionSets.Item("SS2").Delete 'Auswahlsatz, wenn vorhanden löschen
  Set sstext = ThisDrawing.SelectionSets.Add("SS2") 'Auswahlsatz anlegen
  FilterType(0) = -4          '* Verknüpfung und / Anfang - Zusammensetzen der beiden Auswahlkriterien
  FilterData(0) = "<And"      '*
  FilterType(1) = -4          '**Verknüpfung oder / Anfang
  FilterData(1) = "<or"        '**
  FilterType(2) = 0            '**
  FilterData(2) = "TEXT"      '**Textobject
  FilterType(3) = 0            '**
  FilterData(3) = "MTEXT"      '**Mtextobject
  FilterType(4) = -4          '**
  FilterData(4) = "or>"        '**Verknüpfung oder / Ende
 
  FilterType(5) = -4          '**Verknüpfung oder / Anfang
  FilterData(5) = "<or"        '**
  FilterType(6) = 8            '**
  FilterData(6) = "Layer1"    '**Layername1
  FilterType(7) = 8            '**
  FilterData(7) = "Layer2"    '**Layername2
  FilterType(8) = -4          '**
  FilterData(8) = "or>"        '**Verknüpfung oder / Ende
  FilterType(9) = -4          '*
  FilterData(9) = "And>"      '*Verknüpfung und / Ende
 
sstext.Select acSelectionSetAll, , , FilterType, FilterData 'Auswahlsatz über ganze Zeichnung mit Filterkriterien

Set fs = CreateObject("Scripting.FileSystemObject") 'FileSystemObject erstellen
Set a = fs.CreateTextFile("c:\testfile.txt", True) 'Datei anlegen

For Each Object In sstext 'Alle gefundenen Texte und Mtexte durchlaufen
    a.WriteLine (Object.textString) 'Textstring der gefundenen Objecte in die Datei schreiben
Next

a.Close 'Datei schließen
End Sub

Gruß, Carsten

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

---

Sorry für die späte Antwort

hat klasse Funktioniert

------------------

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