Auto Rotation, is it available???
Auto Rotation, is it available???
(OP)
Back when I used CadKey I could set a solid model to rotate about a point, origin, etc and sit back and watch it rotate, around, around, until I stopped it. Does SW have this option somewhere?
I did check the help files as well and the search here on the forum with no luck.
Thanks,
Bloodclot
I did check the help files as well and the search here on the forum with no luck.
Thanks,
Bloodclot
***** Fear not those who argue but those who dodge *****
Dell Precision 670
3.0 Ghz Xeon Processor
Nvidia FX3450
3 gig of RAM
Dual 19" Viewsonics






RE: Auto Rotation, is it available???
Chris
Systems Analyst, I.S.
SolidWorks 06 4.1/PDMWorks 06
AutoCAD 06
ctopher's home (updated 06-21-06)
RE: Auto Rotation, is it available???
I forgot to add this to the original message. I was wondering if this kind of automatic rotation is possible outside of animator. I was hoping for a botton that I could add to a toolbar or maybe even a macro.
Thanks,
Bloodclot
***** Fear not those who argue but those who dodge *****
Dell Precision 670
3.0 Ghz Xeon Processor
Nvidia FX3450
3 gig of RAM
Dual 19" Viewsonics
RE: Auto Rotation, is it available???
ht
Flores
SW06 SP4.1
RE: Auto Rotation, is it available???
mncad
RE: Auto Rotation, is it available???
CODE
' SolidWorks graphics benchmark
' v1.00
'
' Tests rotation & zoom speed of your current model.
' ******************************************************************************
Dim swApp As Object
Dim swModel As Object
Dim swModelView As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim runTimeRotate As String
Dim runTimeZoom As String
Dim i As Double
Dim s As Double
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelView = swModel.ActiveView
Set SelMgr = swModel.SelectionManager
' Rotating performance
swModel.ShowNamedView2 "*Isometric", -1
swModel.ViewZoomtofit2
nStart = Timer
For i = 0 To 1000
swModel.ActiveView().RotateAboutCenter -3.14159265358979E-03, 0
swModel.ActiveView().RotateAboutCenter 0, -3.14159265358979E-03
Next i
runTimeRotate = Timer - nStart & " seconds"
' Zooming performance
swModel.ShowNamedView2 "*Isometric", -1
swModel.ViewZoomtofit2
s = swModelView.Scale2
nStart = Timer
For i = 1 To 1001
s = s * 1.005
swModelView.Scale2 = s
swModel.GraphicsRedraw2
' swModel.ViewZoomTo2 -6.39704, 0.902824, 2.96739, -0.347961, -3.72995, 2.96739
' swModel.ViewZoomtofit2
Next i
runTimeZoom = Timer - nStart & " seconds"
' Set the properties
propRet = swModel.AddCustomInfo3("", "benchmarkRotate", swCustomInfoText, runTimeRotate)
propRet = swModel.AddCustomInfo3("", "benchmarkZoom", swCustomInfoText, runTimeZoom)
' Return to isometric position
' swModel.ShowNamedView2 "*Isometric", -1
' swModel.ViewZoomtofit2
End Sub
Stefan Hamminga
EngIT Solutions
CSWP/Mechanical designer/AI student
RE: Auto Rotation, is it available???
Bloodclot
***** Fear not those who argue but those who dodge *****
Dell Precision 670
3.0 Ghz Xeon Processor
Nvidia FX3450
3 gig of RAM
Dual 19" Viewsonics
RE: Auto Rotation, is it available???