Este artículo fue traducido por el Traductor de Google

Ver texto original

¿Cómo puedo crear excentricidades de miembros en RF-COM?

Respuesta

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

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

'Obtener interfaz para modelo
    Set model = GetObject(, "RFEM5.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
Si Err.Number <> 0 entonces 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

Palabras clave

Excentricidad de barra Excel VBA

Descargas

Escribir un comentario...

Escribir un comentario...

  • Vistas 106x
  • Actualizado 10. noviembre 2020

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

RFEM Otros
RF-COM 5.xx

Módulo adicional

Interfaz programable (API) basada en tecnología COM

Precio de la primera licencia
580,00 USD