Domanda:
Come posso creare visibilità tramite l'interfaccia COM?
Risposta:
Le visibilità possono essere create utilizzando le interfacce RF ‑ COM 3/RS ‑ COM 6 mentre si utilizza l'interfaccia IrfView. Gli elementi che dovrebbero appartenere alla visibilità possono essere selezionati con la funzione rfSelectObjects:
Sottotitolo set_visibility ()
' get interface from the opened model and lock the licence/program
Dim iModel come RFEM3.IrfStructure3
Imposta iModel = GetObject (, "RFEM3.Structure")
iModel.rfGetApplication.rfLockLicence
On Error GoTo e
'ottieni interfaccia per modeldata
Dim iModdata As RFEM3.IrfStructuralData4
Imposta iModdata = iModel.rfGetStructuralData
iModdata.rfSelectObjects STR_MEMBER, "1-2"
iModdata.rfSelectObjects STR_SURFACE, "6,14,17"
'ottieni l'interfaccia per la visualizzazione
Dim iView come RFEM3.IrfView2
Imposta iView = iModel.rfGetActiveView
iView.rfSetPartialView "test | view"
'seleziona vista parziale
iView.rfSelectPartialView "test | view", PVM_SHOW, True, True
e: If Err.Number 0 Then MsgBox Err.description`` Err.Source
iModel.rfGetApplication.rfUnlockLicence
Imposta iModel = Nothing
End Sub
Nell'esempio, la Superficie 6, la Superficie 14 e la Superficie 17 sono selezionate insieme all'asta 1 e all'asta 2. Quindi, la visibilità di questi elementi viene creata e denominata "vista". La "vista" di visibilità è nel gruppo "test". Viene creato con il delimitatore "|". Dopo aver creato la visibilità, è ancora selezionata o visualizzata; in questo caso, PVM_SHOW è del tipo "RF_PARTIAL_VIEW_MODE", che può anche rimuovere la visibilità. La funzione può anche specificare se gli elementi devono essere visualizzati in background.
