---

Kompass-Parameter.jpg

Hallo zusammen,

habe da noch ein Problem(chen), für das ich bis jetzt noch keine Lösungshinweise finden konnte:

Ich möchte die 6 "Increment"-Felder des Kompass (s. Bild im Anhang) von einem Makro auf fest definierte Werte setzen lassen. Wie komme ich über einen Makro an diese Felder 'ran? Makro-Recorder hilft nicht, da wird schlicht nix aufgezeichnet.

------------------
Bei einer Katze, die ihr Frühstück will, gibt es keine "Schlummer"-Taste! Michael, Trixi und Mark.

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

---

Servus
IMHO kann man dies nicht per Makro einstellen/ändern.

Gruß
Bernd

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

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

---

Hallo zwinkiekater,

Ich hab noch 'n Bißchen im I-Net gegraben und bin bei den Kollegen in COE auf ein Script gestossen,
und zwar hier:

[URL=http://www.coe.org/p/fo/et/thread=27510][/URL]

Es handelt sich um eine Batterie von SendKeys, abgefeuert nach einem

CATIA.StartCommand ("Edit Compass")

Scheint ein wenig anfällig, aber die Einstellungen werden geändert.

Tschau,
Joe

PS: Die mm-Werte ohne '{}' angeben.
PPS: Gruß an die Mietze(n)

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

---

Und noch ein super-kurzes zum Kompass zurücksetzen:

[URL=http://www.scripting4v5.com/downloads/][/URL]

Tschau,

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

---

Hallo zwinkiekater,

hat das Makro bei Dir funktioniert?
Hier ein Beispiel dazu:

Code:

---

Sub MySetCompass()
  CATIA.DisplayFileAlerts = False
  CATIA.HSOSynchronized = False
  CATIA.StartCommand ("Edit Compass")
  AppActivate "CATIA V5"
  CATIA.HSOSynchronized = True
 
  SendKeys "+{TAB}", True
  SendKeys "{ENTER}", True
  SendKeys "{TAB}", True
  SendKeys "^A", True
  SendKeys "{DEL}", True
  SendKeys "10", True
  SendKeys "{TAB 3}", True
  SendKeys "15", True
  SendKeys "{TAB 3}", True
  SendKeys "20", True
  SendKeys "{TAB 3}", True
  SendKeys "30", True
  SendKeys "{TAB 3}", True
  SendKeys "30", True
  SendKeys "{TAB 3}", True
  SendKeys "45", True
  SendKeys "{TAB 9}", True
  SendKeys "{ENTER}", True
  DoEvents
End Sub

---

Noch eines zum Nullen:

Code:

---

'This one resets everything to zero
Sub ZeroCompass()

  CATIA.DisplayFileAlerts = False
  CATIA.HSOSynchronized = False
  CATIA.StartCommand ("Edit Compass")
  AppActivate "CATIA V5"
  CATIA.HSOSynchronized = True
 
  SendKeys "+{TAB}", True
  SendKeys "{ENTER}", True
  SendKeys "+{TAB}", True
  SendKeys "{ENTER}", True
End Sub

---

Tschau,
Joe

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

---

Set_Compass_RelParameters2015-02-06_07-56.jpg

Hallo joehz,

vielen Dank für Deinen Code  , habe ihn mal ausprobiert. Leider erhalte ich nach dem    AppActivate "CATIA V5"  die Fehlermeldung "Typenkonflikt AppActivate" und das Kompassfenster wird nicht in den Vordergrund gestellt. 

Die Fehlermeldung ist als JPG angehängt.

Habe selber noch ein wenig gesucht, aber bis jetzt noch keinen Lösungshinweis gefunden. Hat jemand von Euch noch eine Idee?

Dies ist mein Makrotext (habe alle Kommentarzeilen entfernt):

===============================================
Language="VBSCRIPT"

Sub CATMain()

CATIA.DisplayFileAlerts = False

CATIA.HSOSynchronized = False

CATIA.StartCommand ("Edit Compass")

AppActivate "CATIA V5"

CATIA.HSOSynchronized = True

SendKeys "+{TAB}", True
SendKeys "{ENTER}", True
SendKeys "{TAB}", True
SendKeys "^A", True
SendKeys "{DEL}", True
SendKeys "1", True
SendKeys "{TAB 3}", True
SendKeys "15", True
SendKeys "{TAB 3}", True
SendKeys "1", True
SendKeys "{TAB 3}", True
SendKeys "15", True
SendKeys "{TAB 3}", True
SendKeys "1", True
SendKeys "{TAB 3}", True
SendKeys "15", True
SendKeys "{TAB 9}", True
SendKeys "{ENTER}", True

End Sub
===============================================

------------------
Bei einer Katze, die ihr Frühstück will, gibt es keine "Schlummer"-Taste! Michael, Trixi und Mark.

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

---

modCompass.zip

Über ein Catscript geht das scheinbar nicht.

Ich hab ein Modul (ge-zip-te .bas-Datei) angehängt.
Ent-zipe und importiere diese in den VBA-Editor und führe sie aus.

Meine Versuche, das Makro mit einem Command-Button zu verknüpfen, sind nicht erfolgreich verlaufen.
Zwar klappt die Verknüpfung, aber bei der Makro-Ausführung kommt ein Fehler.
Keine Ahnung, warum. Aber vom VBA-Editor läuft's.

Tschau,
Joe

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

---

SetCompass.zip callSetCompass.zip SetComp.JPG

Ich hab das ganze noch in eine Exe gepackt(SetCompass.zip).

Ausführung direkt per Doppel-Klick oder Catia-Command Button.
Bei letzterem braucht's noch 'n Bißchen Zusatzaufwand.

- Die geZipte callSetCompass.bas entpacken und nach VBA importieren; Pfad im Code anpassen
- Unter Tools/Customize/Commands -> Macros -> callSetCompass auswählen
- Unter Tools/Customize/Commands -> Properties -> Alias und Icon festlegen
- Unter Tools/Customize/Toolbars/New und/oder Add commands callSetCompass in eine Toolbar einfügen

Um die Bedienung einfacher zu gestalten, hab ich die Werte-Einstellungen als Dialog ausgelegt.(Bild)

Das Makro will ein geöffnetes Product/Part, jedoch ohne geöffneten Dialog für die Compass-Einstellungen.

Have fun,
Joe

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

---

Hallo joehz,

vielen Dank für Deine Mühe und die Codes.    Ich hoffe, dass ich demnächst mal die Zeit haben werde, das alles auszuprobieren.

VG, zwinkiekater

------------------
Bei einer Katze, die ihr Frühstück will, gibt es keine "Schlummer"-Taste! Michael, Trixi das Katzenmädchen und Mark der Großmau.

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