Odpověď:
Natočení uzlové podpory se provádí pomocí uživatelsky definovaného souřadného systému. V následujícím příkladu je uzlová podpora natočena o 45° okolo osy z. Není přitom nutné zadávat nový souřadný systém pomocí uzlů. V tomto případě stačí použít volbu RotatedSystemType, která umožňuje prostorové natočení podpory třemi rotacemi okolo os x, y a z. Rotace se zadává v radiánech:
Sub test_nodal_support()
Dim iApp As RFEM5.ApplicationSet iApp = GetObject(, "RFEM5.Application")
iApp.LockLicense
Dim iMod As RFEM5.IModel3Set iMod = iApp.GetActiveModel
On Error GoTo e
' get interface of modeldataDim iModData As RFEM5.IModelData2Set iModData = iMod.GetModelData
' get interface of nodal supportDim iNs As RFEM5.INodalSupportSet iNs = iModData.GetNodalSupport(1, AtNo)
' get nodal support dataDim ns As RFEM5.NodalSupportns = iNs.GetData
' modify datans.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
' set nodal support dataiModData.PrepareModificationiNs.SetData nsiModData.FinishModification
e:
If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicenseSet iMod = Nothing
End SubProgram převezme stávající uzlovou podporu z aktuálně otevřeného modelu a upraví ji. Vzhledem k tomu, že uživatelsky definovaný souřadný systém není přímou součástí rozhraní INodalSupport uzlové podpory, je samozřejmě možné při vytváření uzlové podpory přenášet také natočení.
