Preguntas más frecuentes (FAQ)

Buscar pregunta más frecuente

Show Filter Hide Filter





Soporte técnico 24/7

Base de datos de conocimientos

Además de nuestro soporte técnico (por ejemplo, por medio del chat), podrá encontrar varios recursos en nuestra página web que pueden ayudarle con su cálculo y diseño de estructuras utilizando Dlubal Software.

Boletín de noticias

Reciba información de manera regular sobre noticias, consejos útiles, eventos programados, ofertas especiales y cupones.

  • Respuesta

    A través de la interfaz COM, los gráficos se pueden colocar en el portapapeles e imprimir automáticamente desde allí.
  • Respuesta

    La siguiente macro de VBA muestra la creación de dos excentricidades de miembros. El código fuente se puede descargar en Descargas.

    '------------------------------------------------- -------------------------------------------------
    SubconjuntoEccs ()
    '------------------------------------------------- -------------------------------------------------
    Dim modelo As RSTAB8.model
    Atenuar los datos como IModelData
    Dim ecc (1) As RSTAB8.MemberEccentricity

    'Obtener interfaz para modelo
    Establecer modelo = GetObject (, "RSTAB8.Model")
        
    'Bloquear licencia COM y acceso al programa
        model.GetApplication.LockLicense

        On Error GoTo e
    'Obtener interfaz para datos del modelo
        Set data = model.GetModelData

    "Definir excentricidad 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 = "excentricidad 1"
        
    "Definir excentricidad 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) .Final.X = 0,07
    ecc (1) .End.Y = 0,08
    ecc (1) .End.Z = 0,09
    ecc (1) .Comment = "excentricidad 2"
        
    'Transferir excentricidades de los miembros
        data.PrepareModification
    data.SetMemberEccentricities ecc

    e:  data.FinishModification
        If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
        Set data = Nothing
    'La licencia COM está desbloqueada, es posible acceder de nuevo al programa
        model.GetApplication.UnlockLicense
        Set model = Nothing

    End Sub
  • Respuesta

    Sí, es posible intercambiar datos entre el software LayPLAN por parte de Layher y RSTAB. La herramienta "LayPLAN TO RSTAB" le permite esto.

    Puede transferir fácilmente estructuras de andamios a RSTAB. La interfaz "LayPLAN TO RSTAB" transfiere datos de geometría así como información estáticamente relevante, tal como datos de secciones y materiales, tipos de barras, excentricidades y definiciones de uniones no lineales según la aprobación.

    Para operar esta interfaz, se necesita una licencia activa de RS-COM a RSTAB.

    Una licencia perpetua o una licencia de alquiler está disponible para RS-COM.
  • Respuesta

    Puede usar la interfaz COM para definir condiciones de soporte no lineales. El video y el código adjuntos muestran un ejemplo del fallo del soporte.
  • Respuesta

    Al inicializar una variable del tipo de aplicación (interfaz) con "nuevo", RFEM/RSTAB se inicia en segundo plano. Con esta variable, también puede crear un nuevo modelo utilizando el método "CreateModel" o cerrar el programa utilizando el comando "Cerrar".

    El siguiente ejemplo muestra cómo iniciar RSTAB, crear un modelo con un nudo en el programa y cerrar el programa:


    Sub RSTAB_open_close ()

    Dim nombre de archivo como cadena
    filename = Application.ActiveSheet.Cells (7, 3)

    'start rfem
    Dim iApp As RSTAB8.
    Establezca iApp = New RSTAB8.Application

    iApp.LockLicense
    iApp.Show

    En caso de error, vaya a E

    'crear modelo
    Atenúe el iMod como RSTAB8.IModel2
    Establecer iMod = iApp.CreateModel (nombre de archivo)
        
    'agregar datos al modelo
    Dim nd As RSTAB8.Node
    nd.no = 10
    nd.X = 1
    nd.Y = 2
    nd.Z = 3
        
    Dim iModdata As RSTAB8.iModelData
    Establecer iModdata = iMod.GetModelData
        
    iModdata.PrepareModification
    iModdata.SetNode nd
    iModdata.FinishModification
        
    iMod Guardar archivo


    E: If Err.Number <> 0 entonces MsgBox Err.description,, Err.Source
        
    Establecer iModdata = Nada
    Establecer iMod = Nothing
    iApp.UnlockLicense
    iApp.Close
    Establecer iApp = Nothing
        
    End Sub


    El comando "iApp.Show" es opcional. Esto permite mostrar el programa normalmente, no en segundo plano.

    En Descargas, puede encontrar una macro de Excel con las subrutinas para RFEM y RSTAB.

    Tenga en cuenta que la carpeta donde se crea el archivo debe existir.

  • Respuesta

    Los archivos * .dll y * .tlb probablemente no se actualizaron correctamente en su computadora. Por favor proceda de la siguiente manera:

    1. Cambie el nombre de las siguientes carpetas en Dlubal.bak:

    C: \ Archivos de programa (x86) \ Archivos comunes \ Dlubal

    C: \ Archivos de programa \ Archivos comunes \ Dlubal


    2. Vuelva a instalar RFEM o RSTAB.

    3. Mueva los archivos de las carpetas de Dlubal recién creadas a las carpetas respectivas de Dlubal.bak (sobrescriba todas).

    4. Cambie el nombre de la carpeta Dlubal.bak a Dlubal.

  • Respuesta

    Para sólo calcular ciertos casos de carga, combinaciones de carga o combinaciones de resultados, justo como el comando "Para calcular...." (ver figura 01), puede usar el método "CalculateBarch" de la interfaz ICalculation. Al transferir datos, el método espera un campo con el tipo de carga. La carga incluye el número de la carga, y el tipo (p. ej. combinación de carga):

    Sub batch_test ()
        
    '   get interface from the opened model and lock the licence/program
        Dim iModel As RFEM5.IModel3
        Set iModel = GetObject(, "RFEM5.Model")
        iModel.GetApplication.LockLicense
        

    On Error GoTo e
        
        '   get interface for calculationv
        Dim iCalc As ICalculation2
        Set iCalc = iModel.GetCalculation
        
        '   create array with loading types
        Dim loadings(3) As Loading
        loadings(0).no = 1
        loadings(0).Type = LoadCaseType
        
        loadings(1).no = 4
        loadings(1).Type = LoadCaseType
        
        loadings(2).no = 4
        loadings(2).Type = LoadCombinationType
        
        '   calculate all loadings from the array at once
        iCalc.CalculateBatch loadings

    e:  If Err.Number <> 0 Then MsgBox Err.description, , Err.Source
        
        Set iModelData = Nothing
        iModel.GetApplication.UnlockLicense
        Set iModel = Nothing

    End Sub
  • Respuesta

    Una imperfección se considera una carga y se transfiere mediante la interfaz del caso de carga. Siempre que la interfaz para el modelo ya se haya importado, la interfaz para las cargas (ILoads) seguida de la interfaz para el caso de carga 1 (ILoadCase) se importará posteriormente, si ya se ha creado antes:

            '   set loadcases
            Dim iLoads As iLoads
            Set iLoads = model.GetLoads
            
            '   get load case
            Dim iLc1 As ILoadCase
            Set iLc1 = iLoads.GetLoadCase(1, AtNo)
            
            '   define imperfection
            Dim imperf As Imperfection
            imperf.Comment = "test"
            imperf.Direction = LocalZType
            imperf.Inclination = 200
            imperf.no = 1
            imperf.ObjectList = 1
            imperf.Precamber = 300
            imperf.PrecamberActivity = ActivityAccording_EN_1993_1_1
            
            '   set imperfection
            iLc1.PrepareModification
            iLc1.SetImperfection imperf
            iLc1.FinishModification

    Los datos de la imperfección se completan primero, aquí para la barra 1, y luego se transfieren dentro de un bloque Prepare-/FinishModification de las interfaces del caso de carga.

  • Respuesta

    Para modificar un elemento existente, tiene que obtener la interfaz del elemento correspondiente, mostrado aquí utilizando una barra como ejemplo:

        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)

    Use este código para obtener la interfaz para la barra 1, que ya debe estar creada. Luego, puede usar el método .GetData () de la interfaz para obtener los datos de la barra.

    Si desea modificar los datos (como el giro de la barra en este caso), puede transferirlos posteriormente al programa dentro de un bloque Prepare-/FinishModification con el método .SetData ().


        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
  • Respuesta

    El siguiente código muestra cómo obtener diferentes parámetros de cálculo a través de la interfaz COM. También se muestra cómo especificar una configuración para desactivar la rigidez a cortante:

        '   get model interface
        Set iApp = iModel.GetApplication()
        iApp.LockLicense
        
        '   get calculation interface
        Dim iCalc As RFEM5.ICalculation2
        Set iCalc = iModel.GetCalculation
        
        '   get surface bending theory
        Dim calc_bend As RFEM5.BendingTheoryType
        calc_bend = iCalc.GetBendingTheory
        
        '   get settings for nonlinearities
        Dim calc_nl As RFEM5.CalculationNonlinearities
        calc_nl = iCalc.GetNonlinearities
        
        '   get precision and tolerance settings
        Dim calc_prec As RFEM5.PrecisionAndTolerance
        calc_prec = iCalc.GetPrecisionAndTolerance
        
        '   get calculation settings
        Dim calc_sets As RFEM5.CalculationSettings
        calc_sets = iCalc.GetSettings
        
        '   get calculation options
        Dim calc_opts As RFEM5.CalculationOptions
        calc_opts = iCalc.GetOptions
        
        '   set ShearStiffness to false
        calc_opts.ShearStiffness = False
        iCalc.SetOptions calc_opts

    En el anexo, hay un Macro de EXCEL para su descarga.

1 - 10 de 26

Contacte con nosotros

¿Ha encontrado su pregunta?
Si no es así, contacte con nosotros a través de nuestro servicio de asistencia gratuito por correo electrónico, chat o fórum, o envíenos su pregunta mediante el formulario en línea.

+34 911 438 160

info@dlubal.com

Primeros pasos

first-steps

Le proporcionamos consejos y trucos para ayudar a iniciarse con los programas principales de RFEM y RSTAB.

Simulación de flujos de viento y generación de cargas de viento

Con el programa independiente RWIND Simulation, se pueden simular flujos de viento alrededor de estructuras simples o complejas por medio de un túnel de viento digital.

Las cargas de viento generadas que actúan sobre esos objetos se pueden importar a RFEM o RSTAB.

Su soporte es el mejor con diferencia

“Muchas gracias por su útil información.

Me gustaría felicitar a su equipo de soporte. Estoy siempre impresionado por la rapidez y profesionalidad de las respuestas a las preguntas. En el sector del análisis estructural, utilizo varios programas que incluyen el contrato de servicio, pero su soporte es el mejor con diferencia.”