Ajout du modèle de la table d'équilibre
This commit is contained in:
parent
1779189878
commit
a66baa0376
|
@ -0,0 +1,11 @@
|
|||
# Table d'équilibre
|
||||
|
||||
Maquette numérique - Formats : SolidWorks, FreeCAD et STEP
|
||||
- Licence : Creative Commons BY-NC-SA V4
|
||||
- Dépôt : https://forge.aeif.fr/blender-edutech/blender-edutech-modeles3d
|
||||
- Auteur : Philippe Roy <phroy@phroy.org>
|
||||
|
||||
![Capture écran FreeCAD](table_equilibre.jpg)
|
||||
|
||||
Utilisation :
|
||||
- Tutoriels pour découvrir le développment de jumeau numérique avec Blender/UPBGE + Python + Arduino : https://forge.aeif.fr/blender-edutech/blender-edutech-tuto
|
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,10 @@
|
|||
# Servomoteur digital FR0109M
|
||||
|
||||
Modèle 3D SolidWorks : version coudée
|
||||
- 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
|
||||
|
||||
Modèle 3D SolidWorks : version droite
|
||||
- Licence : CC BY-SA
|
||||
- Auteur : Philippe Roy
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
After Width: | Height: | Size: 124 KiB |
Binary file not shown.
Binary file not shown.
After Width: | Height: | Size: 206 KiB |
Binary file not shown.
After Width: | Height: | Size: 240 KiB |
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.
BIN
table_equilibre/solidworks/composants/Grove standard/Composants/ATMEL328P.SLDPRT
Executable file
BIN
table_equilibre/solidworks/composants/Grove standard/Composants/ATMEL328P.SLDPRT
Executable file
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.
BIN
table_equilibre/solidworks/composants/Grove standard/Composants/Contact F.SLDPRT
Executable file
BIN
table_equilibre/solidworks/composants/Grove standard/Composants/Contact F.SLDPRT
Executable file
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.
BIN
table_equilibre/solidworks/composants/Grove standard/Composants/USB SHELL.SLDPRT
Executable file
BIN
table_equilibre/solidworks/composants/Grove standard/Composants/USB SHELL.SLDPRT
Executable file
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.
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue