[EN] FAQ 004563 | Wie können mit RF-COM Stabexzentrizitäten angelegt werden?

Erfahren Sie bequem, wie mit Dlubal-Programmen gearbeitet wird.

  • Dlubal Software | Videos

Video

Erste Schritte mit RFEM

Erste Schritte

Wir geben Ihnen Hinweise und Tipps, die Ihnen den Einstieg in das Basisprogramm RFEM erleichtern.

Please accept marketing-cookies to watch this video.

Frage

Wie können mit RF-COM Stabexzentrizitäten angelegt werden?

Antwort

Das folgende VBA-Makro zeigt die Erzeugung zweier Stabexzentrizitäten. Der Quellcode kann unter den Downloads heruntergeladen werden.

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

    'Get interface for model
    Set model = GetObject(, "RFEM5.Model")
    
    ' Block COM licence and program access
    model.GetApplication.LockLicense

    On Error GoTo e
    ' Get interface for model data
    Set data = model.GetModelData

   'Define eccentricity 1
    ecc(0).No = 1
    ecc(0).ReferenceSystem = LocalSystemType
    ecc(0).Start.X = 0.01
    ecc(0).Start.Y = 0.02
    ecc(0).Start.Z = 0.03
    ecc(0).End.X = -0.01
    ecc(0).End.Y = -0.02
    ecc(0).End.Z = -0.03
    ecc(0).Comment = "eccentricity 1"
    
   'Define eccentricity 2
    ecc(1).No = 2
    ecc(1).ReferenceSystem = GlobalSystemType
    ecc(1).Start.X = -0.07
    ecc(1).Start.Y = -0.08
    ecc(1).Start.Z = -0.09
    ecc(1).End.X = 0.07
    ecc(1).End.Y = 0.08
    ecc(1).End.Z = 0.09
    ecc(1).Comment = "eccentricity 2"
    
    'Transfer member eccentricities
    data.PrepareModification
    data.SetMemberEccentricities ecc

e:  data.FinishModification
    If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
    Set data = Nothing
    ' COM licence is unlocked, program access possible again
    model.GetApplication.UnlockLicense
    Set model = Nothing

End Sub

Schlüsselwörter

Dlubal FAQ Stabexzentrizität Excel VBA Häufig gestellte Frage FAQ zu Dlubal Frage und Antwort zu Dlubal

Links

Schreiben Sie einen Kommentar...

Schreiben Sie einen Kommentar...

  • Aufrufe 123x
  • Aktualisiert 18. Februar 2021

Kontakt

Kontakt zu Dlubal

Haben Sie Fragen zu unseren Produkten oder brauchen Sie einen Rat zur Auswahl der Produkte zur Bearbeitung Ihrer Projekte? Kontaktieren Sie uns über unseren kostenlosen E-Mail-, Chat- bzw. Forum-Support oder nutzen Sie die häufig gestellten Fragen (FAQs) rund um die Uhr.

+49 9673 9203 0

info@dlubal.com