---

Hallo,
zum Vergleichen der Einstellung unter /Tools/Options von verschiedenen CATIA Installation will ich von den einzelnen TABs Bilder erstellen.
und diese entsprechend den Namen in ein Verzeichnis speichern.
Über das CATIA Startcommand habe ich die Tools Optionen aufgerufen, doch dann ist das Makro blockiert.
Wie kann man die Blockade aufheben und dann mit dem Makro in den Tools Optionen navigieren?

Gruß
Reimund

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

---

Hi reimund,

wenn ich Dich recht verstehe, willst Du per Makro Optionen einstellen.
Das ist nicht trivial, aber per Api machbar.

Ein Einstiegsbeispiel hier:

http://catia2.cad.de/index.php/de/tipps-tricks/programmierung/296-zwischen-catpart-property-pages-wechseln

Der Tools/Options-Dialog ist allerdings noch um einiges komplexer.

Falls Du, nachdem Du obiges Beispiel durchgearbeitet hast, immer noch per Makro Einstellungen ändern willst, sag Bescheid.

Frage: Um welche Einstellungen handelt's sich?

Tschau,
Joe

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

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

---

Hallo Joe,
danke für den Tipp.
Ich habe versucht die Demo zu starten, doch mit dem 64 bit Betriebssystem funktioniert die Demo nicht.
Folgende Zeilen sind in der CATIA VBA-Umgebung mit 32 Bit definiert:

Public Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)
 
'sendmessage variants
Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, wParam As Long, lParam As Any) As Long
Public Declare Function SendMessageAny Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, wParam As Any, lParam As Any) As Long
Public Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SendMessageString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

'window functions
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function EnumChildWindows Lib "user32" (ByVal hwndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long

Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Wie kann man das auf 64 bit anpassen?

Gruß
Reimund

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

---

Servus
Falls es wirklich an den 64bit liegt: auf Catia.cad.de findest du eine Anleitung wo du die Umschlüsselung her bekommst.

Gruß
Bernd

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

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

---

Hi Reimund,

wie Bernd schon schreibt, musst für VBA7 die Deklarationen anpassen.
Unter R19 sollt's aber ohne Anpassungen laufen.

Tschau,
Joe

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

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

---

Hallo,

danke für die Tipps.
Unter R19 funktioniert die Demo.
Jetzt werde ich damit einige Dinge ausprobieren.

Gruß
Reimund

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