---

Phönix-Shift+F.jpg

Ich habe letzte Woche mein erstes  (einfaches) Makro erstellt.
Dafür habe ich ein Makro von Jörg ergänzt:
Neuberechnung: STRG+Q
Eintrag in Dokumenteigenschaften: Shift+F (über einen Befehl des EDM-Sytem Phönix.
Hier das Makro:
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object

Sub main()

AppActivate "SolidWorks 2004"
SendKeys "+f{enter}", False

SendKeys "^q", False

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Part.ShowNamedView2 "*Isometrisch", 7
Part.Save2 False
Part.ViewZoomtofit2
Part.Save2 False
Name = Part.GetPathName()
swApp.CloseDoc Name

End Sub

Nun zum Problem: Nach dem Ausführen des Makros ist die Tastaturbelegung verstellt (Anhang)  auf einen anderen Befehl in der Kategorie Phönix. Außerdem ist das Nummernfeld auf der Tastatur ausgeschaltet      
Ist da irgend ein Fehler im Makro?

------------------
Grüße aus dem Allgäu
Conrad

[Diese Nachricht wurde von Conrad am 13. Mrz. 2006 editiert.]

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

---

Weis denn wirklich keiner an was das liegen könnte
Wäre sehr dankbar für eure Hilfe.

------------------
Grüße aus dem Allgäu
Conrad

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

---

Hallo Conrad,

mal davon abgesehen das ich Sendkeys nur sehr ungern verwende ... und es auch keinem wirklich empfehlen kann dies zu tun (SendKeys liefert keine Kontrolle an welche App du was sendest)... bau mal nach einem Sendkeys ein DoEvents ein siehe auch:  http://support.microsoft.com/?kbid=179987 . Da der !!MS-BUG!! noch aus der VB5 Zeit stammt könnte dir auch eine Installation der Aktuellen VB6 Runtimes weiterhelfen..

Gruß
Micha

------------------
http://classicvb.org/petition/

 

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Danke für den Tipp!

werde ich dann auch gleich mal probieren

------------------
Grüße aus dem Allgäu
Conrad

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