Como é que posso criar excentricidades de barras no RS-COM?

Resposta

A seguinte macro VBA mostra a criação de duas excentricidades de barra. O código fonte pode ser encontrado em Downloads.

'--------------------------------------------------------------------------------------------------
Sub SetEccs()
'--------------------------------------------------------------------------------------------------
Dim model As RSTAB8.model
Dim data As IModelData
Dim ecc(1) As RSTAB8.MemberEccentricity

    'Get interface for model
    Set model = GetObject(, "RSTAB8.Model")
    
    ' Block COM licence and program access
    model.GetApplication.LockLicense

    On Error GoTo e
    ' Get interface for model data
    Set data = model.GetModelData

   'Define eccentricity 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 = "eccentricity 1"
    
   'Define eccentricity 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).End.X = 0.07
    ecc(1).End.Y = 0.08
    ecc(1).End.Z = 0.09
    ecc(1).Comment = "eccentricity 2"
    
    'Transfer member eccentricities
    data.PrepareModification
    data.SetMemberEccentricities ecc

e:  data.FinishModification
    If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
    Set data = Nothing
    ' COM licence is unlocked, program access possible again
    model.GetApplication.UnlockLicense
    Set model = Nothing

End Sub

Palavras-chave

Excentricidade de barra Excel VBA

Downloads

Escreva um comentário...

Escreva um comentário...

  • Visualizações 99x
  • Atualizado 10 de novembro de 2020

Contacto

Encontrou a sua pergunta? Se não for o caso, entre em contacto connosco por e-mail, chat ou no fórum de discussão, ou então envie-nos a sua questão através do formulário online.

+49 9673 9203 0

(falamos português)

info@dlubal.com

RSTAB Others
RS-COM 8.xx

Módulo adicional

Interface programável (API) com base na tecnologia COM

Preço de primeira licença
580,00 USD