490x
001634
2020-07-28

[EN] FAQ 004563 | Como é que posso criar excentricidades de barras no RF-COM?

Pergunta:
Como é que posso criar excentricidades de barras no RF-COM?

Resposta:
A seguinte macro VBA mostra a criação de duas excentricidades de barra. O código fonte pode ser encontrado em Downloads.

'--------------------------------------------------------------------------------------------------
Sub SetEccs()
'--------------------------------------------------------------------------------------------------
Dim model As RFEM5.model
Dim data As IModelData
Dim ecc(1) As RFEM5.MemberEccentricity

    ' Obter interface para o modelo
    Set model = GetObject(, "RFEM5.Model")

    ' Bloquear licença COM e acesso ao programa
    model.GetApplication.LockLicense

    On Error GoTo e
    ' Obter interface para os dados do modelo
    Set data = model.GetModelData

   ' Definir excentricidade 1
    ecc (0) .Não = 1
    ecc (0) .ReferenceSystem = LocalSystemType
    ecc (0) .Inicio.X = 0,01
    ecc (0) .Início.Y = 0,02
    ecc (0) .Inicio.Z = 0,03
    ecc (0) .End.X = -0,01
    ecc (0) .End.Y = -0,02
    ecc (0) .End.Z = -0,03
    ecc (0). Comentário = "excentricidade 1"

   ' Definir excentricidade 2
    ecc (1) .Não = 2
    ecc (1) .ReferenceSystem = GlobalSystemType
    ecc (1) .Inicio.X = -0,07
    ecc (1) .Start.Y = -0,08
    ecc (1) .Inicio.Z = -0,09
    ecc (1) .End.X = 0,07
    ecc (1) .End.Y = 0,08
    ecc (1) .End.Z = 0,09
    ecc (1). Comentário = "excentricidade 2"

    ' Transferir excentricidades de barras
    data.PrepareModification
    data.SetMemberEccentricities ecc

e:  data.FinishModification
    If Err.Number 0 Then MsgBox Err.Description,, Err.Source
    Set data = Nothing
    A licença ' COM está desbloqueada, é possível novamente aceder ao programa
    model.GetApplication.UnlockLicense
    Set model = Nothing

End Sub