433x
003570
2019-09-10

Domanda

È possibile creare svincoli nodali tramite l'interfaccia COM?


Risposta:

Sì, è possibile creare gli svincoli nodali tramite l'interfaccia COM. Ecco un esempio:

Sub nodal_release()

Dim iApp As RFEM5.Application
Dim iModel As RFEM5.model
    
On Error GoTo e
    
Imposta iApp = GetObject(, "RFEM5.Application")
iApp.LockLicense
        
test = iApp.GetModelCount
Imposta iModel = iApp.GetModel(0)
        
Dim iModeldata As RFEM5.iModeldata
Imposta iModeldata = iModel.GetModelData
        
        
' per impostare uno svincolo nodale è necessaria una cerniera dell'asta
' l'oggetto per il sistema di assi non potrebbe essere lo stesso con quello rilasciato
Dim nodRel As NodalRelease
nodRel.Location = OriginalLocationType
nodRel.AxisSystem = LocalFromLine
nodRel.AxisSystemFromObjectNo = 2
nodRel.Comment = "verifica rilascio nodale"
nodRel.MemberHingeNo = 1
nodRel.NodeNo = 1
nodRel.ReleasedMembers = 1
        
iModeldata.PrepareModification
iModeldata.SetNodalRelease nodRel
iModeldata.FinishModification
        
        
e: Se Err.Number <> 0 allora MsgBox Err.description, , Err.Source
    
iApp.UnlockLicense


End Sub


Si prega di notare che il sistema di assi locale potrebbe non fare riferimento agli stessi elementi di quelli che vengono rilasciati.