Ответ:
В интерфейсе COM (RF-COM или RS-COM) можно создать комментарий с помощью интерфейса для вспомогательных объектов IGuideObjects. Ниже приведен пример программы, которая создает комментарий: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.IGuideObjectsSet iGuiObj = iModel.GetGuideObjects Dim comm As RFEM5.Comment ' set frame typecomm.Frame = CircularFrameType ' set reference object typecomm.ObjectType = GeneralObjectTypecomm.ObjectNo = 1 ' set point if GeneralObjectType is choosencomm.Point.X = 2comm.Point.Y = 4comm.Point.Z = 6 ' set offset from reference objectcomm.Offset.X = 0,5comm.Offset.Y = 1comm.Offset.Z = 1,5comm.Rotation = 1 ' set text of commentcomm.Text = "testcomment" ' transfer object to programiGuiObj.PrepareModificationiGuiObj.SetComment commiGuiObj.FinishModification e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense Set iModel = Nothing
End SubВыбор ссылки или элемента, к которому относится комментарий, определяется в первую очередь типом ( ObjectType ). Для этого рекомендуем выбрать, например, стержень, узел или любую точку в пространстве. Далее через ObjectNo указывается номер референтного объекта (например, Стержень 1). Если вы выбрали свободную точку, она задается с помощью Point.
Наконец можно указать и смещение от референтного объекта.
![Визуализация солнечной электростанции Хайси, Китай
(© Cockerill Maintenance & Ingenierie sa [CMI])](/ru/webimage/019788/2952722/Sonnekraftwerk1.jpg?mw=350&hash=7e081df07564a2c98a32b94a13c44a1ce7678610)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
