Ankündigung

Einklappen
Keine Ankündigung bisher.

Members loads with RF-COM

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • Members loads with RF-COM

    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

  • #2
    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
    Support Team der
    Dlubal Software GmbH
    [email protected]
    https://www.dlubal.com

    Kommentar


    • #3
      Hi Thomas,
      Thank you for your answer.
      I checked the link but i dont see any information concerning the varying loads.
      Klicke auf die Grafik für eine vergrößerte Ansicht

Name: varying load.JPG
Ansichten: 98
Größe: 50,3 KB
ID: 3642

      Kommentar


      • #4
        Hello again,

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

        Klicke auf die Grafik für eine vergrößerte Ansicht

Name: 2022-02-09_09-13-25.jpg
Ansichten: 90
Größe: 49,7 KB
ID: 3651

        I'm happy to answer any question further available.
        Support Team der
        Dlubal Software GmbH
        [email protected]
        https://www.dlubal.com

        Kommentar


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

          Kommentar


          • #6
            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

            Klicke auf die Grafik für eine vergrößerte Ansicht

Name: 2022-02-16_14-00-55.jpg
Ansichten: 82
Größe: 36,2 KB
ID: 3665
            Angehängte Dateien
            Support Team der
            Dlubal Software GmbH
            [email protected]
            https://www.dlubal.com

            Kommentar

            Lädt...
            X