Pregunta:
¿Cómo puedo crear excentricidades de barras en RS-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 ()
' ----------------------------------------------- -------------------------------------------------- -
Modelo atenuado Como modelo RSTAB8
- Dim data As IModelData
Dim ecc (1) Como RSTAB8.MemberEccentricity
' Obtener la interfaz para el modelo
Establecer modelo = GetObject (, "RSTAB8.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).Inicio.X = 0,01
ecc(0).Inicio.Y = 0,02
ecc(0).Inicio.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).Inicio.X = -0.07
ecc(1).Inicio.Y = -0,08
ecc(1).Inicio.Z = -0.09
ecc(1).End.X = 0.07
ecc(1).End.Y = 0.08
ecc(1).End.Z = 0.09
ecc(1).Comment = "excentricidad 2"
'Transferir excentricidades de barras
data.PrepareModification
data.SetMemberEccentricities etc.
e: data.FinishModification
If Err.Number 0 Then MsgBox Err.Description, , Err.Source
Set data = Nothing
' La licencia COM está desbloqueada, el acceso al programa es posible de nuevo
model.GetApplication.UnlockLicense
Set model = Nothing
End Sub