Messwerte in TXT-Datei schreiben (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co.

Schnell, effizient und günstig: Mit der Kisters 3DViewStation 3D Arbeits- und Reparaturanleitungen einfach erstellen und pflegen, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Messwerte in TXT-Datei schreiben (1435 mal gelesen)

Kon
Mitglied
Student

Schreiben Sie einen Gästebucheintrag für Kon

Beiträge: 39
Registriert: 16.03.2004

ProE-Wildfire 4 [M130]

erstellt am: 23. Mrz. 2004 17:16

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Error.jpg

Hallo,

ich habe ein Makro um Masse, Oberfläche und Volumen zu bestimmen. Die ermittelten Werte möchte ich nun in eine Text-Datei schreiben. Irgendwie klappt das aber nicht richtig. Ich bekommen immer eine Fehlermeldung wie auf dem Bild im Anhang. Anscheinend stimmt irgend etwas an der OPEN Anweisung nicht.

Das Makro sieht folgendermaßen aus:

Sub CATMain()

Set documents1 = CATIA.Documents

Set productDocument1 = documents1.Add("Product")

Set partDocument1 = documents1.Open("C:\<Pfad>\Part_Catia.CATPart")

Set part1 = partDocument1.Part

part1.Update

Set partDocument1 = CATIA.ActiveDocument

partDocument1.Save

Set partDocument1 = CATIA.ActiveDocument

' Volumen, Oberfläche und Masse messen

Set myproduct = CATIA.ActiveDocument.Product

Set myanalyze = myproduct.Analyze

vol = myanalyze.Volume

area = myanalyze.WetArea

mass = myanalyze.Mass

' Werte in Datei schreiben

Open ("C:\<Pfad>\Analysewerte.txt") For Output As #outdat

Print #outdat, "Volumen: "; vol

Print #outdat, "Oberfläche: "; area

Print #outdat, "Masse: "; mass

Close #outdat

partDocument1.Close

end sub

Wenn ich in Catia den VB-Editor starte und das Makro dort laufen lasse funktionierts.

Hat jemand eine Idee wo der Fehler liegen könnte?

Danke im Vorraus

[Diese Nachricht wurde von Kon am 23. Mrz. 2004 editiert.]

[Diese Nachricht wurde von Kon am 24. Mrz. 2004 editiert.]

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

EmilioSanchez
Mitglied

Senden Sie eine Private Message an EmilioSanchez

Schreiben Sie einen Gästebucheintrag für EmilioSanchez

Beiträge: 80
Registriert: 02.11.2003

Intel I7 4700MQQ
24GB
Win10 Pro 64-Bit
Catia V5 R19/R26/28/29/30/32

erstellt am: 25. Mrz. 2004 22:32

<-- editieren / zitieren -->

Unities abgeben:

Nur für Kon

Hallo Kon,

probiers doch mal mit TextStream (kopiert aus dem Hilfebeispiel toollist.catscript):

Dim aStream As TextStream

Dim FileName As String
FileName = "Assembly" & AssemblyNumber & ".html"

Set theHTMLFile = aFileSyst.CreateFile(HtmlFilesPath & FileName, True)
Set aStream = theHTMLFile.OpenAsTextStream("ForWriting")

'Debut de la page
WriteLine aStream, "<html>"
WriteLine aStream, "<head>"
WriteLine aStream, "<title>Assembly " & AssemblyNumber & " : " & AssemblyName & "</title>"
WriteLine aStream, "</head>"

C4N

Bernd

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

Kon
Mitglied
Student

Beiträge: 39
Registriert: 16.03.2004

erstellt am: 26. Mrz. 2004 12:24

<-- editieren / zitieren -->

Unities abgeben:

Danke für den Tip, ich habs noch etwas abgeändert und jetzt läufts.
MfG Kon

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)