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