---

Hallo

Ich suche eine Möglichkeit über ein Script eine Textdatei in ein Drawing einzufügen. Ist dies überhaupt möglich?

Gruß
Mutzi

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

---

Hallo Mutzi,
ich habe das so gelöst:

Textatei Zeilenweise auslesen und in Catia schreiben.

sFilename = "Deine_Textdatei.txt"
    F = FreeFile
    Open sFilename For Input As #F
    i = 0
    While Not EOF(F)
    i = i - 9 'Zeilenabstand
    Line Input #F, sLine
     
  Set DrawingText = DrwView.Texts.Add(sLine, 0, i)
    DrawingText.SetFontSize 0, 0, 5
    DrawingText.anchorPosition = catBottomLeft
   
     
  Wend

Gruß
Guido

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

---

Danke, das ist eine super Möglichkeit, nur noch zwei Fragen.
Wenn ich dein Script ausführe wird nur die erste Zeile der
Textdatei übertragen, wie kann ich alles einfügen?
Gibt es auch eine Möglichkeit die Datei als ganzen(als Symbol)
einzufügen?

Gruß
mutzi

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

---

Mojn Mutzi,
so kommts am Stück:

Sub CATMain()
Dim F As Integer
Dim sInhalt As String
  Set DrwDocument = CATIA.ActiveDocument
  Set DrwSheets = DrwDocument.Sheets
  Set DrwSheet = DrwSheets.ActiveSheet
  Set DrwView = DrwSheet.Views.ActiveView
sFilename = ("C:\ipc.log.0")
  F = FreeFile
    Open sFilename For Binary As #F
    sInhalt = Space$(LOF(F))
    Get #F, , sInhalt
    Close #F
    Set DrawingText = DrwView.Texts.Add(sInhalt, 20, 20)
    DrawingText.SetFontSize 0, 0, 5
    DrawingText.anchorPosition = catBottomLeft
End Sub

Gruß
Guido

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