Resposta:
Para modificar um elemento existente, é necessário obter a interface para o elemento correspondente, no caso do presente exemplo, uma barra:
Dim iModel As RSTAB8.model Set iModel = GetObject(, "RSTAB8.Model") iModel.GetApplication.LockLicense Dim iModData As IModelData Set iModData = iModel.GetModelData Dim iMem As RSTAB8.IMember 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![[EN] FAQ 005512 | Recebi uma mensagem a informar que foi detetada uma manipulação inválida do tempo. O que devo fazer?](/pt/webimage/050121/3862974/Image__Source_Language.png?mw=320&hash=018f4c8e2ac11c8af839264f5ddfd09b108c6793)
![[EN] FAQ 005511 | O que faz cada opção na secção "Cálculo de torção" na configuração de resistência?](/pt/webimage/050088/3861275/Image__Source_Language.png?mw=320&hash=018f4c8e2ac11c8af839264f5ddfd09b108c6793)
