Preguntas y respuestas útiles

Volver a preguntas más frecuentes (FAQ)

10. septiembre 2019

FAQ 003570 ES

Thomas Günthel

Modelado | Estructura

RF-COM

¿Es posible crear liberaciones en nudos a través de la interfaz COM?

Respuesta

Sí, es posible crear liberaciones en nudo mediante la interfaz COM. Aquí hay un ejemplo:

Sub nodal_release ()

    Dim iApp As RFEM5.Application
    Dim iModel As RFEM5.model
    
    On Error GoTo e
    
        Set iApp = GetObject(, "RFEM5.Application")
        iApp.LockLicense
        
        test = iApp.GetModelCount
        Set iModel = iApp.GetModel(0)
        
        Dim iModeldata As RFEM5.iModeldata
        Set iModeldata = iModel.GetModelData
        
        
        '   for setting a nodal release a member hinge is needed
        '   the object for the axis system could not be the same with the released one
        Dim nodRel As NodalRelease
        nodRel.Location = OriginalLocationType
        nodRel.AxisSystem = LocalFromLine
        nodRel.AxisSystemFromObjectNo = 2
        nodRel.Comment = "test nodal release"
        nodRel.MemberHingeNo = 1
        nodRel.NodeNo = 1
        nodRel.ReleasedMembers = 1
        
        iModeldata.PrepareModification
        iModeldata.SetNodalRelease nodRel
        iModeldata.FinishModification
        
        
e:      If Err.Number <> 0 Then MsgBox Err.description, , Err.Source
    
    iApp.UnlockLicense

End Sub

Hay que tener en cuenta que el sistema de ejes local puede que no se refiera al mismo elemento que aquellos que se han liberado.

Palabras clave

Liberación de nudo COM Nudos Liberación

Descargas

Archivo de prueba
Macro de prueba

Contacte con nosotros

Contacte con Dlubal Software

¿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.