Réponse:
La rotation d’un appui nodal est définie à 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 trois rotations autour des axes x, y et z. La rotation est entrée en radiants :
Sub test_nodal_support()
Dim iApp As RFEM5.Application
Set iApp = GetObject(, "RFEM5.Application")
iApp.LockLicense
Dim iMod As RFEM5.IModel3
Set iMod = iApp.GetActiveModel
On Error GoTo e
' get interface of modeldata
Dim iModData As RFEM5.IModelData2
Set iModData = iMod.GetModelData
' get interface of nodal support
Dim iNs As RFEM5.INodalSupport
Set iNs = iModData.GetNodalSupport(1, AtNo)
' get nodal support data
Dim ns As RFEM5.NodalSupport
ns = iNs.GetData
' modify data
ns.ReferenceSystem = UserDefinedSystemType
ns.UserDefinedReferenceSystem.Axis1 = AxisX
ns.UserDefinedReferenceSystem.Axis2 = AxisY
ns.UserDefinedReferenceSystem.Type = RotatedSystemType
ns.UserDefinedReferenceSystem.RotationAngles.X = 0
ns.UserDefinedReferenceSystem.RotationAngles.Y = 0
ns.UserDefinedReferenceSystem.RotationAngles.Z = 45 * 3.14159265359 / 180
' set nodal support data
iModData.PrepareModification
iNs.SetData ns
iModData.FinishModification
e:
If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicense
Set iMod = Nothing
End SubLe programme prend l’appui nodal existant du modèle actuellement ouvert puis le modifie. Étant donné que le système de coordonnées défini par l’utilisateur n’est pas directement intégré dans l’interface INodalSupport de l’appui nodal, la rotation peut bien entendu être transférée lors de la création de l’appui nodal.
Foire aux questions (FAQ)
