404x
004195
2019-11-07

Pytanie

Jak mogę zmodyfikować pręt z mocą wsteczną za pomocą interfejsu COM?


Odpowiedź:

Aby zmodyfikować istniejący element, należy uzyskać interfejs do odpowiedniego elementu, w tym przypadku na przykładzie pręta:

Dim iModel As w RSTAB8.model
Ustaw iModel = GetObject (, "RSTAB8.Model")
iModel.GetApplication.LockLicense
    
Dim iModData As IModelData
Ustaw iModData = iModel.GetModelData
    
Dim iMem As RSTAB8.IMember
Ustaw iMem = iModData.GetMember (1, AtNo)

Użyj tego kodu, aby uzyskać interfejs do pręta nr 1, który powinien już zostać utworzony. Następnie można użyć metody .GetData () interfejsu w celu pobrania danych pręta.

Jeżeli chcą Państwo zmodyfikować dane (np. obrót pręta w tym przypadku), mogą zostać przeniesieni do programu w bloku Prepare-/FinishModification, przy użyciu metody .SetData().


Dim mem Jak w RSTAB8.Member
mem = iMem.GetData
    
zapamiętując.Kąt.Obrót = 0.5
mem.Rotation.Type = RSTAB8.Angle
   
iModData.PrepareModification
iMem.SetData mem
iModData.FinishModification