' ---------------------
Subconjunto Excentricidad ()
' ---------------------
Dim model As RFEM5.model
Establecer modelo = GetObject (, "RFEM5.Model")
model.GetApplication.LockLicense
On Error GoTo e
Atenuar iModData como RFEM5.iModelData
Establecer iModData = model.GetModelData
' crea excentricidad
Dim eccens (0 a 0) Como RFEM5.
eccens (0) .No = 1
eccens (0) .Comment = "prueba de excentricidad"
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 = Inferior
eccens (0) .TransverseOffset = Verdadero
eccens (0) .ReferenceObjectNo = 2
eccens (0) .ReferenceObjectType = MemberObject
eccens (0) .HorizontalAxisOffset = Medio
eccens (0) .VerticalAxisOffset = Arriba
eccens (0) .StartAdjoiningMembersOffset = False
eccens (0) .EndAdjoiningMembersOffset = Falso
iModData.PrepareModification
iModData.SetMemberEccentricities eccens
iModData.FinishModification
' agregar excentricidad al miembro
Dim iMem como RFEM5.IMember
Establecer iMem = iModData.GetMember (1, AtNo)
Dim mem como miembro de RFEM5.
mem = iMem.GetData
mem.EccentricityNo = 1
iModData.PrepareModification
iMem.SetData mem
iModData.FinishModification
e: If Err.Number <> 0 Then MsgBox Err.Description`` Err.Source
model.GetApplication.UnlockLicense
End Sub