| 1 |
bournival |
40 |
' ******************************************************************************
|
| 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)
|
