Odpowiedź:
W przypadku korzystania z interfejsu COM (RF-COM lub RS-COM) komentarz można utworzyć za pomocą interfejsu obiektów pomocniczych IGuideObjects. Poniżej znajduje się przykładowy program tworzący komentarz:Sub test_comment ()
' pobierz interfejs z otwartego modelu i zablokuj licencję/programDim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense
On Error GoTo e Dim iModelData As RFEM5.IModelData2 Set iModelData = iModel.GetModelData Dim iGuiObj As RFEM5.IGuideObjectsUstaw iGuiObj = iModel.GetGuideObjects Dim comm As RFEM5.Comment ' ustaw typ ramycomm.Frame = CircularFrameType ' ustaw typ obiektu referencyjnegocom.ObjectType = GeneralObjectTypecomm.ObjectNo = 1 ' wartość zadana w przypadku wybrania GeneralObjectTypecomm.Point.X = 2comm.Point.Y = 4comm.Point.Z = 6 ' ustawiono przesunięcie od obiektu referencyjnegocomm.Offset.X = 0.5comm.Offset.Y = 1comm.Offset.Z = 1.5comm.Obrót = 1 ' ustaw tekst komentarzacomm.Text = "komentarz testowy" ' przenosi obiekt do programuiGuiObj.PrepareModificationiGuiObj.SetComment commiGuiObj.FinishModification e: Jeżeli Err.Number <> 0 to MsgBox Err.description, , Err.Source Ustaw iModelData = NiciModel.GetApplication.UnlockLicenseUstaw iModel = Nic
Zakończ subWybór odniesienia lub elementu, do którego odnosi się komentarz, jest najpierw definiowany przez typ ( ObjectType ). Można tu na przykład wybrać pręt, węzeł lub dowolny punkt w przestrzeni. Następnie za pomocą Obiektu nr (na przykład Pręt 1) określany jest numer obiektu odniesienia. W przypadku wyboru wolnego punktu jest on wyznaczany według Punktu.
Na koniec można określić offset, który wynika z obiektu odniesienia.
![Wyniki RSTAB 9 - moment skrępowany Momega [kNm]](/pl/webimage/047737/3730153/MTsec.png?mw=350&hash=40c7b896b7ecb6c898b763109dcec0b2a330f9f4)
![Wyniki RSTAB 9 - drugorzędny moment skręcający MTsec [kNm]](/pl/webimage/047736/3730151/MTsec.png?mw=350&hash=40c7b896b7ecb6c898b763109dcec0b2a330f9f4)
![Wyniki RSTAB 9 - główny moment skręcający MTpri [kNm]](/pl/webimage/047735/3730144/MTpri.png?mw=350&hash=2363903e71565c33f1897548cd3f9920f0bc53ba)
.png?mw=512&hash=4e74affa9ad0c7b703151c5085ac9b8e59171c23)
.jpg?mw=350&hash=8f312d6c75a747d88bf9d0f5b1038595900b96c1)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
