Hallo maximal,
habe mit dem MacroRecorder mal bei einem neuen Teil was probiert. Einfach ein zugewiesenes Material entfernen.
Dabei kam das raus:
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Unbekannt", "BROWSERITEM", 0, 0, 0, False, 0, Nothing)
End Sub
Es scheint mir aber das "erweiterte Grafik" noch nicht aktiv ist, kann's jetzt aber auch nicht testen.
Macroroutine zum Öffnen und Schließen sind glaube ich bei Stefan unter Makros zu finden. Geht aber auch mit dem SWX-Taskmanager oder PAC4SWX (auch bei Stefan zu finden).
Viel Spass beim Knobeln.
------------------
Gruß, der Teddibaer
Besucht mich doch mal ...
----------------
Es gibt eine Theorie, nach der die Konzentration von Dummheit an bestimmten Orten besonders hoch ist.
[Diese Nachricht wurde von Teddibaer am 14. Apr. 2005 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP