---

Hallo,

Ich habe folgendes Problem. Ich würde gern ein Auswahlmakro programmieren, welches über eine Auswahlbox verschiedene Makros anspricht. Im Grunde genau so wie ich eine individuelle Exceldatei öffne nur mit Makros.

Ich hoffe man versteht was ich meine.

Viele Grüße

Hans

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

---

Vorhandene Makros aufzurufen ist möglich.
http://www.tech-ecke.de/index_quereinstieg.htm?/catscript/externe_scripts_und_anwendungen.htm

In Catscript würde ich wohl eine InputBox verwenden um aus einer Liste eine Option auszuwählen.
Die Eingabe muss dann noch verwurstet werden.

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

---

Du könntest es in Visual Basic Studio in .net mit Catia COM-Schnittstelle machen. Visual Basic Studio Community man sich einfach runterladen und dann kannst du alle grafischen Oberflächen machen, die du dir nur vorstellen kannst 

Gruß,
Christoph

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

---

Hallo,

Danke für die Antwort. Das Script versteh ich soweit. Allerdings kommt es Bei mir zu einem Typenkonflikt. Mein Script sieht so aus. Jemand eine Idee wie ich das zum Laufen bringen kann?

Zitat:

---

Dim Params()
Dim E As CATBSTR
Dim SServ As SystemService
Set SServ = CATIA.SystemService
LibPath = "C:\Users"
ScriptName = "Name.CATScript"
FunctionName = "Sub CATMain"
Call SServ.ExecuteScript (LibPath, catScriptLibraryTypeDirectory, FunctionName, Params)

---

Viele Grüße

Hans

[Diese Nachricht wurde von z3us1911 am 03. Dez. 2019 editiert.]

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

---

Ich vermute, dass du den Scriptnamen mit DAtei-Endung verwenden musst.

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

---

Hallo,

das Hab ich getan hab nur vergessen die Dateiendung bei dem Proxynamen anzuhängen. Hast du noch eine Idee? Es Handelt sich bei der "Funktion" die ich ausführen will nicht um eine Function sondern um Sub-Prozedur ist das evtl. das Problem?

Viele Grüße
Hans

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

---

Lass dich vom Variablennamen nicht verwirren.
Wie heißt die Sub den, die du ausführen möchtest?
Wenn sie bla heißt, sollte die Zeile so aussehen:

FunctionName = "Sub bla"

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

---

Hallo,

Meine Sub heißt ganz normal "Sub CATMain". Das habe ich dort auch eingetragen. Troztdem erscheint ein Typenkonflikt. Als Idee kam mir noch sowas wie "Application.Run" das bekomm ich aber auch nicht  . Weitere Ideen? Benötigt ihr noch mehr Infos oder Reicht mein Code so wie angegeben aus?

Viele Grüße
Hans

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

---

Hallo,

Hab es Herausgefunden. Ich habe mich wohl irgendwo vertippt. Vielen Dank für die Hilfe.

Viele Grüße
Hans

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

---

Starte mal ein einfacheres Makro.

Code:

---

Sub CATMain()
MsgBox "Fremdmakro erfolgreich ausgefuehrt!"
End Sub

---

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

---

Ich habe folgenden Code erfolgreich ausgeführt:

Code:

---

Sub CATMain()

Dim Params()
LibPath = "C:\Makros"                                ' Pfad wo das Makro liegt
ScriptName = "MsgBoxOnly.CATScript"      ' Makroname
FunctionName = "CATMain"            ' Funktion die aufgerufen werden soll

Call CATIA.SystemService.ExecuteScript(LibPath, catScriptLibraryTypeDirectory, ScriptName, FunctionName, Params)

End Sub

---

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

---

Hallo,

evtl. hilft Dir mein Makrocenter weiter - siehe hierzu:

http://ww3.cad.de/foren/ubb/Forum137/HTML/006482.shtml

Gruß
Martin

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