Bonjour!
Voici mon problème:
J'ai une scène avec un objet central qui est fixe et une caméra qui tourne autour avec la fonction "Arc rotate".
Quand j'active cette option dans l'action builder ça fonctionne, la caméra tourne autour. Mais ensuite, j'ai voulu désactiver cette option pour remettre ma caméra à un endroit précis (un bouton RAZ en fait).
Donc j'ai essayé de tout faire dans le script, mais je n'arrive même pas à activer "Arc rotate". Je suppose qu'une fois activée, ça doit plus être trop compliqué de désactiver.
Si vous pouviez m'aider merci!
Script (tentative d'activation de l'option "arc rotate", et tentative de désactivation en cliquant sur le bouton home):
Quote:#Region "Imports"
Imports System
Imports System.Xml
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Net.Sockets
Imports System.Collections.Generic
Imports System.Drawing
Imports System.Windows.Forms
Imports Vertice.Nova
Imports Vertice.Nova.Actions
Imports Vertice.Nova.Materials
Imports Vertice.Nova.Animations
Imports Vertice.Nova.Physics
Imports Vertice.Nova.Core
Imports System.IO
Imports Vertice.NovaExplorer
Imports Vertice.Nova.InputControls
Imports Vertice.MathServices
Imports Vertice.Nova.PostProcesses
#End Region
Class Script
Private Button_Home As NovaObject
Private Button_Aide As NovaObject
Private PositionCam As Vector3
Private PositionCamCible As Vector3
Private Camera As NovaCamera
Private ArcRotate As NovaArcRotateOnObjectAction
Public Sub New(scene As NovaScene)
Button_Home = scene.GetObject("Home_Mode")
Button_Aide = scene.GetObject("Aide_Mode")
Camera = scene.GetCamera("Caméra01")
PositionCam = Camera.Position
PositionCamCible = Camera.Target.Position
AddHandler Button_Home.Interaction, AddressOf HomeAddress
AddHandler Button_Aide.Interaction, AddressOf AideAddress
ArcRotate.ObjectName = "Interaction"
ArcRotate.Enabled = True
End Sub
Private Sub HomeAddress (ByVal source As NovaObject)
ArcRotate.Enabled = False
Camera.Position = PositionCam
Camera.Target.Position = PositionCamCible
ArcRotate.Enabled = True
End Sub
Private Sub AideAddress (ByVal source As NovaObject)
End Sub
Sub Finalize()
RemoveHandler Button_Home.Interaction, AddressOf HomeAddress
RemoveHandler Button_Aide.Interaction, AddressOf AideAddress
End Sub
End Class