La rotazione di un vincolo esterno nodale è definita per mezzo di un sistema di coordinate definito dall'utente. Nell'esempio seguente, un vincolo esterno nodale viene ruotato di 45 ° attorno all'asse z. Non è necessario definire un nuovo sistema di coordinate tramite i nodi. In questo caso, è sufficiente utilizzare l'opzione RotatedSystemType, che consente una rotazione spaziale del vincolo esterno tramite tre rotazioni intorno agli assi x, y e z. La rotazione è inserita in radianti:
Sottotest_nodal_support ()
Dim iApp As RFEM5.ApplicationImposta iApp = GetObject (, "RFEM5.Application")
iApp.LockLicense
Dim iMod As RFEM5.IModel3Imposta iMod = iApp.GetActiveModel
On Error GoTo e
' ottieni l'interfaccia dei modeldataDim iModData As RFEM5.IModelData2Imposta iModData = iMod.GetModelData
' ottieni l'interfaccia del supporto nodaleDim iNs As RFEM5.INodalSupportImposta iNs = iModData.GetNodalSupport (1, AtNo)
' ottieni i dati del vincolo nodaleDim ns As RFEM5.NodalSupportns = iNs.GetData
' modifica i datins.ReferenceSystem = UserDefinedSystemTypens.UserDefinedReferenceSystem.Axis1 = AxisXns.UserDefinedReferenceSystem.Axis2 = AxisYns.UserDefinedReferenceSystem.Type = RotatedSystemTypens.UserDefinedReferenceSystem.RotationAngles.X = 0ns.UserDefinedReferenceSystem.RotationAngles.Y = 0ns.UserDefinedReferenceSystem.RotationAngles.Z = 45 * 3,14159265359/180
' imposta i dati del vincolo nodaleiModData.PrepareModificationiNs.SetData nsiModData.FinishModification
e:
If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicenseSet iMod = Nothing
End Sub
Il programma prende il vincolo nodale esistente dal modello attualmente aperto e lo modifica. Poiché il sistema di coordinate definito dall'utente non è una parte diretta dell'interfaccia INodalSupport del vincolo nodale, la rotazione può anche essere trasferita durante la creazione di un vincolo nodale, ovviamente.