Hi,
vielleicht hilft Dir folgendes Makro weiter. Da CATScript keine Möglichkeit bietet, den Inhalt einer Betriebssystemvariablen zu setzen, kann ich mir nur als Lösung ein Batch-Programm vorstellen, das diese Aufgabe übernimmt.
Sub CATMain()
' ----------------------------------------------------------------
' Variable definieren --------------------------------------------
' Inhalt der CATIA-Umgebungsvariablen lesen ----------------------
' Buch "Effiziente Konstruktion mit Makros", S. 58 f. ------------
' ----------------------------------------------------------------
Dim MeineVariable, Inhalt
MeineVariable = "Ort"
Inhalt = CATIA.SystemService.Environ (MeineVariable)
' -------------------------------------------------------------
' Batch-Datei erzeugen ----------------------------------------
' Buch "Effiziente Konstruktion mit Makros", S. 54 ff. --------
' -------------------------------------------------------------
Dim Datei As File
Dim TS As TextStream
Set Datei = CATIA.FileSystem.CreateFile ("C:\Temp\ort_setzen.bat", true)
Set TS = Datei.OpenAsTextStream ("ForWriting")
TS.Write "set " & MeineVariable & "=" & Inhalt
TS.Close
' --------------------------------------------------------------
' Batch ausführen ----------------------------------------------
' Buch "Effiziente Konstruktion mit Makros", S. 56 f. ----------
' --------------------------------------------------------------
CATIA.SystemService.ExecuteProcessus "C:\Temp\ort_setzen.bat"
' --------------------------------------------------------------
' Die Variable ist allerdings unter Windows 2000 nicht in ------
' jedem Fenster verfügbar! -------------------------------------
' --------------------------------------------------------------
End Sub
------------------
Tschüß, Dieter
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP