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
07570286c1
blender-edutech-modeles-3d/table_equilibre/solidworks/composants/Grove standard/Composants/Visserie/swxJRNL.swj

445 lines
20 KiB
Plaintext
Raw Normal View History

Ajout du modèle de la table d'équilibre
2023-09-10 15:09:12 +02:00
' ******************************************************************************
' 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<72>es <20> 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
Reference in New Issue Copy Permalink