Obrót podpory węzłowej jest definiowany za pomocą układu współrzędnych zdefiniowanego przez użytkownika. W poniższym przykładzie podpora węzłowa jest obrócona o 45 ° wokół osi z. Nie ma potrzeby definiowania nowego układu współrzędnych poprzez węzły. W tym przypadku wystarczy użyć opcji RotatedSystemType, która umożliwia przestrzenny obrót podpory poprzez trzy obroty wokół osi x, y i z. Obrót jest wprowadzany w radianach:
Sub test_nodal_support ()
Dim iApp As RFEM5.ApplicationUstaw iApp = GetObject (, "RFEM5.Application")
iApp.LockLicense
Dim iMod As RFEM5.IModel3Set iMod = iApp.GetActiveModel
On Error GoTo e
' pobierz interfejs danych modeluDim iModData As RFEM5.IModelData2Set iModData = iMod.GetModelData
' pobierz interfejs podpory węzłowejDim iNs As RFEM5.INodalSupportUstaw iNs = iModData.GetNodalSupport (1, AtNo)
' pobierz dane podpory węzłowejDim ns As RFEM5.NodalSupportns = iNs.GetData
' modyfikować danens.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
' ustawić dane podpory węzłowejiModData.PrepareModificationiNs.SetData nsiModData.FinishModification
e:
Jeżeli Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicenseUstaw iMod = Nic
Koniec podrzędny
Program pobiera istniejącą podporę węzłową z aktualnie otwartego modelu i modyfikuje ją. Ponieważ układ współrzędnych zdefiniowany przez użytkownika nie jest bezpośrednią częścią interfejsu podpory węzłowej, obrót można oczywiście przenieść również podczas tworzenia podpory węzłowej.