[ZH] FAQ 004326 | 如何通过COM界面创建注释？

问题：
如何通过COM界面创建注释？

答案：
当使用COM接口（RF-COM或RS-COM）时，可以通过辅助对象接口IGuideObjects创建注释。 以下是一个创建注释的示例程序：

子test_comment（）

'从打开的模型中获取接口并锁定许可证/程序
    iModel调配为RFEM5.IModel3
    设置iModel = GetObject（，“ RFEM5.Model”）
    iModel.GetApplication.LockLicense

出现错误转到e

    将iModelData设置为RFEM5.IModelData2
    设置iModelData = iModel.GetModelData

    将iGuiObj调暗为RFEM5.IGuideObjects
    设置 iGuiObj = iModel.GetGuideObjects

    Dim comm As RFEM5.备注

    ''设置框架类型
    comm.Frame = CircularFrameType

    '“设置参考对象的类型
    comm.ObjectType = GeneralObjectType
    comm.对象编号 = 1

    '如果选择了GeneralObjectType的设置点
    comm.点.X = 2
    comm.点.Y = 4
    comm.点.Z = 6

    '设置相对于参照对象的偏移
    comm.Offset.X = 0.5
    通信.偏移.Y = 1
    通信.偏移.Z = 1.5
    通信旋转 = 1

    '设置评论文本
    comm.Text =“测试注释”

    '将对象传递到程序
    iGuiObj.PrepareModification
    iGuiObj.SetComment comm
    iGuiObj.完成修改

e:  如果Err.Number 0那么MsgBox Err.description，，Err.Source

    设置iModelData = Nothing
    iModel.GetApplication.UnlockLicense
    设置iModel = Nothing

端部分段

选择参照或添加注释的单元格首先由类型（ObjectType）来定义。 这里可以选择例如杆件，节点或空间中的任何点。 接下来，通过对象编号（例如杆件1）指定参照对象的编号。 如果已经选择了自由点，则自由点按照点进行设置。
最后，可以指定参照对象引起的偏移。