|
CATIA V5 Programmierung : Konvertieren in VBA
sawah am 30.08.2011 um 08:37 Uhr (0)
Guten morgen zusammen,ich habe ein Code zum messen von Koordinaten, man kann das Koordinatensystem beliebig auswählen, leider ist das mit VBscript geschrieben, da meine Kenntnis net soweit sind, wollte ich fragen ob mir jemand helfen kann das in VBA zu konvertieren ??Code:oEingabe = "C: mp"oEingabe = InputBox("Bitte den Dateipfad angeben:", "Eingabe Dateipfad", oEingabe)cDateiPfad = oEingabeoEingabe = "Punktkoordinaten.csv"oEingabe = InputBox("Bitte den Dateinamen angeben:", "Eingabe Dateiname", oEingabe) ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Hilfe bei Parent einer Skizze
bgrittmann am 02.09.2011 um 18:35 Uhr (0)
ServusDeine Datei kann ich nicht öffnen (bitte umbenennen oder zippen)Versuch es mal mit:msgbox(sketch1.Parent.Name) (Dann sollte "Sketches" kommen)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion umbennen
meisterlumpi am 17.08.2011 um 10:29 Uhr (0)
generell sollte man für neue projekte auch immer ein neues VBA projekt anlegen. So startet man auch wieder mit den standard einstellungen und übernimmt nicht die vom vorherigen projekt, wo man nur die module gelöscht hat. (weil du ja auch nicht unbedingt weißt was der ersteller des Projekts so alles geändert hat und was davon deinen code "behindern" wird)neues projekt erstellst du in CATIA - ALT + F8 - Makrobibliotheken - BibTyp auf VBA-Projekte stellen - Neue Bib erzeugenüber Vorhandene Bib hinzufügen kan ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CNEXT mit Makro starten, Return Code ändern?
meisterlumpi am 05.09.2011 um 17:56 Uhr (0)
Halloist ne interessante frage. bin kein programmierer, daher lasse ich mich gern eines besseren belehren, doch ich behaupte mal den return code, bzw. das errorlevel des programms kann man nicht einfach ändern wenn man keinen zugang zum quelltext hat.die idee war jetzt eine neue umgebungsvariable vorm catia start anzulegen mitSETX CAT_ERROR "false"z.b. und diese beim auftreten eines fehlers im skript auf true zu setzten, so dass man sie nachdem schließen von catia wieder auslesen kann. das funktioniert all ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : txt-file (Zeile bestimmen)
meisterlumpi am 06.09.2011 um 09:02 Uhr (0)
HimitCode:Datei.OpenAsTextStream(ForAppending)kannst du den text an die bestehende datei anhängen ohne sie zu überschreiben. direkt in eine bestimmte zeile zu schreiben ohne den text vorher zu löschen wird schwierig und viel fummelei. http://www.virtualsplat.com/tips/visual-basic-fso.asp wenns nicht unbedingt eine .txt sein muss würde ich dir vorschlagen eine ini-datei zu benutzen. siehe http://www.vbarchiv.net/workshop/workshop_21-ini-dateien-bearbeiten-und-verwalten.html gruß
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : txt-file (Zeile bestimmen)
newmann am 06.09.2011 um 08:31 Uhr (0)
Hi,habe ein kleines Problem und hoffe das mir jemand weiterhelfen kann. Ich möchte Informationen (Pfad, Position, etc.) welche ich vorher ermittelt habe in eine txt-file schreiben, da ich diese Datei für mehrere Informationen nutze möchte ich die Zeile im txt-file bestimmen wo die Information hingeschrieben werden sollen (nicht immer am Anfang). weiß jemand wie ich dies mache??Zum Verständnis mein bsheriger Code:path = CATIA.SystemService.Environ("CATUSERSETTINGPATH") File = "Daten.txt" Bez = path & "" & ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : txt-file (Zeile bestimmen)
newmann am 06.09.2011 um 09:56 Uhr (0)
Hallo,Danke erstmal, ist aber nicht so ganz das was ich benötige :-(mit dem "Appending-Code" hänge ich an den bestehenden Code nur an. Leider aber wird immer angehängt, wenn z. B. in der 2.Zeile bereits etwas steht dann möchte ich den Text in der 2. Zeile überschreiben (ohne den Text in der 1. Zeile zu ändern und umgekehrt)und nicht als 3.Zeile dran hängen. Schließlich möchte ich später auch genau die Information aus der 2. Zeile auslesen.mit der ini-Datei kenne ich mich nicht so aus muß mich da erst "rein ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : txt-file (Zeile bestimmen)
meisterlumpi am 06.09.2011 um 10:12 Uhr (0)
Zitat:wenn z. B. in der 2.Zeile bereits etwas steht dann möchte ich den Text in der 2. Zeile überschreiben (ohne den Text in der 1. Zeile zu ändern und umgekehrt)und nicht als 3.Zeile dran hängendann müsstest du vor jedem schreiben einer zeile die komplette text-datei erstmal auslesen in einen string. dann den string an den "neuen Zeilen" splitten so dass du ein array erhälst mit den einzelnen zeilen als komponenten.array1 = split(string1, vbCrLf)oder sowas in der richtung.dann kannst du deine Zeile im ar ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : txt-file (Zeile bestimmen)
meisterlumpi am 06.09.2011 um 10:33 Uhr (0)
kurz zu den inisin einer ini gibt es Sections, Keys und Values. Eine Section kann beliebig viele Keys beinhalten, denen man Values, also Werte zuordnen kann.Section1Key1=Value1Key2=Value2...Section2...folgendes modul kannst du dir in dein vba projekt kopierenCode: DLL-Funktionen zum LESEN der INI deklarieren Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _ ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As Strin ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : txt-file (Zeile bestimmen)
newmann am 06.09.2011 um 13:11 Uhr (0)
Hallo,also mit der "ini-Datei" kenne ich mich nicht so aus habe daher deinen Code genommen den "stumpf" kopiert um den Test durchlaufen zulassen und bin gleich auf einen Fehler gelaufen ( Zeile:Call M_RW_INI.WriteValue("MeineSektion", "MeinKey", "MeinWert", PathToINIFile).Wollte daher die Variante mit dem Array ausprobieren und bekomme die Zweite Zeile nicht ausgelesen.Habe einen txt-File (z. b. mit 2.Zeilen)1.Zeile: Test;100;250;Basis;2.Zeile: Test;150;230; High;";" soll die Trennung für den späteren Spli ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : txt-file (Zeile bestimmen)
meisterlumpi am 06.09.2011 um 13:33 Uhr (0)
die zeile Code:PathToINIFile = "C: est.ini"musst du natürlich anpassen. falls du die datei C: est.ini nicht anlegen darfst (weil du keine schreibrechte auf C: hast z.b.), dann wirds nicht funktionieren. das skript überprüft weder, ob man schreibrechte hat, noch ob die ini wirklich existiert (beim auslesen eines wertes).eine fertige funktion zum auslesen bestimmter zeilen findest du hier http://www.vbarchiv.net/tipps/tipp_970-bestimmte-zeile-aus-einer-textdatei-auslesen.ht ml du könntest bei dir mal versuch ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : txt-file (Zeile bestimmen)
newmann am 07.09.2011 um 08:27 Uhr (0)
Hallo,die Variante mit dem ersetzen von "line" in "All" hat nicht geklappt.Die g. Funktion ist super durchgelaufen (zeigt genau das was ich möchte) ich bekomme aber eine Fehlermeldung (objekt dequired) nach Ende des Funktionsdurchlaufes und Rückgabe an die "txtLine.Text" muß ich hier vorab erst eine Deklarierung durchführen??Das mit der ini-Datei habe ich erstmal verdrängt (zu wenig Einblick wie das genau funktioniert).Es scheint ja auch so als wenn das mit der Funktion fast klappen würde, daher würde ich ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : txt-file (Zeile bestimmen)
meisterlumpi am 07.09.2011 um 15:44 Uhr (0)
Das Element txtLine musst du abändern. Mach dir einfach ne string variable und schreib die auszulesende Zeile da rein. Pfad anpassen nicht vergessen.GrußCode:Sub test() Dim Zeile as string Zeile = ReadLine("C:.........sample.txt", 1) - PFAD ANPASSEN MsgBox ZeileEnd Sub Bestimmte Zeile aus einer Textdatei lesenPublic Function ReadLine(ByVal sFile As String, _ Optional ByVal nLine As Long = 1) As String Dim sLines() As String Dim oFSO As Object Dim oFile As Object Fehlerbehandlung aktivieren On Error ...
|
| In das Form CATIA V5 Programmierung wechseln |
