Members loads with RF-COM

[odo]

Hi everybody,

I'd like to create Varying loads on members from an excel sheet with RF-COM.
Does someone know how to do it?

Best regards

[Thomas Günthel]

Hi,

in the following Technical Article is described how to set a member via RF-COM. There is also described how you can set a varying member load:
https://www.dlubal.com/en/support-an...ge-base/001408

Best Regards
Thomas

[odo]

Hi Thomas,
Thank you for your answer.
I checked the link but i dont see any information concerning the varying loads.

[Thomas Günthel]

Hello again,

the varying load can be used with the load array which is provided in the member load:



I'm happy to answer any question further available.

[odo]

Thank you for your answer.
Is there somewhere an example of the transfer from excel to rfem written in VBA?

[Thomas Günthel]

Here is a short example, it is the modified example from RF-COM-5 - Loads.xlsm example from the SDK:
https://www.dlubal.com/en/support-an...ort/faq/002390



Dim model As RFEM5.model
Set model = GetObject(, "RFEM5.Model")
model.GetApplication.LockLicense

On Error GoTo e

Dim load As RFEM5.ILoadCase
Set load = model.GetLoads.GetLoadCase(0, AtIndex)

Dim data(0) As RFEM5.MemberLoad

data(0).No = 1
data(0).ReferenceTo = MembersType
data(0).ObjectList = "1"
data(0).Type = ForceType
data(0).Distribution = VaryingType
data(0).Direction = LocalZType
data(0).RelativeDistances = True


Dim loadarray(0 To 2, 0 To 1) As Double
loadarray(0, 0) = 25
loadarray(0, 1) = 500
loadarray(1, 0) = 60
loadarray(1, 1) = 2000
loadarray(2, 0) = 90
loadarray(2, 1) = 1000

data(0).loadarray = loadarray

data(0).Magnitude5 = 10
data(0).Comment = "member load 1"

load.PrepareModification
load.SetMemberLoads data
load.FinishModification

e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source

Set load = Nothing
model.GetApplication.UnlockLicense
Set model = Nothing

End Sub