Hallo habe dank eure hilfe nun schon einige Makros geschrieben und wollte die nun über ein Menü steuern was soweit auch funktionier.
Wenn ich nun mein Makroordner jemand anderen geben muss er immer in der Menü Makro den Ordnerpfad abändern. Hab schon das Forum durchsucht aber es scheint das man den Ordnerpfad vom catvbs nicht raus bekommt. Habe aber nur ältere Beiträge wie dieses gefunden:
http://ww3.cad.de/foren/ubb/Forum137/HTML/003971.shtml
gibt es inzwischen eine Lösung vor catvbs?
Gruß Windninja
Sub CATMain()
' Test = WScript.ScriptFullName
' MsgBox Test
Ordner = "O:\Makros\CATIA - VBA" '<---- von Hand ausfüllen
Funktion = "CATMain"
Dim params()
Sicherheit=0
Do
Antwort = InputBox("Menu wählen" & vbCrLf & _
"0 - Test 1" & vbCrLf & _
"1 - Test2" & vbCrLf & _
"5 - Progam Beendet" ,"Tenneco Tool von Kay Schröder","5")
Select Case Antwort
Case vbExit
MsgBox "Progam Beendet"
Exit Do
Case "0"
Makro = "Hallo.catvbs"
Call CATIA.SystemService.ExecuteScript (Ordner, catScriptLibraryTypeDirectory, Makro, Funktion, params)
Case "1"
Makro = "Hallo2.catvbs"
Call CATIA.SystemService.ExecuteScript (Ordner, catScriptLibraryTypeDirectory, Makro, Funktion, params)
Case "5"
MsgBox "Progam Beendet"
Exit Do
Case Else
MsgBox "Falscheingabe"
Sicherheit = Sicherheit+1
If Sicherheit >=5 then
MsgBox "5 Falscheingaben, Abbruch"
Exit Do
end If
End Select
Loop
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP