Para poder asignar una excentricidad a una barra, generalmente es necesario crearla antes de configurar la barra.
Otro enfoque se muestra en el siguiente ejemplo. Primero, se crea la excentricidad y luego se asigna a una barra existente a través de su interfaz:
' ---------------------Subconjunto Excentricidad ()' ---------------------
Dim model As RFEM5.modelEstablecer modelo = GetObject (, "RFEM5.Model") model.GetApplication.LockLicense
On Error GoTo e
Atenuar iModData como RFEM5.iModelDataEstablecer iModData = model.GetModelData
' crea excentricidadDim eccens (0 a 0) Como RFEM5.eccens (0) .No = 1eccens (0) .Comment = "prueba de excentricidad"
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 = Inferior
eccens (0) .TransverseOffset = Verdaderoeccens (0) .ReferenceObjectNo = 2eccens (0) .ReferenceObjectType = MemberObjecteccens (0) .HorizontalAxisOffset = Medioeccens (0) .VerticalAxisOffset = Arriba
eccens (0) .StartAdjoiningMembersOffset = Falseeccens (0) .EndAdjoiningMembersOffset = Falso
iModData.PrepareModificationiModData.SetMemberEccentricities eccensiModData.FinishModification
' agregar excentricidad al miembroDim iMem como RFEM5.IMemberEstablecer iMem = iModData.GetMember (1, AtNo)
Dim mem como miembro de RFEM5.mem = iMem.GetData
mem.EccentricityNo = 1
iModData.PrepareModificationiMem.SetData memiModData.FinishModification
e: If Err.Number <> 0 Then MsgBox Err.Description`` Err.Source
model.GetApplication.UnlockLicense
End Sub
Las excentricidades de las barras solo se pueden transferir como un campo; para ello, se ha creado un campo con un solo elemento. En la imagen adjunta, los elementos individuales están desglosados con referencia a los elementos gráficos.