Pregunta:
¿Cómo puedo crear excentricidades de barras en RF-COM?
Respuesta:
La siguiente macro de VBA muestra la creación de dos excentricidades de barra. El código fuente se puede encontrar en Descargas.
' ----------------------------------------------- -------------------------------------------------- -
Sub SetEccs ()
' ----------------------------------------------- -------------------------------------------------- -
- Dim model As RFEM5.model
- Dim data As IModelData
Dim ecc (1) Como RFEM5.MemberEccentricity
' Obtener la interfaz para el modelo
Establecer modelo = GetObject (, "RFEM5.Model")
' Bloquear la licencia COM y el acceso al programa
model.GetApplication.LockLicense
On Error GoTo e
' Obtener la interfaz para los 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) .Fin.X = 0,07
ecc (1) .End.Y = 0,08
ecc (1) .End.Z = 0,09
ecc (1) .Comment = "excentricity 2"
' Transferir excentricidades de barras
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 volver a acceder al programa
model.GetApplication.UnlockLicense
Set model = Nothing
End Sub
.png?mw=350&hash=b2324c4db119938012b5490afaa56e9aa826cdcc)
.png?mw=512&hash=a6554b61e9e1fd9d04988e8232c47f235a60663b)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
