---

Hallo zusammen,

ich würde gerne ein Makro in einer catvba aus der Benutzerumgebung starten.

Dazu habe ich zuerst das Makro auf eine Symbolleiste gelegt und versucht über den Befehl zu starten
Was allerdings nicht funktioniert hat...

Auch über:

Tools > Makros... > Ausführen

passiert nichts;
wenn ich das Makro im Quellcode über F5 starte funktioniert es einwandfrei

Dann habe ich bisschen gegoogelt und probiert das Makro über ein CATScript zu starten und dazu folgenden Code geschrieben:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim oParams()
CATIA.SystemService.ExecuteScript "R:\[...]\Entwicklung\", catScriptLibraryTypeVBAProject, "Makro.catvba", "Makro", oParams

End Sub

---

Das funktioniert auch nicht..
Auch andere CATScripts, die ich teilweise im Forum gefunden habe konnten mein Problem nicht lösen...

Könnte es vllt. auch daran liegen, weil ich Userformen im Makro benutze?
Hier mal der Anfang von dem Makro, dass ich starten möchte (vllt hilft es):

Code:

---

Sub Makro()

        UserForm1.Show
        UserForm2.Show
         
    Set Sel1 = CATIA.ActiveDocument.Selection
    Dim ObjektTyp(0)
   
        ObjektTyp(0) = "AnyObject"
       
        Auswahl = Sel1.SelectElement3(ObjektTyp, "••••••••••1337••••••••••", False, CATMultiSelTriggWhenUserValidatesSelection, False)
        Count = Sel1.Count

---

Ich hoffe Ihr könnt mir weiterhelfen

------------------
"Die Genialität einer Konstruktion liegt in ihrer Einfachheit. Kompliziert bauen kann jeder." - Sergej P. Koroljow

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

---

Servus
Schau nochmal hier.
Beim Pfad muss der komplette Pfad (inklusive Dateinamen) stehen und als 3. Parameter der Name des Moduls (und nicht wie bei dir der Dateiname) stehen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hi afalwan,

benenn' 'Sub Makro' in 'sub catmain' um.

Unter Tools/Customize/Commands gib das Modul in dem sich das Makro befindet an.

Dann sollte es klappen.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Danke Bernd, Danke Joe,
hat geklappt 

Hier der Code (Dateipfad gekürzt):

Code:

---

Sub CATMain()

    Dim myScript
    Dim SysServ
    Dim Params()
 
        Set SysServ = CATIA.SystemService
        myScript = SysServ.ExecuteScript("R:\[...]\Entwicklung\Makro.catvba", catScriptLibraryTypeVBAProject, "Makro", "CATMain", Params)

End Sub

---

------------------
"Die Genialität einer Konstruktion liegt in ihrer Einfachheit. Kompliziert bauen kann jeder." - Sergej P. Koroljow

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