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) .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
Si Err.Number <> 0 entonces 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
Preguntas frecuentes (FAQ)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
