451x
004691
2020-09-01

Tworzenie widoczności za pomocą interfejsu COM

Jak tworzyć widoczności za pomocą interfejsu COM?


Odpowiedź:

Widoczności można tworzyć za pomocą interfejsów RF‑COM 3/RS‑COM 6; służy do tego interfejs IrfView. Die Elemente, welche zur Sichtbarkeit gehören sollen, können über die Funktion rfSelectObjects ausgewählt werden:

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

Im Beispiel werden zunächst die Flächen 6,14 und 17 gewählt zusammen mit den Stäben 1 und 2. Danach wird die Sichtbarkeit dieser Elemente angelegt und bekommt die Bezeichnung "view". Die Sichtbarkeit "view" liegt dabei in der Gruppe "test". Das Anlegen erfolgt dabei mit dem Trennzeichen "|". Nachdem die Sichtbarkeit angelegt wurde, wird diese noch ausgewählt bzw. dargestellt, PVM_SHOW ist dabei vom Typ "RF_PARTIAL_VIEW_MODE" welcher z. B. auch die Sichtbarkeit aufheben kann. Die Funktion kann zusätzlich noch festlegen, ob die Elemente im Hintergrund dargestellt werden.


Autor

Pan Günthel zapewnia wsparcie techniczne klientom firmy Dlubal Software i zajmuje się ich zapytaniami.

Odnośniki
Pobrane


;