|
CATIA V5 Programmierung : Ergebnisse in Textdatei übertragen
HarleKinX am 02.03.2011 um 09:40 Uhr (0)
Muss ich irgendwie die Shell funktion anders auslegen?Wenn ich das so auf ein Button lege, bekomme ich nur eine Fehlermeldung und die Zeile Const DATEI = saveInBox.Text + Textname + ".txt"wird als Fehler angezeigt.Quelltext:Private Sub CommandButton22_Click()Const DATEI = saveInBox.Text + Textname + ".txt"Dim TaskId As DoubleTaskId = Shell("notepad.exe " & DATEI, vbMaximizedFocus)If TaskId = 0 Then MsgBox "Konnte notepad nicht starten"End Sub------------------Grüße aus KöthenHarleKinX
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ergebnisse in Textdatei übertragen
HarleKinX am 01.03.2011 um 22:36 Uhr (0)
Hey,also habe folgende Datie erstellt:Anlegen einer TextdateiSet fs = CreateObject("Scripting.FileSystemObject")Set A = fs.CreateTextFile(saveInBox.Text + Textname + ".txt", True)A.writeLine "_______________Übersicht der Ergebnisse für die Gelenkverbindung________________"A.writeLineA.writeLineA.writeLine " Eingabewerte:"A.writeLineA.writeLine " " + Label1.Caption + ": " + ComboBox1.ValueA.writeLineA.writeLine " " + Label25.Caption + ": " + ComboBox6.ValueA.CloseNun erstellt er ja die Datei. Diese find ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ergebnisse in Textdatei übertragen
HarleKinX am 01.03.2011 um 13:55 Uhr (0)
Prüfen? Oh ich glaube ich sehe grad komplett was falsch.Ich möchte einfach nur die Datei öffnen die ich nun angelegt habe.------------------Grüße aus KöthenHarleKinX
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ergebnisse in Textdatei übertragen
HarleKinX am 01.03.2011 um 13:41 Uhr (0)
Ja genau das hat gefehlt, nun meckert er aber das End if an.Habe mal das Öffnen der Datei auf ein Extra Button gelegt:For Each datei In ordner.FilesIf InStr(datei.Name, "Ergebnisse") 0 ThenSet mydatei = CATIA.FileSystem.CreateFile(saveInBox.Text + "Ergebnisse.txt", True)MsgBox mydatei.NameSet t = mydatei.OpenAsTextStream("ForReading")Exit ForEnd IfNextWie muss ich die Zeile mit For Each datei In deklarieren bzw erfassen, damit das Programm den genauen Pfad hat?
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ergebnisse in Textdatei übertragen
HarleKinX am 01.03.2011 um 13:30 Uhr (0)
Ok,nun hab ich das Problem, das er alles macht, nur nich die Datei direkt gleich öffnet.habe das versuchtIf instr(datei.name , "Auslesedatei") 0 thenSet mydatei = CATIA.FileSystem.CreateFile(saveInBox.Text + "Ergebnisse.txt", True)msgbox mydatei.nameSet t = mydatei.OpenAsTextStream("ForReading")Exit Forend ifNextund dann meckert er immer die Zeile "Exit for" an. Hab ich da komplett was falsch?
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ergebnisse in Textdatei übertragen
HarleKinX am 01.03.2011 um 12:54 Uhr (0)
Hey,blicke da irgendwie nicht durch.Habe jetzt den Befehl für eine Textdatei erstellen:Open saveInBox.Text + "Ergebnisse.txt" For Output As #1 Datei zur Ausgabe öffnen.Print #1, "Nur ein Test" Text in Datei schreiben.Close #1 Datei schließen.Wie schaffe ich jetzt aber die genauen ergebnisse dort hineinzubringen?Grüße
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Makro Aufzeichnung
HarleKinX am 27.02.2011 um 20:16 Uhr (0)
Hey ho,ich glaube durch die vielen unterschiedlichen Antworten ist bei einigen auch der PFaden verloren gegangen.Aufgabe des Beleges:Eine in VBA programmierte Belegarbeit, die zum einen Festigkeitsnachweise einer Gelenkverbindung mit variablen Parametern ausrechnet und demnach dann diese Gelenkverbindung (bestehend aus Bolzen, Gabel, Stange, Buchse oder Stift) konstruiert bzw dann als Product im CATIA V5 aufruft. Ich habe mit CATIA V5 R19. VBA Version 6.5. Hochschulrechner sind auf den modernsten Standard, ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Makro Aufzeichnung
HarleKinX am 25.02.2011 um 12:29 Uhr (0)
Wir haben Makroprogrammierung an der Uni.Und wenn wir das ganz simpel runterrechnen, dann muss es gehen.Unser Professor, hat uns ein kleines Bauteil aufzeichnen lassen. Dann eine Userform erstellen lassen und den Quelltext in einem Button eingefügt. Das Bauteil wurde gebaut. Unser Beleg besteht nun darin mehrere bauteile zu konstruieren und über eine Userform halt ausrechnen und konstruieren zu lassen. Also das einfach die Bauteile dann aufgerufen werden. Die einzelnen Längen kann man ja mit Variabeln vers ...
|
| In das Form CATIA V5 Programmierung wechseln |
