---

viele kennen die Klicks, die vor dem einchecken gemacht werden
Zoom Grenzen, Iso Ansicht, Baum zu usw.
das passiert mal so und mal so oder wird vergessen
deshalb ein kleines Macro unter Verwendung von sendkey
siehe (guter Hinweis, da muss man erst mal drauf kommen)
http://forum.cad.de/foren/ubb/Forum2/HTML/026221.shtml
manches ist für mich nicht logisch (habe aber von vba auch keine Ahnung
z.b. das unterschiedliche verhalten von strg+s zu Part.Save2..

hier der Code zur freien Verwendung

'Featuremanager wird zugeklappt und auf Breite eingestellt
'Teile und Baugruppen in Isometrischer Ansicht
'speichern und schließen beim erneuten öffnen ist der letzte speicherzustand da

Dim swApp              As SldWorks.SldWorks
Dim swModel            As SldWorks.ModelDoc2
Dim FilePath            As String
Dim PathSize            As Long
Dim NewFilePath        As String
Dim Name                As String
Dim Part                As Object

Sub main()
'**********************************************************************************
'aktualisieren Manager und Breite auf 400 Pixel
'**********************************************************************************
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc

    Dim nWidth                  As Long

    Dim NewWidth                As Long

    Dim nRetVal                As Long

    Dim swFeatMgr              As SldWorks.FeatureManager
   
    Set swApp = CreateObject("SldWorks.Application")
   
    Set swModel = swApp.ActiveDoc
   
    Set swFeatMgr = swModel.FeatureManager
   
   
   
    nWidth = swModel.GetFeatureManagerWidth

    nRetVal = swModel.SetFeatureManagerWidth(nWidth)

    NewWidth = 400 ' hier die Breite
   
    nRetVal = swModel.SetFeatureManagerWidth(NewWidth)
   
       

'**********************************************************************************
'zoom grenzen ,isometrisch speichern, schließen
'**********************************************************************************

    Part.ShowNamedView2 "*Isometrisch", 7
    Part.ViewZoomtofit2
    Part.Save2 False  ' Speichern lieber ein mal mehr

AppActivate "SolidWorks Premium 2015" 'geht nur mit dem Eintrag Premium
'(mitunter Fehlermeldung oder nichts wenn die Lizenz nur Standard ist)

'**********************************************************************************
'zuklappen des Featurebaumes
'**********************************************************************************

    SendKeys "+c", True  'zuklappen viel schneller als mit der swx api

'***********************************************************************
'speichern, schließen
'***********************************************************************

    SendKeys "^s", True  ' Speichern (Featurebaum bleibt zugeklappt beim wieder öffnen)
   
    SendKeys "^w", True 'schließen

End Sub

------------------
-----------------------------
der frühe Vogel kann mich mal

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