sceneviewerctrl中实现旋转

<P>'旋转<BR>Public Sub Rotate()</P>
<P>Dim pviewer As ISceneViewer<BR>Set pviewer = frmscenemain.SceneView1.SceneGraph.ActiveViewer<BR>Dim pcamera As ICamera<BR>Set pcamera = pviewer.Camera<BR>Dim pdispatch As IMessageDispatcher<BR>Set pdispatch = New MessageDispatcher<BR>pdispatch.CancelOnClick = True<BR>pdispatch.CancelOnEscPress = True<BR>Dim bcancel As Boolean<BR>bcancel = False<BR>Do While (Not bcancel)<BR>    pcamera.Rotate 1.5<BR>    pviewer.Redraw True<BR>    pdispatch.Dispatch pviewer.hwnd, False, bcancel<BR>Loop</P>
<P>End Sub</P>

不错滴东东，希望多一点了，那样学3d开发的就舒服了