Modificação subsequente de uma barra através da interface COM

Para modificar um elemento existente, é necessário obter a interface para o elemento correspondente, no caso do presente exemplo, uma barra:

1. código.vb#
2. Dim iModel As RSTAB8.model
3. Set iModel = GetObject(, "RSTAB8.Model")
4. iModel.GetApplication.LockLicense
6. Dim iModData As IModelData
7. Set iModData = iModel.GetModelData
9. Dim iMem As RSTAB8.IMember
10. Set iMem = iModData.GetMember(1, AtNo)

Utilize este código para obter a interface para a barra 1, que já deve estar criada. Em seguida, pode utilizar o método .GetData () da interface para obter os dados da barra.

Se pretende modificar dados (a rotação da barra, tal como no exemplo), pode depois transferi-los para o programa dentro de um bloco Prepare-/FinishModification com o método .SetData ().

    Dim mem As RSTAB8.Member
    mem = iMem.GetData
    
    mem.Rotation.Angle = 0.5
    mem.Rotation.Type = RSTAB8.Angle
   
    iModData.PrepareModification
    iMem.SetData mem
    iModData.FinishModification