Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Makros aus Makro heraus ausführen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Makros aus Makro heraus ausführen (3814 mal gelesen)
studmija
Mitglied
Student


Sehen Sie sich das Profil von studmija an!   Senden Sie eine Private Message an studmija  Schreiben Sie einen Gästebucheintrag für studmija

Beiträge: 49
Registriert: 22.11.2010

System:
Microsoft Windows XP
Professional x64 Edition
Version 2003
Sevice Pack 2
Computer:
Intel(R)Xeon(R)CPU
2,80GHz, 12 GB RAM
Software:
CATIA V5R19

erstellt am: 02. Dez. 2010 14:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Servus,
kann man Makros aus einem Makro heraus starten?

Ich habe mehrere "kleinere" Makros geschrieben & will diese nacheinander ausführen.

Hatte an sowas in der Art gedacht:

Code:

Sub CATMain ()

Makro1
(evtl. weitere Anweisungen)
Makro2
(evtl. weitere Anweisungen)
Makro3

usw.

...
End Sub


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

Christian.O
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Christian.O an!   Senden Sie eine Private Message an Christian.O  Schreiben Sie einen Gästebucheintrag für Christian.O

Beiträge: 1212
Registriert: 17.07.2009

erstellt am: 02. Dez. 2010 18:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für studmija 10 Unities + Antwort hilfreich

Servus,

entweder so

Code:
Private Sub cmd_Change_Balloon_Propterties_Click()
' Makroaufruf:  Change_Balloon_Propterties

    '***Fenster schließen
    Unload Me

    '***Fenster anzeigen / vbModeless damit man bei geöffneter Userform etwas selektieren kann
    Change_Balloon_Propterties.Show vbModeless

End Sub


oder so

Code:
Private Sub cmd_Rename_Object_Click()
' Makroaufruf:  Rename_Object

    '***Fenster schließen
    Unload Me
   
    '***Deklarationen für Function-Aufruf
    strProjekt = "OC_GUI.catvba"
    strMakro = "Rename_Object"
    strMakrostart = "CatMain"
    strProjektpfad = strOC_Pfad & "\" & strProjekt
   
    '***Function aufrufen
    Run_CatVBA strProjektpfad, strMakro, strMakrostart

End Sub


Code:
Public Sub Run_CatVBA(strPfad As String, strMakro As String, strMakrostart As String)

    '***Deklarationen
    Dim vntParameter() As Variant
    Dim vntSystemService As Variant
   
    '***Makro aufrufen
    Set vntSystemService = CATIA.SystemService
    Call vntSystemService.ExecuteScript(strPfad, catScriptLibraryTypeVBAProject, strMakro, strMakrostart, vntParameter)
   
End Sub


Beim ersten Code wird eine Userform innerhalb eines VBA Projects aufgerufen. Beim 2ten wird ein Modul innerhalb eines VBA Projects aufgerufen. Gestartet wird hierbei eine Userform mit allen Buttons welche dann die Makros (Modul oder Userform) aufruft. Wenn ein Modul aufgerufen wird werden alle Parameter übergeben, damit das Makro gestartet wird.

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

studmija
Mitglied
Student


Sehen Sie sich das Profil von studmija an!   Senden Sie eine Private Message an studmija  Schreiben Sie einen Gästebucheintrag für studmija

Beiträge: 49
Registriert: 22.11.2010

System:
Microsoft Windows XP
Professional x64 Edition
Version 2003
Sevice Pack 2
Computer:
Intel(R)Xeon(R)CPU
2,80GHz, 12 GB RAM
Software:
CATIA V5R19

erstellt am: 08. Dez. 2010 08:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Moin!
Hmmm irgendwie kann ich mit diesen Code nicht so wiel anfangen
Ich schreibe meine Makros in CATScript!
Habe mehrere Makros in einer Macro Library, die nach einander ausgeführt mein "Wunschergebnis" erzielen.
Hatte an einen Befehl gedacht bei den man den "Pfad" und "Namen" vom auszuführenden Makro angibt...
MfG
Micha

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

Bertel
Mitglied



Sehen Sie sich das Profil von Bertel an!   Senden Sie eine Private Message an Bertel  Schreiben Sie einen Gästebucheintrag für Bertel

Beiträge: 300
Registriert: 03.04.2002

CATIA V5 R26SP3HF21
Win10
Lenovo P52
Intel Xenon 16GB Ram
NVIDIA Quadro P2000
EUKLID V14
ViCADo 2015

erstellt am: 08. Dez. 2010 08:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für studmija 10 Unities + Antwort hilfreich

Hallo studmija,

in CATScript geht das so:

Dim params()
CATIA.SystemService.ExecuteScript "C:\Rename", catScriptLibraryTypeDirectory, "Makro.CATScript", "CATMain", params

Gruß
Bertel

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

studmija
Mitglied
Student


Sehen Sie sich das Profil von studmija an!   Senden Sie eine Private Message an studmija  Schreiben Sie einen Gästebucheintrag für studmija

Beiträge: 49
Registriert: 22.11.2010

System:
Microsoft Windows XP
Professional x64 Edition
Version 2003
Sevice Pack 2
Computer:
Intel(R)Xeon(R)CPU
2,80GHz, 12 GB RAM
Software:
CATIA V5R19

erstellt am: 08. Dez. 2010 13:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke! Genau sowas habe ich gesucht!

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz