This article was translated by Google Translator View original text

New

FAQ 003570 EN

10 September 2019

Thomas Günthel Modeling | Structure RF-COM

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

Answer

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")
iApp.LockLicense
        
test = iApp.GetModelCount
Set iModel = iApp.GetModel (0)
        
Dim iModeldata As RFEM5.iModeldata
Set iModeldata = iModel.GetModelData
        
        
'for a nodal release member is needed'
The object for the axis system could not be the same as 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.PrepareModification
iModeldata.SetNodalRelease nodRel
iModeldata.FinishModification
        
        
e: If Err.Number <> 0 Then MsgBox Err.description,, Err.Source
    
iApp.UnlockLicense


End Sub


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

Keywords

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

info@dlubal.com

RFEM Other
RF-COM 5.xx

Add-on Module

Programmable interface (API) based on the COM technology

Price of First License
580.00 USD