10 September 2019

FAQ 003570 EN

Thomas Günthel

Modeling | Structure


Is it possible to create nodal releases via the COM interface?


Yes, it is possible to create nodal releases via the COM interface. Here is an example:

Sub nodal_release ()

Dim iApp As RFEM5.Application
Dim iModel As RFEM5.model
On Error GoTo e
Set iApp = GetObject (, "RFEM5.Application")
test = iApp.GetModelCount
Set iModel = iApp.GetModel (0)
Dim iModeldata As RFEM5.iModeldata
Set 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 one
Dim nodRel As NodalRelease
nodRel.Location = OriginalLocationType
nodRel.AxisSystem = LocalFromLine
nodRel.AxisSystemFromObjectNo = 2
nodRel.Comment = "test nodal release"
nodRel.MemberHingeNo = 1
nodRel.NodeNo = 1
nodRel.ReleasedMembers = 1
iModeldata.SetNodalRelease nodRel
e: If Err.Number <> 0 Then MsgBox Err.description,, Err.Source

End Sub

Please note that the local axis system may not refer to the same elements as the ones that are released.


Nodal release COM Node Release


Contact us

Contact to Dlubal

Did you find your question?
If not, contact us via our free e-mail, chat, or forum support, or send us your question via the online form.

+49 9673 9203 0


RFEM Other
RF-COM 5.xx

Add-on Module

Programmable interface (API) based on the COM technology

Price of First License
580.00 USD