405x
004691
2020-09-01

Pregunta

¿Cómo puedo crear visibilidades a través de la interfaz COM?


Respuesta:

Las visibilidades se pueden crear utilizando las interfaces RF-COM 3/RS-COM 6 mientras se usa la interfaz IrfView. Los elementos que deben pertenecer a la visibilidad se pueden seleccionar con la función rfSelectObjects:

Subconjunto_visibilidad ()
' get interface from the opened model and lock the licence/program
Atenuar iModel como RFEM3.IrfStructure3
Establecer iModel = GetObject (, "RFEM3.Structure")
iModel.rfGetApplication.rfLockLicence

On Error GoTo e

' obtener interfaz para modeldata
Dim iModdata como RFEM3.IrfStructuralData4
Establecer iModdata = iModel.rfGetStructuralData

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

' obtener interfaz para ver
Atenuar iView como RFEM3.IrfView2
Establecer iView = iModel.rfGetActiveView
   
iView.rfSetPartialView "prueba | ver"

' seleccionar vista parcial
iView.rfSelectPartialView "test | view", PVM_SHOW, True, True


e: If Err.Number <> 0 Then MsgBox Err.description`` Err.Source

iModel.rfGetApplication.rfUnlockLicence
Establecer iModel = Nada

End Sub

En el ejemplo, la superficie 6, la superficie 14 y la superficie 17 se seleccionan junto con la barra 1 y la barra 2. Luego, la visibilidad de estos elementos se crea y se denomina "vista". La "vista" de visibilidad está en el grupo de "prueba". Se crea con el delimitador "|". Después de crear la visibilidad, aún se selecciona o se muestra; en este caso, PVM_SHOW es del tipo "RF_PARTIAL_VIEW_MODE", que también puede quitar la visibilidad. La función también puede especificar si los elementos se muestran en segundo plano.