回复:
要修改现有的元素，您必须获取相应元素的接口，在本例中为杆件：
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)Über diesen Code wird das Interface zum Stab 1 geholt, welcher bereits angelegt sein muss. Danach können über die Methode .GetData() des Interfaces die Stabdaten geholt werden.
Falls Daten modifiziert werden sollen (wie hier die Stabdrehung), können diese danach innerhalb eines Prepare-/FinishModification-Blocks mit der Methode .SetData() an das Programm übergeben werden:
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