Para modificar un elemento existente, debe obtener la interfaz con el elemento correspondiente, en este caso en un ejemplo de una 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)
Use este código para obtener la interfaz para la barra 1, que ya debería estar creada. Luego, puede usar el método .GetData () de la interfaz para obtener los datos de la barra.
Si desea modificar los datos (como la rotación de la barra aquí), puede transferirlos posteriormente al programa dentro del bloque Prepare-/FinishModification con el 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