Merge branch 'Version_5-VLG-Rama' into 'main'
Версия намоточного станка, с переделанным основанием и добавленным дисплеем. See merge request robossembler/cnc/motor-wire-winder!10
BIN
.zip
Normal file
BIN
img/2024-08-18_17-57-20.png
Normal file
After Width: | Height: | Size: 296 KiB |
BIN
img/2024-08-20_22-45-36.png
Normal file
After Width: | Height: | Size: 489 KiB |
BIN
img/2024-08-20_22-46-04.png
Normal file
After Width: | Height: | Size: 582 KiB |
BIN
img/2024-08-20_22-46-38.png
Normal file
After Width: | Height: | Size: 424 KiB |
BIN
img/2024-08-20_22-47-22.png
Normal file
After Width: | Height: | Size: 368 KiB |
BIN
img/2024-08-20_22-47-48.png
Normal file
After Width: | Height: | Size: 194 KiB |
BIN
img/2024-08-24_19-58-01.png
Normal file
After Width: | Height: | Size: 640 KiB |
BIN
pddl/main_platform.3mf
Normal file
BIN
pddl/main_platform.STL
Normal file
BIN
src/-pin_holder_new_printable.step1.SLDPRT
Normal file
BIN
src/-pin_holder_new_printable.step2.SLDPRT
Normal file
BIN
src/-pin_holder_new_printable.step3.SLDPRT
Normal file
BIN
src/-stator_holder_new_printable.step1.SLDPRT
Normal file
BIN
src/-stator_holder_new_printable_step1.SLDPRT
Normal file
BIN
src/220_in_ac-013.SLDPRT
Normal file
BIN
src/73b23c15-25ce-11eb-b716-000c29fafacd.zip
Normal file
BIN
src/Base.SLDPRT
BIN
src/CR-10s_Filament_Sensor_PCB.SLDPRT
Normal file
BIN
src/Config_1/-pin_holder_new_printable.step1.SLDPRT
Normal file
BIN
src/Config_1/-pin_holder_new_printable.step2.SLDPRT
Normal file
BIN
src/Config_1/-pin_holder_new_printable.step3.SLDPRT
Normal file
BIN
src/Config_1/-stator_holder_new_printable.step1.SLDPRT
Normal file
BIN
src/Config_1/-stator_holder_new_printable_step1.SLDPRT
Normal file
BIN
src/Config_1/220_in_ac-013.SLDPRT
Normal file
BIN
src/Config_1/608ZZ Bearing.SLDASM
Normal file
BIN
src/Config_1/Base.SLDPRT
Normal file
BIN
src/Config_1/Bearing Sheild.SLDPRT
Normal file
BIN
src/Config_1/CR-10s_Filament_Sensor_PCB.SLDPRT
Normal file
BIN
src/Config_1/Cuerpo.SLDPRT
Normal file
BIN
src/Config_1/Display_asm_main.SLDASM
Normal file
BIN
src/Config_1/MGN_12_H_CARRAGE.SLDPRT
Normal file
BIN
src/Config_1/MGN_12_H_RAIL.SLDPRT
Normal file
BIN
src/Config_1/NEMA 17 stepper motor.SLDPRT
Normal file
BIN
src/Config_1/NEMA 17.SLDASM
Normal file
BIN
src/Config_1/Platform_Display.SLDPRT
Normal file
BIN
src/Config_1/Tapa.SLDPRT
Normal file
BIN
src/Config_1/_asm_chelnok.SLDASM
Normal file
BIN
src/Config_1/_asm_support.SLDASM
Normal file
471237
src/Config_1/_main_asm_config_20_08_2024_19_40.STEP
Normal file
BIN
src/Config_1/_main_asm_config_3.SLDASM
Normal file
BIN
src/Config_1/a5275.SLDPRT
Normal file
BIN
src/Config_1/asm_big_stator.SLDASM
Normal file
BIN
src/Config_1/asm_holder.SLDASM
Normal file
BIN
src/Config_1/asm_small_stator.SLDASM
Normal file
70948
src/Config_1/asm_small_stator_new.STEP
Normal file
BIN
src/Config_1/babina.SLDPRT
Normal file
BIN
src/Config_1/big_holder.SLDPRT
Normal file
BIN
src/Config_1/creality_mb.SLDPRT
Normal file
BIN
src/Config_1/hex nut gradec_din_2.SLDPRT
Normal file
BIN
src/Config_1/holder.SLDPRT
Normal file
BIN
src/Config_1/holder_element_small_motor.SLDPRT
Normal file
BIN
src/Config_1/holder_var3_221003.SLDPRT
Normal file
BIN
src/Config_1/idle_thin.SLDPRT
Normal file
BIN
src/Config_1/main_platform_2.SLDPRT
Normal file
BIN
src/Config_1/main_platform_3.SLDPRT
Normal file
BIN
src/Config_1/main_platform_Display.SLDPRT
Normal file
BIN
src/Config_1/main_platform_Display_Full.SLDPRT
Normal file
BIN
src/Config_1/main_platform_Display_Original.SLDPRT
Normal file
BIN
src/Config_1/main_platform_КОПИЯ.SLDPRT
Normal file
BIN
src/Config_1/mgn12h.SLDPRT
Normal file
BIN
src/Config_1/motor shaft.SLDPRT
Normal file
BIN
src/Config_1/needle_holder.SLDPRT
Normal file
BIN
src/Config_1/organizer.SLDPRT
Normal file
BIN
src/Config_1/pin_1.SLDPRT
Normal file
BIN
src/Config_1/pin_fixer.SLDPRT
Normal file
BIN
src/Config_1/pin_holder_240611_2.SLDPRT
Normal file
BIN
src/Config_1/pipe1.SLDPRT
Normal file
BIN
src/Config_1/pully1.SLDPRT
Normal file
BIN
src/Config_1/pully_holder2.SLDPRT
Normal file
BIN
src/Config_1/rail_for_mgn12h.SLDPRT
Normal file
BIN
src/Config_1/sensorPin240705.SLDPRT
Normal file
BIN
src/Config_1/sensor_fixer.SLDPRT
Normal file
BIN
src/Config_1/sensor_key2_240705.SLDPRT
Normal file
9371
src/Config_1/swxJRNL.swj
Normal file
BIN
src/Config_1/weldroller_holder.SLDPRT
Normal file
BIN
src/Config_1/wire_holder1.SLDPRT
Normal file
BIN
src/Config_1/wire_holder2_small_motor.SLDPRT
Normal file
BIN
src/Config_1/Движитель ОСИ_X.SLDPRT
Normal file
BIN
src/Config_1/Деталь1.SLDPRT
Normal file
BIN
src/Config_1/Деталь3.SLDPRT
Normal file
BIN
src/Config_1/Фаза Держатель.SLDPRT
Normal file
BIN
src/Config_1/блок_питания.SLDPRT
Normal file
BIN
src/Config_1/каретка.SLDPRT
Normal file
BIN
src/Config_1/крышка.SLDPRT
Normal file
BIN
src/Config_1/муфта с 5 на 8мм.SLDPRT
Normal file
BIN
src/Config_1/подставка катушки.SLDPRT
Normal file
BIN
src/Config_1/подставки по плату.SLDPRT
Normal file
BIN
src/Config_1/прижим статора.SLDPRT
Normal file
BIN
src/Config_1/шкив 5х13.SLDPRT
Normal file
BIN
src/Config_1/шпилька вал м8 50мм.SLDPRT
Normal file
703
src/Config_1swxJRNL.BAK
Normal file
|
@ -0,0 +1,703 @@
|
|||
' ******************************************************************************
|
||||
' swxJRNL.swj - journal recorded on 08/24/24 by RADMIR
|
||||
' *****************************************************************************
|
||||
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
|
||||
|
||||
swApp.ActivateDoc2 "_main_asm_config_3.SLDASM", False, longstatus
|
||||
Set Part = swApp.ActiveDoc
|
||||
Set Part = swApp.ActiveDoc
|
||||
Dim myModelView As Object
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.FrameLeft = 0
|
||||
myModelView.FrameTop = 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.FrameState = swWindowState_e.swWindowMaximized
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.FrameState = swWindowState_e.swWindowMaximized
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, -0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.03739991254273571791
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.0822798075940185808
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.1047197551196600018
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, -0.08975979010256572577
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, -0.03739991254273571791
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01718058482431921927, -0.06731984257692429086
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02748893571891075291, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02748893571891075291, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02061670178918306728, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02061670178918306728, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
|
||||
' Roll View
|
||||
Dim swModelView As Object
|
||||
Set swModelView = Part.ActiveView
|
||||
swModelView.RollBy 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.01495996501709428821
|
||||
|
||||
' Roll View
|
||||
Set swModelView = Part.ActiveView
|
||||
swModelView.RollBy 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01374446785945537645, -0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01374446785945537645, -0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01374446785945537645, -0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01374446785945537645, -0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01030835089459153364, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, -0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, -0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, -0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, -0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02405281875404690836, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02748893571891075291, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.03779728661350228308, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.04123340357836613457, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.03436116964863843853, 0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.03436116964863843853, 0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.03092505268377459399, 0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, 0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02405281875404690836, 0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, 0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.06731984257692429086
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0.03739991254273571791
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, -0.007479982508547144103
|
||||
|
||||
' Roll View
|
||||
Set swModelView = Part.ActiveView
|
||||
swModelView.RollBy 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.05841398840268535037, -0.0822798075940185808
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02748893571891075291, -0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.03436116964863843853, -0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.03092505268377459399, -0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01374446785945537645, -0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02748893571891075291, -0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02748893571891075291, -0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01374446785945537645, -0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02748893571891075291, -0.06731984257692429086
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.03092505268377459399, -0.0822798075940185808
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02748893571891075291, -0.08975979010256572577
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01718058482431921927, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.03779728661350228308, -0.1121997376282071607
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.03092505268377459399, -0.1047197551196600018
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02405281875404690836, -0.1121997376282071607
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01030835089459153364, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01374446785945537645, -0.0822798075940185808
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02061670178918306728, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.03092505268377459399, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01718058482431921927, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.03436116964863843853, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.03779728661350228308, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.03092505268377459399, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02405281875404690836, 0.03739991254273571791
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02061670178918306728, 0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, 0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, 0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.03739991254273571791
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, 0.07479982508547143583
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, 0.06731984257692429086
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, 0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, 0.05983986006837715282
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, 0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.03739991254273571791
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01030835089459153364, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01030835089459153364, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01718058482431921927, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01718058482431921927, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01030835089459153364, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02405281875404690836, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02748893571891075291, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02405281875404690836, -0.03739991254273571791
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01374446785945537645, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02748893571891075291, -0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02061670178918306728, -0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01718058482431921927, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01030835089459153364, -0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01374446785945537645, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, -0.03739991254273571791
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02061670178918306728, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02748893571891075291, -0.05235987755983000091
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02748893571891075291, -0.03739991254273571791
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02405281875404690836, -0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02405281875404690836, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.02061670178918306728, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.03739991254273571791
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, 0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01030835089459153364, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01718058482431921927, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01030835089459153364, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02061670178918306728, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02061670178918306728, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02405281875404690836, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01030835089459153364, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02405281875404690836, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.02061670178918306728, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01030835089459153364, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01374446785945537645, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.01030835089459153364, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, 0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, 0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01718058482431921927, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01374446785945537645, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.01030835089459153364, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.03739991254273571791
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, -0.04487989505128286288
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.02243994752564143144
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.02991993003418857641
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter -0.006872233929727688227, 0
|
||||
|
||||
' Roll View
|
||||
Set swModelView = Part.ActiveView
|
||||
swModelView.RollBy 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.05154175447295766127, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, -0.01495996501709428821
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.006872233929727688227, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0, -0.007479982508547144103
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.RotateAboutCenter 0.003436116964863844114, 0
|
||||
|
||||
' Roll View
|
||||
Set swModelView = Part.ActiveView
|
||||
swModelView.RollBy 0
|
||||
Set myModelView = Part.ActiveView
|
||||
myModelView.FrameState = swWindowState_e.swWindowMaximized
|
||||
swApp.ExitApp
|
||||
End Sub
|
BIN
src/Nemma 17/Nemma 17 dimensions.png
Normal file
After Width: | Height: | Size: 87 KiB |
BIN
src/Nemma 17/Nemma 17.JPG
Normal file
After Width: | Height: | Size: 825 KiB |