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