'----------------------
Sub SetEccentricità()
'----------------------
Dim modello Come RFEM5.model
Set model = GetObject(, "RFEM5.Model")
model.GetApplication.LockLicense
On Error GoTo e
Dim iModData As RFEM5.iModelData
Imposta iModData = modello.GetModelData
' crea eccentricità
Dim eccens(0 To 0) As RFEM5.MemberEccentricity
eccens(0).Nr = 1
eccens(0).Comment = "verifica eccentricità"
eccens(0).ReferenceSystem = LocalSystemType
eccens(0).Start.X = 0
eccens(0).Start.Y = 0
eccens(0).Start.Z = 0
eccens(0).End.X = 0
eccens(0).End.Y = 0
eccens(0).End.Z = 0
eccens(0).HingeAtEndNode = False
eccens(0).HingeAtStartNode = False
eccens(0).HorizontalAlignment = Middle
eccens(0).VerticalAlignment = In basso
eccens(0).TransverseOffset = True
eccens(0).ReferenceObjectNo = 2
eccens(0).ReferenceObjectType = MemberObject
eccens(0).HorizontalAxisOffset = Middle
eccens(0).VerticalAxisOffset = superiore
eccens(0).StartAdjoiningMembersOffset = False
eccens(0).EndAdjoiningMembersOffset = False
iModData.PrepareModulation
iModData.SetMemberEccentricities eccens
iModData.FinishModulation
' aggiunge eccentricità all'asta
Dim iMem As RFEM5.IMember
Imposta iMem = iModData.GetMember(1, AtNo)
Dim mem As RFEM5.Member
mem = iMem.GetData
mem.EccentricitàNo = 1
iModData.PrepareModulation
iMem.SetData mem
iModData.FinishModulation
e: Se Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
model.GetApplication.UnlockLicense
End Sub