Odpověď:
Ano, vytvoření uzlových uvolnění pomocí rozhraní COM je možné. Zde je příklad:
Sub nodal_release()
Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.model On Error GoTo e Set iApp = GetObject(, "RFEM5.Application") iApp.LockLicense test = iApp.GetModelCountSet iModel = iApp.GetModel(0) Dim iModeldata As RFEM5.iModeldataSet iModeldata = iModel.GetModelData ' for setting a nodal release a member hinge is needed' the object for the axis system could not be the same with the released oneDim nodRel As NodalRelease nodRel.Location = OriginalLocationType nodRel.AxisSystem = LocalFromLine nodRel.AxisSystemFromObjectNo = 2nodRel.Comment = "test nodal release" nodRel.MemberHingeNo = 1 nodRel.NodeNo = 1 nodRel.ReleasedMembers = 1 iModeldata.PrepareModification iModeldata.SetNodalRelease nodRel iModeldata.FinishModification e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source iApp.UnlockLicense
End SubJe třeba ještě vzít do úvahy to, že lokální osový systém se nesmí vztahovat na stejné prvky jako ty, které se uvolňují.
Dlubal_KohlA.png?mw=350&hash=6f6b192b31c8bbcb1c62aa6cf9fbfb1d9f859880)
.png?mw=512&hash=a6554b61e9e1fd9d04988e8232c47f235a60663b)
