413x
004691
2020-09-01

Pergunta

Como é que posso criar visibilidades através da interface COM?


Resposta:

As visibilidades podem ser criadas com ajuda das interfaces RF‑COM 3/RS‑COM 6 enquanto utiliza a interface IrfView. Os elementos que devem pertencer à visibilidade podem ser selecionados com a função rfSelectObjects:

Sub set_visibility()
' get interface from the opened model and lock the licence/program
Dim iModel As RFEM3.IrfStructure3
Set iModel = GetObject(, "RFEM3.Structure")
iModel.rfGetApplication.rfLockLicence

On Error GoTo e

' get interface for modeldata
Dim iModdata As RFEM3.IrfStructuralData4
Set iModdata = iModel.rfGetStructuralData

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

' get interface for view
Dim iView As RFEM3.IrfView2
Set iView = iModel.rfGetActiveView
   
iView.rfSetPartialView "test|view"

' select partial view
iView.rfSelectPartialView "test|view", PVM_SHOW, True, True


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

iModel.rfGetApplication.rfUnlockLicence
Set iModel = Nothing

End Sub

No exemplo, são, primeiro, selecionadas as superfícies 6, 14 e 17 em conjunto com as barras 1 e 2. Em seguida, é criada a visibilidade desses elementos recebendo a designação "view". A visibilidade "view" encontra-se no grupo "test". A criação ocorre com o delimitador "|". Após ser criada a visibilidade, esta ainda é selecionada ou apresentada, neste caso, PVM_SHOW é do tipo "RF_PARTIAL_VIEW_MODE", o que também pode eliminar a visibilidade. A função também pode especificar se os elementos serão apresentados em segundo plano.