mirror of
https://forge.apps.education.fr/blender-edutech/blender-edutech-modeles-3d.git
synced 2024-01-27 08:24:03 +01:00
Implantation des modules Grove
This commit is contained in:
parent
dbec13b16e
commit
f0d1b862b6
File diff suppressed because it is too large
Load Diff
@ -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
|
@ -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
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/chapeau_pilier_droit-complet.SLDASM
Executable file
BIN
portail_coulissant/solidworks/grove/chapeau_pilier_droit-complet.SLDASM
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/chapeau_pilier_droit-led_jaune-10.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/chapeau_pilier_droit-led_jaune-10.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/chapeau_pilier_droit.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/chapeau_pilier_droit.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/chapeau_pilier_gauche.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/chapeau_pilier_gauche.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/engrenage-bague_arret.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/engrenage-bague_arret.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/engrenage-complet.SLDASM
Executable file
BIN
portail_coulissant/solidworks/grove/engrenage-complet.SLDASM
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/engrenage.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/engrenage.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/entretoise-4mm.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/entretoise-4mm.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/entretoise-6x10.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/entretoise-6x10.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/entretoise-6x4.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/entretoise-6x4.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/entretoise_haute-grove.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/entretoise_haute-grove.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/grand_mur_devant.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/grand_mur_devant.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/grille-axe-d3x20.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/grille-axe-d3x20.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/grille-bas.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/grille-bas.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/grille-complet.SLDASM
Executable file
BIN
portail_coulissant/solidworks/grove/grille-complet.SLDASM
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/grille-cremaillere.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/grille-cremaillere.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/grille-poulie-d20.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/grille-poulie-d20.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/grille.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/grille.SLDPRT
Executable file
Binary file not shown.
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/moteur-arriere.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/moteur-arriere.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/moteur-capuchon.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/moteur-capuchon.SLDPRT
Executable file
Binary file not shown.
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/moteur-corps.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/moteur-corps.SLDPRT
Executable file
Binary file not shown.
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/moteur-support.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/moteur-support.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/mur_cote.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/mur_cote.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/petit_mur_devant.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/petit_mur_devant.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/pilier-cote-bouton.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/pilier-cote-bouton.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/pilier-cote.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/pilier-cote.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/pilier-devant.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/pilier-devant.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/pilier.SLDASM
Executable file
BIN
portail_coulissant/solidworks/grove/pilier.SLDASM
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/pilier_droit.SLDASM
Executable file
BIN
portail_coulissant/solidworks/grove/pilier_droit.SLDASM
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/pilier_gauche.SLDASM
Executable file
BIN
portail_coulissant/solidworks/grove/pilier_gauche.SLDASM
Executable file
Binary file not shown.
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/rail.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/rail.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/socle-2.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/socle-2.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/socle.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/socle.SLDPRT
Executable file
Binary file not shown.
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/vis-tc-m3x16.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/vis-tc-m3x16.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/vis-tc-m3x6.5.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/vis-tc-m3x6.5.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/vis-tc-m3x6.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/vis-tc-m3x6.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/vis-tf-m3x13.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/vis-tf-m3x13.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/vis-tf-m3x20.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/vis-tf-m3x20.SLDPRT
Executable file
Binary file not shown.
BIN
portail_coulissant/solidworks/grove/vis_2_9_X_9_5.SLDPRT
Executable file
BIN
portail_coulissant/solidworks/grove/vis_2_9_X_9_5.SLDPRT
Executable file
Binary file not shown.
Loading…
Reference in New Issue
Block a user