通过 COM 接口创建注释

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

1. code.vb#

Sub 测试注释()

' 从打开的模型中获取接口并锁定许可证/程序

1. 将 iModel 调暗为 RFEM5.IModel3
2. Set iModel = GetObject(, "RFEM5.Model")
3. iModel.GetApplication.LockLicense

错误时转到e

1. Dim iModelData As RFEM5.IModelData2
2. Set iModelData = iModel.GetModelData
4. 将iGuiObj调暗为RFEM5.IGuideObjects
5. 设置 iGuiObj = iModel.GetGuideObjects
7. Dim comm As RFEM5.备注
9. ' 设置框架类型
10. comm.Frame = CircularFrameType
12. ' 设置参考对象类型
13. comm.ObjectType = GeneralObjectType
14. comm.对象编号 = 1
16. ' 设置点，如果选择基本对象类型
17. comm.点.X = 2
18. comm.点.Y = 4
19. comm.点.Z = 6
21. ' 设置相对于参照对象的偏移
22. comm.Offset.X = 0.5
23. 通信.偏移.Y = 1
24. 通信.偏移.Z = 1.5
25. 通信旋转 = 1
27. ' 设置注释文本
28. comm.Text = "测试注释"
30. ' 传递对象到程序
31. iGuiObj.PrepareModification
32. iGuiObj.SetComment comm
33. iGuiObj.完成修改

e: If Err.Number <> 0 Then Msgbox Err.Description, , Err.Source

1. Set iModelData = Nothing
2. iModel.GetApplication.UnlockLicense
3. 设置 iModel = 无

末端接头

1. /代码#

首先由类型（ ObjectType ）定义选择与注释相关的参照或元素。 这里可以选择例如一根杆件、一个节点或空间中的任何一个点。 接下来，通过通过对象编号指定参照对象的编号（例如杆件 1）。 如果您选择了一个自由点，它将通过点进行设置。

最后，您可以指定相对于参照对象的偏移。

常见问题和解答 (FAQ)

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

注释通过COM接口创建