Is there a macro out there that...

Hi Ben,
Here you are my macro.
Whit it you can:
..- Put your model or assy in ISO view
..- Zoom to fit
..- Rebuild
..- Save

Bye, Danferes



**********************************************************************
Dim swApp As Object
Dim CurrentDoc As Object
Dim swModel As SldWorks.ModelDoc2


Sub main()

Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swApp = Application.SldWorks
Set CurrentDoc = swApp.ActiveDoc


swModel.ShowNamedView2 "*Isometric", -1
swModel.ViewZoomtofit2 ' zoom to fit
CurrentDoc.EditRebuild ' rebuild doc
CurrentDoc.Save2 False ' save doc

swApp.QuitDoc swModel.GetTitle

End Sub
*******************************************************************