Creating Member Eccentricity via COM Interface

Helpful Questions & Answers

  • Frequently Asked Questions (FAQs)

New

06/16/2021

005026

Thomas Günthel

RF-COM

RS-COM

RFEM

RSTAB

How can I create a member eccentricity using the COM interface?

Answer

In order to be able to assign an eccentricity to a member, it is usually necessary to create it before setting the member.

Another approach is shown in the following example. First, the eccentricity is created and then assigned to an existing member via its interface:


'---------------------
Sub SetEccentricity()
'---------------------

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

On Error GoTo e

Dim iModData As RFEM5.iModelData
Set iModData = model.GetModelData

'   create eccentricity
Dim eccens(0 To 0) As RFEM5.MemberEccentricity
eccens(0).No = 1
eccens(0).Comment = "test eccentricity"

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 = Bottom

eccens(0).TransverseOffset = True
eccens(0).ReferenceObjectNo = 2
eccens(0).ReferenceObjectType = MemberObject
eccens(0).HorizontalAxisOffset = Middle
eccens(0).VerticalAxisOffset = Top

eccens(0).StartAdjoiningMembersOffset = False
eccens(0).EndAdjoiningMembersOffset = False

iModData.PrepareModification
iModData.SetMemberEccentricities eccens
iModData.FinishModification

'   add eccentricity to member
Dim iMem As RFEM5.IMember
Set iMem = iModData.GetMember(1, AtNo)

Dim mem As RFEM5.Member
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


Member eccentricities can only be transferred as a field; for this purpose, a field with only one element has been created. In the attached image, the individual elements are itemized with reference to the graphical elements.

Keywords

Eccentricity COM

Downloads

Links

Write Comment...

Write Comment...

  • Views 92x
  • Updated 07/02/2021

Contact us

Contact Dlubal

Did you find your question?
If not, contact us via our free e-mail, chat, or forum support, or send us your question via the online form.

(267) 702-2815

info-us@dlubal.com

Online training | English

Eurocode 2 | Concrete structures according to DIN EN 1992-1-1

Online Training 07/29/2021 8:30 AM - 12:30 PM CEST

Online training | English

RFEM | Structural dynamics and earthquake design according to EC 8

Online Training 08/11/2021 8:30 AM - 12:30 PM CEST

Online Training | English

RFEM for Students | USA

Online Training 08/11/2021 1:00 PM - 4:00 PM EDT

Online training | English

Eurocode 3 | Steel structures according to DIN EN 1993-1-1

Online Training 08/25/2021 8:30 AM - 12:30 PM CEST

Online Training | English

Eurocode 5 | Timber structures according to DIN EN 1995-1-1

Online Training 09/23/2021 8:30 AM - 12:30 PM CEST

Glass Design with Dlubal Software

Glass Design with Dlubal Software

Webinar 06/08/2021 2:00 PM - 2:45 PM CEST

Blast Time History Analysis in RFEM

Blast Time History Analysis in RFEM

Webinar 05/13/2021 2:00 PM - 3:00 PM EDT

Timber structures | Part 2: Design

Timber Beam and Surface Structures | Part 2: Design

Webinar 05/11/2021 2:00 PM - 3:00 PM CEST

Plate and Shell Buckling Utilizing Dlubal Software

Plate and Shell Buckling Utilizing Dlubal Software

Webinar 03/30/2021 2:00 PM - 2:45 PM CEST

CSA S16:19 Steel Design in RFEM

CSA S16:19 Steel Design in RFEM

Webinar 03/10/2021 2:00 PM - 3:00 PM EDT

The Most Common User Errors With RFEM and RSTAB

The Most Common User Errors With RFEM and RSTAB

Webinar 02/04/2021 2:00 PM - 3:00 PM BST

ADM 2020 Member Design in RFEM

ADM 2020 Member Design in RFEM

Webinar 01/19/2021 2:00 PM - 3:00 PM EDT

Dlubal Info Day

Dlubal Info Day Online | December 15, 2020

Webinar 12/15/2020 9:00 AM - 4:00 PM BST

FEA Troubleshooting and Optimization in RFEM

FEA Troubleshooting and Optimization in RFEM

Webinar 11/11/2020 2:00 PM - 3:00 PM EDT

Soil-Structure Interaction in RFEM

Soil-Structure Interaction in RFEM

Webinar 10/27/2020 2:00 PM - 2:45 PM BST

NBC 2015 Modal Response Spectrum Analysis in RFEM

NBC 2015 Modal Response Spectrum Analysis in RFEM

Webinar 09/30/2020 2:00 PM - 3:00 PM EDT

Documenting Results in the RFEM Printout Report

Webinar 08/25/2020 2:00 PM - 2:45 PM CEST

ACI 318-19 Concrete Design in RFEM

ACI 318-19 Concrete Design in RFEM

Webinar 08/20/2020 2:00 PM - 3:00 PM EDT

}