839x
004326
2020-01-31

问题

如何通过 COM 接口创建注释?


回复:
使用 COM 接口(RF-COM 或 RS-COM)时,可以使用辅助线对象接口 IGuideObjects 创建注释。 以下是创建注释的示例程序:

子测试注释()

' 从打开的模型中获取接口并锁定许可证/程序
Dim iModel As RFEM5.IModel3
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense

出错时转到 e
    
Dim iModelData As RFEM5.IModelData2
设置 iModelData = iModel.GetModelData
    
Dim iGuiObj as RFEM5.IGuideObjects
设置 iGuiObj = iModel.GetGuideObjects
    
Dim comm As RFEM5.Comment
    
' 设置框架类型
comm.Frame = 圆形框架类型
    
' 设置参照物类型
comm.ObjectType = 通用对象类型
comm.ObjectNo = 1
    
' 设置点,如果选择 GeneralObjectType
通信点.X = 2
通信点.Y = 4
通信点.Z = 6
    
' 设置与参照物的偏移量
comm.偏移.X = 0.5
comm.偏移.Y = 1
comm.偏移.Z = 1.5
comm.Rotation = 1
    
' 设置注释文本
comm.Text = "测试注释"
    
' 传递对象给程序
iGuiObj.PrepareModification
iGuiObj.SetComment comm
iGuiObj.FinishModification
    
e: 如果 Err.Number <> 0 那么 MsgBox Err.description, , Err.Source
    
设置 iModelData = 无
iModel.GetApplication.UnlockLicense
设置 iModel = 无

末端接头

选择注释的参照物或元素首先由类型 ( ObjectType ) 定义。 在这里可以选择例如杆件、节点或空间中的任何点。 接下来,通过对象编号指定参照对象的编号(例如件 1)。 如果选择了自由点,则通过设置。
最后,您可以指定参照对象的偏移。