Question :
Comment créer un commentaire via l'interface COM ?
Réponse :
Lorsque vous utilisez l'interface COM (RF-COM ou RS-COM), vous pouvez créer un commentaire à l'aide de l'interface d'objet repère IGuideObjects. Voici un exemple de programme permettant de créer un commentaire :
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 As RFEM5.IGuideObjects
Set iGuiObj = iModel.GetGuideObjects
Dim comm As RFEM5.Comment
' set frame type
comm.Frame = CircularFrameType
' set reference object type
comm.ObjectType = GeneralObjectType
comm.ObjectNo = 1
' set point if GeneralObjectType is choosen
comm.Point.X = 2
comm.Point.Y = 4
comm.Point.Z = 6
' set offset from reference object
comm.Offset.X = 0.5
comm.Offset.Y = 1
comm.Offset.Z = 1.5
comm.Rotation = 1
' set text of comment
comm.Text = "testcomment"
' transfer object to program
iGuiObj.PrepareModification
iGuiObj.SetComment comm
iGuiObj.FinishModification
e: Si Err.Number 0 Alors MsgBox Err.description`` Err.Source
Set iModelData = Nothing
iModel.GetApplication.UnlockLicense
Set iModel = Nothing
End Sub
La sélection de la référence ou de l'élément associé au commentaire est d'abord définie par le type (ObjectType). Vous pouvez par exemple sélectionner une barre, un nœud ou un point dans l'espace. Le numéro de l'objet de référence est ensuite spécifié via ObjectNo (barre 1, par exemple). Si vous avez sélectionné un point libre, il est défini par Point.
Enfin, vous pouvez définir un décalage résultant de l'objet de référence.