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: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense Set iModel = Nothing
End SubLa 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.
Foire aux questions (FAQ)
![Visualisation de la centrale solaire de Haixi, Chine
(© Cockerill Maintenance & Ingenierie sa [CMI])](/fr/webimage/019788/2952722/Sonnekraftwerk1.jpg?mw=350&hash=7e081df07564a2c98a32b94a13c44a1ce7678610)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
