462x
001168
2020-01-31

[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)指定参照对象的编号。 如果已经选择了自由点,则自由点按照点进行设置。
最后,可以指定参照对象引起的偏移。



;