| 1 |
' ******************************************************************************
|
| 2 |
' swxJRNL.swj - journal recorded on 03/28/06 by bouleta
|
| 3 |
' *****************************************************************************
|
| 4 |
Dim swApp As Object
|
| 5 |
Dim Part As Object
|
| 6 |
Dim boolstatus As Boolean
|
| 7 |
Dim longstatus As Long, longwarnings As Long
|
| 8 |
Dim FeatureData As Object
|
| 9 |
Dim Feature As Object
|
| 10 |
Dim Component As Object
|
| 11 |
Sub main()
|
| 12 |
|
| 13 |
Set swApp = Application.SldWorks
|
| 14 |
|
| 15 |
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\Pièce.prtdot", 0, 0.000000, 0.000000)
|
| 16 |
Set Part = swApp.ActivateDoc2 ("Pièce1", False, longstatus)
|
| 17 |
swApp.ActiveDoc.ActiveView.FrameWidth = 718
|
| 18 |
swApp.ActiveDoc.ActiveView.FrameHeight = 491
|
| 19 |
swApp.ActiveDoc.ActiveView.FrameLeft = 0
|
| 20 |
swApp.ActiveDoc.ActiveView.FrameTop = 0
|
| 21 |
swApp.ActiveDoc.ActiveView.FrameState = 1
|
| 22 |
swApp.ActiveDoc.ActiveView.FrameState = 1
|
| 23 |
' MSGBOX
|
| 24 |
' Veuillez entrer un nombre supérieur ou égal à 1e-011 et inférieur ou égal à 1
|
| 25 |
|
| 26 |
Part.SaveAs2 "C:\Documents and Settings\bouleta\Mes documents\Pièce1.SLDPRT", 0, FALSE, FALSE
|
| 27 |
Part.Save2 FALSE
|
| 28 |
Part.Save2 FALSE
|
| 29 |
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\bouleta\Mes documents\Pièce1.SLDPRT", 1, 0, "", longstatus, longwarnings)
|
| 30 |
swApp.ActiveDoc.ActiveView.FrameLeft = 0
|
| 31 |
swApp.ActiveDoc.ActiveView.FrameTop = 0
|
| 32 |
swApp.ActiveDoc.ActiveView.FrameState = 1
|
| 33 |
Set Part = swApp.ActivateDoc2 ("Pièce1.SLDPRT", False, longstatus)
|
