Autor
|
Thema: via CatScript VBA Makro starten (5046 mal gelesen)
|
rettev Mitglied
Beiträge: 41 Registriert: 08.05.2012 CATIA V5 R19 / R20 Win 7 Enterprise (64bit) Xenon W3530 2,8GHz 12GB
|
erstellt am: 02. Dez. 2012 11:04 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen, ich versuche ein catVBA Makro aus einem Katalog zu starten. Leider klappt das nur mit einem catScript (korrigiert mich wenn es nicht stimmt). Also muss ich jetzt per catSript das *.catvba Makro starten. Und hier stellt sich das Problem... wie starte ich per CatScipt ein CatVBA Makro? Hoffe Ihr könnt mir helfen. Gruß, Ben Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 02. Dez. 2012 11:16 <-- editieren / zitieren --> Unities abgeben: Nur für rettev
|
rettev Mitglied
Beiträge: 41 Registriert: 08.05.2012 CATIA V5 R19 / R20 Win 7 Enterprise (64bit) Xenon W3530 2,8GHz 12GB
|
erstellt am: 02. Dez. 2012 12:01 <-- editieren / zitieren --> Unities abgeben:
Hi, Danke schon mal für den Tip. Ich habe es mit dem Code (catsript) versucht: Code: Sub CATMain()strProjekt="VBA_Projektdatei.catvba" strMakro ="Makroname" strMakrostart="CatMain" strProjektpfad="D:\pfad\zumMakro\VBA_Projekdatei.catvba" Run_CatVBA strProjektpfad, strMarko, strMakrostart End Sub
Hier bekomme ich aber die Fehlermeldung das die Typen unverträglich sind!? Was ist damit gemeint? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 02. Dez. 2012 13:07 <-- editieren / zitieren --> Unities abgeben: Nur für rettev
Servus Als was hast du die Variablen (StrProjekt, ....) dimensioniert? (sollte Spring sein) In welcher Zeile kommt der Fehler? Stimmen die Parameter (Pfad, ...)? Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ferdo Mitglied engineer
Beiträge: 34 Registriert: 15.04.2009 Windows 7, 64 CATIA v5r25 , 3DEXPERIENCE on cloud
|
erstellt am: 02. Dez. 2012 15:42 <-- editieren / zitieren --> Unities abgeben: Nur für rettev
Sub CATMain() Dim param() Dim oFilePath, oFileName, oModule As String Dim oSystemService As Variant Set oSystemService = CATIA.SystemService oFilePath = "c:\_Makro\" 'path of catvba oFileName = "vba_to_run.catvba" 'name of catvba oModule = "name_of_module_here" 'name of module in catvba Dim ss as Variant Set ss = Catia.SystemService ss.ExecuteScript oFilePath & oFileName , catScriptLibraryTypeVBAProject , oModule , "CATMain" , param End Sub
------------------ Best regards Fernando Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Bauleiter (m/w/d) Sanitär-, Heizungs- und Klimatechnik | Die Salvia Gebäudetechnik ist ein mittelständisches, unabhängiges und familiengeführtes Unternehmen mit deutschlandweit mehr als 1700 Mitarbeitern. Als professioneller Multidienstleister bildet die Gruppe, an 29 Standorten in ganz Deutschland, den kompletten technischen Lebenszyklus von Gebäuden ab. Von der Planung bis zum Betrieb. Bauleiter (m/w/d) Sanitär-, Heizungs- und Klimatechnik ... | Anzeige ansehen | Projektmanagement |
|
rettev Mitglied
Beiträge: 41 Registriert: 08.05.2012 CATIA V5 R19 / R20 Win 7 Enterprise (64bit) Xenon W3530 2,8GHz 12GB
|
erstellt am: 02. Dez. 2012 18:44 <-- editieren / zitieren --> Unities abgeben:
|