Code: Select all
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swConfig As SldWorks.Configuration
Dim swActiveView As SldWorks.ModelView
Dim swScene As SldWorks.swScene
Dim i As Integer
Dim a As Double
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swActiveView = swModel.ActiveView
Set swConfig = swModel.GetActiveConfiguration
Set swScene = swConfig.GetScene
a = 0.015707
For i = 1 To 200
'swScene.FloorAlignment = swSceneFloorAlign_e.swSceneFloorAlign_VIEW 'had no effect
swActiveView.RotateAboutAxis a, 0, 0, 0, 1, 0, 0
Next i
For i = 1 To 200
'swScene.FloorAlignment = swSceneFloorAlign_e.swSceneFloorAlign_VIEW
swActiveView.RotateAboutAxis a, 0, 0, 0, 0, 1, 0
Next i
For i = 1 To 200
'swScene.FloorAlignment = swSceneFloorAlign_e.swSceneFloorAlign_VIEW
swActiveView.RotateAboutAxis a, 0, 0, 0, 0, 0, 1
Next i
End Sub
How can I do this? Macro recorder does not register changing the value of "Rotate about scene floor", so my hopes are not high.