Wie kann ich über die COM-Schnittstelle einen Stab nachträglich verändern?

Antwort

Um ein vorhandenes Element verändern zu können, muss das Interface zum entsprechenden Element geholt werden, hier am Beispiel eines Stabes:

    Dim iModel As RSTAB8.model
    Set iModel = GetObject(, "RSTAB8.Model")
    iModel.GetApplication.LockLicense
    
    Dim iModData As IModelData
    Set iModData = iModel.GetModelData
    
    Dim iMem As RSTAB8.IMember
    Set iMem = iModData.GetMember(1, AtNo)

Über diesen Code wird das Interface zum Stab 1 geholt, welcher bereits angelegt sein muss. Danach können über die Methode .GetData() des Interfaces die Stabdaten geholt werden.

Falls Daten modifiziert werden sollen (wie hier die Stabdrehung), können diese danach innerhalb eines Prepare-/FinishModification-Blocks mit der Methode .SetData() an das Programm übergeben werden:


    Dim mem As RSTAB8.Member
    mem = iMem.GetData
    
    mem.Rotation.Angle = 0.5
    mem.Rotation.Type = RSTAB8.Angle
   
    iModData.PrepareModification
    iMem.SetData mem
    iModData.FinishModification

Schlüsselwörter

COM Rotation Member Stab IMember verändern modifzieren

Downloads

Kontakt

Kontakt zu Dlubal

Haben Sie Ihre Frage und Antwort gefunden? Wenn nicht, kontaktieren Sie uns über unseren kostenlosen E-Mail-, Chat- bzw. Forum-Support oder reichen Sie Ihre Frage mittels des Online-Formulars ein.

+49 9673 9203 0

info@dlubal.com

RFEM Hauptprogramm
RFEM 5.xx

Basisprogramm

Das FEM-Programm RFEM ermöglicht die schnelle und einfache Modellierung, Berechnung und Bemessung von Tragkonstruktionen mit Stab-, Platten-, Scheiben-, Faltwerk-, Schalen- und Volumen-Elementen aus verschiedenen Materialien.

Erstlizenzpreis
3.540,00 USD
RSTAB Hauptprogramm
RSTAB 8.xx

Basisprogramm

Das 3D-Statik-Programm RSTAB eignet sich für die Berechnung von Stabwerken aus Stahl, Beton, Holz, Aluminium oder anderen Materialien. Mit RSTAB definieren Sie einfach und schnell das Tragwerksmodell und berechnen dann die Schnittgrößen, Verformungen und Lagerreaktionen.

Erstlizenzpreis
2.550,00 USD
RFEM Sonstige
RF-COM 5.xx

Zusatzmodul

Programmierbare COM-Schnittstelle

Erstlizenzpreis
580,00 USD
RSTAB Sonstige
RS-COM 8.xx

Zusatzmodul

Programmierbare COM-Schnittstelle

Erstlizenzpreis
580,00 USD