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