Odpověď:
Komentář se vytvoří přes rozhraní COM (RS-COM nebo RF-COM) pomocí rozhraní pomocných objektů IGuideObjects. Následně je uveden příklad programu, který vloží komentář:
Sub test_comment()
' get interface from the opened model and lock the licence/program
Dim 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 jako RFEM5.IGuideObjects
Nastavte iGuiObj = iModel.GetGuideObjects
Dim comm As RFEM5.Comment
' nastaví typ rámu
comm.Frame = CircularFrameType
' nastaví typ referenčního objektu
comm.ObjectType = GeneralObjectType
comm.ObjectNo = 1
Žádaná hodnota ', pokud je vybrán GeneralObjectType
comm.Point.X = 2
comm.Point.Y = 4
comm.Point.Z = 6
' nastavilo odsazení od referenčního objektu
comm.Offset.X = 0,5
comm.Offset.Y = 1
comm.Offset.Z = 1,5
comm.Rotation = 1
' nastaví text komentáře
comm.Text = "testcomment"
' předání objektu do programu
iGuiObj.PrepareModification
iGuiObj.SetComment comm
iGuiObj.FinishModification
e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
Set iModelData = Nothing
iModel.GetApplication.UnlockLicense
Set iModel = Nothing
End SubVýběr odkazu nebo prvku, na který se komentář odkazuje, je nejdříve definován typem ( ObjectType ). Zde můžeme například vybrat prut, uzel nebo libovolný bod v prostoru. Dále se pomocí ObjectNo zadá číslo referenčního objektu (např. Prut 1). Pokud jsme vybrali volný bod, nastaví se pomocí Bodu.
Nakonec je možné definovat odsazení zadané od referenčního objektu.
