Pytanie:
Jak mogę utworzyć komentarz poprzez interfejs COM?
Odpowiedź:
W przypadku korzystania z interfejsu COM (RF -COM lub RS -COM) komentarz można utworzyć za pomocą interfejsu IGuideObjects obiektu przewodnika. Poniżej znajduje się przykładowy program, który tworzy komentarz:
Sub test_comment ()
'pobierz interfejs z otwartego modelu i zablokuj licencję/program
Dim iModel Jak w RFEM5.IModel3
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense
On Error GoTo e
Dim iModelData As RFEM5.IModelData2
Ustaw iModelData = iModel.GetModelData
Dim iGuiObjects As RFEM5.IGuideObjects
Ustaw iGuiObj = iModel.GetGuideObjects
Dim comm As RFEM5.Comment
'Ustawić typ ramy
comm.Frame = CircularFrameType
'ustaw typ obiektu odniesienia
comm.ObjectType = GeneralObjectType
comm.ObjectNo = 1
'wartość zadana, jeżeli wybrano GeneralObjectType
comm.Point.X = 2
comm.Point.Y = 4
comm.Point.Z = 6
'ustawić odsunięcie od obiektu referencyjnego
comm.Offset.X = 0.5
comm.Offset.Y = 1
comm.Offset.Z = 1.5
comm.Obrót = 1
'ustaw tekst komentarza
comm.Text = "testcomment"
'przenieść obiekt do programu
iGuiObj.PrepareModification
iGuiObj.SetComment comm
iGuiObj.FinishModification
e: Jeżeli Błędny Numer 0 Wtedy MsgBox Błędny Opis,, Błędne Źródło
Ustaw iModelData = Nothing
iModel.GetApplication.UnlockLicense
Ustaw iModel = Nic
End Sub
Wybór odniesienia lub elementu, do którego skierowany jest komentarz, jest najpierw definiowany przez typ (ObjectType). Tutaj można wybrać na przykład pręt, węzeł lub dowolny punkt w przestrzeni. Następnie numer obiektu referencyjnego jest określany za pomocą ObjectNo (na przykład Pręt 1). W przypadku wybrania punktu swobodnego jest on ustawiany według punktu.
Na koniec można określić odsunięcie wynikające z obiektu odniesienia.