Hallo Laute,
solltest Du mit VB arbeiten kannst Du über die SendKeys-Methode einen CATIA-Befehl absetzen. Der Befehl für das Reframe auf die ausgewählten Objekte lautet "Bildschirmfüllend anzeigen" bzw "Reframe on" für die englische Oberfläche.
Der Quelltext sieht wie folgt aus:
AppActivate "CATIA V5"
SendKeys "b:Bildschirmfüllend anzeigen" + Chr(13), True
(SendKeys "c:Reframe On" + Chr(13), True -- für englisch)
Da wohl bis dato noch keiner so richtig die StartCommand-Methode zum Laufen gebracht hat, ist das momentan die einzige Möglichkeit.
Funktioniert aber leider nur aus VB und nicht im VBA oder VBScript.
Aber auch da kann man sich behelfen über "ExecuteBackgroundProcessus" und die Angabe einer .exe mit dem CATIA-Befehl als Parameter.
Inhalt der .exe wäre
Sub Main()
Dim CATIA As Application
Set CATIA = GetObject(, "CATIA.Application")
AppActivate "CATIA V5"
SendKeys "b:" + Command() + Chr(13), True
End Sub
Das ganz kompilieren und aus dem VB-Script wie folgt aufrufen:
CATIA.SystemService.ExecuteBackgroundProcessus ("Name.exe CATIABefehl")
Gruss
Steffen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP