mirror of
https://forge.apps.education.fr/blender-edutech/blender-edutech-tutoriels.git
synced 2024-01-27 09:42:33 +01:00
Modélisation CAO de la table d'équilibre - suite
This commit is contained in:
parent
41941077a5
commit
2bc849ce57
BIN
labyrinthe/6-jumeaux/asset/solidworks/bille-9mm.SLDPRT
Executable file
BIN
labyrinthe/6-jumeaux/asset/solidworks/bille-9mm.SLDPRT
Executable file
Binary file not shown.
BIN
labyrinthe/6-jumeaux/asset/solidworks/bille.SLDPRT
Executable file
BIN
labyrinthe/6-jumeaux/asset/solidworks/bille.SLDPRT
Executable file
Binary file not shown.
6
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/AUTHORS.md
Executable file
6
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/AUTHORS.md
Executable file
@ -0,0 +1,6 @@
|
||||
# Servomoteur digital FR0109M
|
||||
|
||||
Modèles 3D SolidWorks
|
||||
- Licence : non précisé
|
||||
- Dépôt : https://grabcad.com/library/grove-imu-9-dof-v1-1
|
||||
- Auteur : Stéphane Lavirotte : https://grabcad.com/stephane.lavirotte-1
|
||||
Binary file not shown.
BIN
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/Grove IMU Back.png
Executable file
BIN
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/Grove IMU Back.png
Executable file
Binary file not shown.
|
After Width: | Height: | Size: 124 KiB |
Binary file not shown.
BIN
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/Grove IMU Front.png
Executable file
BIN
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/Grove IMU Front.png
Executable file
Binary file not shown.
|
After Width: | Height: | Size: 206 KiB |
BIN
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/Grove IMU.JPG
Executable file
BIN
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/Grove IMU.JPG
Executable file
Binary file not shown.
|
After Width: | Height: | Size: 240 KiB |
BIN
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/Grove IMU.SLDASM
Executable file
BIN
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/Grove IMU.SLDASM
Executable file
Binary file not shown.
BIN
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/MPU9150.SLDPRT
Executable file
BIN
labyrinthe/6-jumeaux/asset/solidworks/composants/Grove IMU/MPU9150.SLDPRT
Executable file
Binary file not shown.
@ -0,0 +1,6 @@
|
||||
# Module Grove divers
|
||||
|
||||
Modèles 3D SolidWorks
|
||||
- Licence : non précisé
|
||||
- Dépôt : https://grabcad.com/library/module-grove-arduino-2
|
||||
- Auteur : Claude Robert : https://grabcad.com/claude.robert-1
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 69 KiB |
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -0,0 +1,444 @@
|
||||
' ******************************************************************************
|
||||
' 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
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user