La rotation d'un appui nodal est effectuée à l'aide d'un système de coordonnées défini par l'utilisateur. Dans l'exemple suivant, un appui nodal est en rotation à 45 ° autour de l'axe z. Il n'est pas nécessaire de définir un nouveau système de coordonnées via les nœuds. Dans ce cas, il suffit d'utiliser l'option RotatedSystemType, qui permet une rotation spatiale de l'appui via les trois rotations autour des axes x, y et z. La rotation est entrée en radians :
Sous test_appui_nodal ()
Dim iApp As RFEM5.ApplicationSet iApp = GetObject(, "RFEM5.Application")
iApp.LockLicense
Dim iMod As RFEM5.IModel3Set iMod = iApp.GetActiveModel
On Error GoTo e
'obtenir l'interface des données du modèleDim iModData As RFEM5.IModelData2Set iModData = iMod.GetModelData
'obtenir l'interface de l'appui nodalDim iNs comme RFEM5.INodalSupportDéfinir iNs = iModData.GetNodalSupport (1, AtNo)
'obtenir les données de l'appui nodalDim ns As RFEM5.NodalSupportns = iNs.GetData
'modifier les donnéesns.ReferenceSystem = UserDefinedSystemTypens.UserDefinedReferenceSystem.Axis1 = AxisXns.UserDefinedReferenceSystem.Axis2 = AxeYns.UserDefinedReferenceSystem.Type = RotatedSystemTypens.UserDefinedReferenceSystem.RotationAngles.X = 0ns.UserDefinedReferenceSystem.RotationAngles.Y = 0ns.UserDefinedReferenceSystem.RotationAngles.Z = 45 * 3,14159265359/180
'obtenir les données de l'appui nodaliModData.PrepareModificationiNs.SetData nsiModData.FinishModification
e:
If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicenseSet iMod = Nothing
End Sub
Le programme prélève l'appui nodal existant du modèle actuellement ouvert puis le modifie. Le système de coordonnées défini par l'utilisateur ne faisant pas directement partie de l'interface INodalSupport de l'appui nodal, la rotation peut également être transférée lors de la création d'un appui nodal.