Per poter assegnare un'eccentricità a un'asta, di solito è necessario crearla prima di impostare l'asta.
Un altro approccio è mostrato nel seguente esempio. Innanzitutto, viene creata l'eccentricità e quindi assegnata a un'asta esistente tramite la sua interfaccia:
'----------------------Sub SetEccentricità()'----------------------
Dim modello Come RFEM5.modelSet model = GetObject(, "RFEM5.Model")model.GetApplication.LockLicense
On Error GoTo e
Dim iModData As RFEM5.iModelDataImposta iModData = modello.GetModelData
' crea eccentricitàDim eccens(0 To 0) As RFEM5.MemberEccentricityeccens(0).Nr = 1eccens(0).Comment = "verifica eccentricità"
eccens(0).ReferenceSystem = LocalSystemType
eccens(0).Start.X = 0eccens(0).Start.Y = 0eccens(0).Start.Z = 0
eccens(0).End.X = 0eccens(0).End.Y = 0eccens(0).End.Z = 0
eccens(0).HingeAtEndNode = Falseeccens(0).HingeAtStartNode = False
eccens(0).HorizontalAlignment = Middleeccens(0).VerticalAlignment = In basso
eccens(0).TransverseOffset = Trueeccens(0).ReferenceObjectNo = 2eccens(0).ReferenceObjectType = MemberObjecteccens(0).HorizontalAxisOffset = Middleeccens(0).VerticalAxisOffset = superiore
eccens(0).StartAdjoiningMembersOffset = Falseeccens(0).EndAdjoiningMembersOffset = False
iModData.PrepareModulationiModData.SetMemberEccentricities eccensiModData.FinishModulation
' aggiunge eccentricità all'astaDim iMem As RFEM5.IMemberImposta iMem = iModData.GetMember(1, AtNo)
Dim mem As RFEM5.Membermem = iMem.GetData
mem.EccentricitàNo = 1
iModData.PrepareModulationiMem.SetData memiModData.FinishModulation
e: Se Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
model.GetApplication.UnlockLicense
End Sub
Le eccentricità dell'asta possono essere trasferite solo come campo; a tale scopo, è stato creato un campo con un solo elemento. Nell'immagine allegata, i singoli elementi sono dettagliati in riferimento agli elementi grafici.