Autor
|
Thema: Textdatei in Drawing einfügen (1577 mal gelesen)
|
mutzi Mitglied Student
Beiträge: 27 Registriert: 24.02.2005
|
erstellt am: 03. Mai. 2005 13:50 <-- editieren / zitieren --> Unities abgeben:
|
hagengu Mitglied Konstrukteur
Beiträge: 108 Registriert: 28.07.2003 V5R20SP5 Win7-64 SP1 HP XW8400 4GB Ram Nvidia Quadro FX3500
|
erstellt am: 03. Mai. 2005 14:50 <-- editieren / zitieren --> Unities abgeben: Nur für mutzi
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 |
mutzi Mitglied Student
Beiträge: 27 Registriert: 24.02.2005
|
erstellt am: 03. Mai. 2005 15:22 <-- editieren / zitieren --> Unities abgeben:
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 |
hagengu Mitglied Konstrukteur
Beiträge: 108 Registriert: 28.07.2003 V5R20SP5 Win7-64 SP1 HP XW8400 4GB Ram Nvidia Quadro FX3500
|
erstellt am: 04. Mai. 2005 08:00 <-- editieren / zitieren --> Unities abgeben: Nur für mutzi
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 |