' pobierz interfejs do wyświetlenia
Dim iView As RFEM3.IrfView2
Ustaw iView = iModel.rfGetActiveView
' usuń stare widoki
iView.rfDeletePartialView "test | widok"
iView.rfDeletePartialView "test | widok2"
iView.rfDeletePartialView "test|view_add"
iView.rfDeletePartialView "test|view_rev"
iView.rfDeletePartialView "test | widok_różnic"
' utwórz pierwszy widok
iModData.rfSelectObjects STR_MEMBER, "3-4"
iView.rfSetPartialView "test | widok"
' iView.rfSelectPartialView "test | widok", PVM_SHOW, Prawda, Prawda
' utwórz drugi widok
iModData.rfSelectObjects STR_SURFACE, "1"
iModData.rfSelectObjects STR_MEMBER, "3"
iView.rfSetPartialView "test|view2"
' iView.rfSelectPartialView "test | widok2", PVM_SHOW, Prawda, Prawda
' utworzyć sumę z widoku 1 i 2
iView.rfSelectPartialView "test | widok", PVM_SELECT, prawda, prawda
iView.rfSelectPartialView "test | widok2", PVM_SELECT, False, Prawda
iView.rfSelectPartialView „”, PVM_SHOW_SELECTION_ONLY, prawda, prawda
iView.rfSetPartialView "test|view_add"
' utworzyć widok różnicowy 2 minus 1
' Najpierw utworzono widok odwrócony
iView.rfSelectPartialView "test | widok", PVM_SHOW, prawda, prawda
iView.rfSelectPartialView "test | view2", PVM_SHOW, False, True
iView.rfSelectPartialView „”, PVM_SHOW_REVERSE, prawda, prawda
iView.rfSelectPartialView „”, PVM_SELECT, prawda, prawda
iView.rfSetPartialView "test|view_rev"
iView.rfSelectPartialView „”, PVM_SHOW_REVERSE, prawda, prawda
' wybierz widok do odjęcia i widok odwrotny
iView.rfSelectPartialView "test | view_rev", PVM_SELECT, prawda, prawda
iView.rfSelectPartialView "test | widok", PVM_SELECT, False, Prawda
iView.rfSelectPartialView „”, PVM_SHOW_SELECTION_ONLY, prawda, prawda
iView.rfSelectPartialView „”, PVM_SHOW_REVERSE, prawda, prawda
iView.rfSelectPartialView „”, PVM_SELECT, prawda, prawda
iView.rfSetPartialView "test|view_diff"
iView.rfSelectPartialView „”, PVM_SHOW_SELECTION_ONLY, prawda, prawda
iView.rfSelectPartialView „”, PVM_SHOW_REVERSE, prawda, prawda
iView.rfCancelPartialView