Vytvoření uzlových uvolnění pomocí rozhraní COM

Je možné pomocí rozhraní COM vytvořit uzlové uvolnění?

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.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 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.PrepareModification
        iModeldata.SetNodalRelease nodRel
        iModeldata.FinishModification
        
        
e:      If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
    
    iApp.UnlockLicense


End Sub

Je 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í.

Autor

Ing. Günthel zajišťuje technickou podporu zákazníkům.

Stahování

;