' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/11/00 by NONAME
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("C:\essai solidworks\somfydetails\SOMFY.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("SOMFY - Feuille1")
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameWidth = 645
swApp.ActiveDoc.ActiveView.FrameHeight = 449
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "SOMFY - Feuille1"
swApp.ExitApp
End Sub
