407x
004691
2020-09-01

问题

如何通过 COM 接口创建可见性?


回复:

通过 IrfView 接口和 RF‑COM 3/RS‑COM 6 接口可以创建可见性。 应该属于该可见性的单元可以使用 rfSelectObjects 功能进行选择:

子集可见性()
' 从打开的模型中获取接口并锁定许可证/程序
Dim iModel As RFEM3.IrfStructure3
Set iModel = GetObject(, "RFEM3.Structure")
iModel.rfGetApplication.rfLockLicence

出错时转到 e

' 获取模型数据接口
Dim iModdata As RFEM3.IrfStructuralData4
设置 iModdata = iModel.rfGetStructuralData

iModdata.rfSelectObjects STR_MEMBER, "1-2"
iModdata.rfSelectObjects STR_SURFACE, "6,14,17"

' 获取视图接口
Dim iView As RFEM3.IrfView2
设置 iView = iModel.rfGetActiveView
   
iView.rfSetPartialView "测试|视图"

' 选择局部视图
iView.rfSelectPartialView "test|view", PVM_SHOW, True, True


e: 如果 Err.Number <> 0 那么 MsgBox Err.description, , Err.Source

iModel.rfGetApplication.rfUnlockLicence
设置 iModel = 无

末端接头

在该示例中,面 6、面 14 和面 17 与杆件 1 和杆件 2 一起选择。 然后,这些单元的可见性被创建并命名为“视图”。 可见性“视图”在“测试”组中。 它是使用分隔符“|”创建的。 创建可见性后,它仍然处于选择或显示状态;在这种情况下,PVM_SHOW 的类型为 "RF_PARTIAL_VIEW_MODE",这也可以删除可见性。 该功能还可以指定是否在背景中显示元素。