Blender-EduTech/blender-edutech-modeles-3d
Blender-EduTech/blender-edutech-modeles-3d
1
1
Fork 0
mirror of https://forge.apps.education.fr/blender-edutech/blender-edutech-modeles-3d.git synced 2024-01-27 08:24:03 +01:00
Code Issues Projects Releases Wiki Activity

Implantation des modules Grove

Browse Source
This commit is contained in:
Philippe Roy 2023-09-14 03:22:47 +02:00
parent dbec13b16e
commit f0d1b862b6
50 changed files with 0 additions and 14121 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13648
composants_std/Grove standard/PCB/swxJRNL.swj
View File

File diff suppressed because it is too large Load Diff

444
composants_std/Grove standard/composants/Visserie/swxJRNL.swj
View File

@ -1,444 +0,0 @@
' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/24/21 by Claude
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.OpenDoc6("C:\Users\Utilisateur\Documents\SOLIDWORKS\Fichier 2012\Modules grove\Composants\Visserie\Vis CH.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActivateDoc2 "Vis CH.SLDPRT", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 21
Set myModelView = Part.ActiveView
myModelView.FrameWidth = 1605
myModelView.FrameHeight = 867
Set Part = Nothing
swApp.CloseDoc "Vis CH.SLDPRT"
Set Part = swApp.OpenDoc6("C:\Users\Utilisateur\Documents\SOLIDWORKS\Fichier 2012\Modules grove\Composants\Visserie\Vis CZ.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActivateDoc2 "Vis CZ.SLDPRT", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 21
Set myModelView = Part.ActiveView
myModelView.FrameWidth = 1605
myModelView.FrameHeight = 867
' MSGBOX
' Enregistrer les modifications apportées à Vis CZ.SLDPRT ?
Set Part = Nothing
swApp.CloseDoc "Vis CZ.SLDPRT"
Set Part = swApp.OpenDoc6("C:\Users\Utilisateur\Documents\SOLIDWORKS\Fichier 2012\Modules grove\Composants\Visserie\Vis CH.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActivateDoc2 "Vis CH.SLDPRT", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 21
Set myModelView = Part.ActiveView
myModelView.FrameWidth = 1605
myModelView.FrameHeight = 867
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.02074636658031, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0.016229629944744358
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.012447819948186001, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0.016229629944744358
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, -0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, -0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.016597093264248002, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0082985466321240011, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.012447819948186001, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0.008114814972372179
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.0041492733160620006, 0
Set Part = Nothing
swApp.CloseDoc "Vis CH.SLDPRT"
swApp.ExitApp
End Sub

29
composants_std/Grove standard/composants/swxJRNL.swj
View File

@ -1,29 +0,0 @@
' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/16/21 by Claude
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.OpenDoc6("C:\Users\Utilisateur\Documents\Download grabcad\Composants\603 cap on pad.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActivateDoc2 "603 cap on pad.SLDPRT", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 21
Set myModelView = Part.ActiveView
myModelView.FrameWidth = 1605
myModelView.FrameHeight = 867
Set Part = Nothing
swApp.CloseDoc "603 cap on pad.SLDPRT"
swApp.ExitApp
End Sub

BIN
portail_coulissant/solidworks/grove/cfc-platine.SLDPRT
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/cfc_ferme.SLDASM
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/cfc_ouvert.SLDASM
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/chapeau_pilier_droit-complet.SLDASM Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/chapeau_pilier_droit-led_jaune-10.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/chapeau_pilier_droit.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/chapeau_pilier_gauche.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/engrenage-bague_arret.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/engrenage-complet.SLDASM Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/engrenage.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/entretoise-4mm.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/entretoise-6x10.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/entretoise-6x4.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/entretoise_haute-grove.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/grand_mur_devant.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/grille-axe-d3x20.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/grille-bas.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/grille-complet.SLDASM Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/grille-cremaillere.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/grille-poulie-d20.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/grille.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/moteur MFA 12-24V.SLDASM
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/moteur-arriere.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/moteur-capuchon.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/moteur-complet.SLDASM
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/moteur-corps.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/moteur-platine.SLDPRT
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/moteur-support.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/mur_cote.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/petit_mur_devant.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/pilier-cote-bouton.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/pilier-cote.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/pilier-devant.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/pilier.SLDASM Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/pilier_droit.SLDASM Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/pilier_gauche.SLDASM Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/portail_coulissant.SLDASM
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/rail.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/socle-2.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/socle.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/vis-chc.SLDPRT
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/vis-tc-m3x16.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/vis-tc-m3x6.5.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/vis-tc-m3x6.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/vis-tf-m3x13.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/vis-tf-m3x20.SLDPRT Executable file
View File

Binary file not shown.

BIN
portail_coulissant/solidworks/grove/vis_2_9_X_9_5.SLDPRT Executable file
View File

Binary file not shown.