' obtener interfaz para ver
Atenuar iView como RFEM3.IrfView2
Establecer iView = iModel.rfGetActiveView
' quitar vistas antiguas
iView.rfDeletePartialView "prueba | ver"
iView.rfDeletePartialView "prueba | view2"
iView.rfDeletePartialView "prueba | view_add"
iView.rfDeletePartialView "prueba | view_rev"
iView.rfDeletePartialView "prueba | view_diff"
' crear primera vista
iModData.rfSelectObjects STR_MEMBER, "3-4"
iView.rfSetPartialView "prueba | ver"
' iView.rfSelectPartialView "test | view", PVM_SHOW, True, True
' crear segunda vista
iModData.rfSelectObjects STR_SURFACE, "1"
iModData.rfSelectObjects STR_MEMBER, "3"
iView.rfSetPartialView "prueba | view2"
' iView.rfSelectPartialView "test | view2", PVM_SHOW, True, True
' crear suma desde la vista 1 y 2
iView.rfSelectPartialView "test | view", PVM_SELECT, True, True
iView.rfSelectPartialView "test | view2", PVM_SELECT, False, True
iView.rfSelectPartialView "", PVM_SHOW_SELECTION_ONLY, Verdadero, Verdadero
iView.rfSetPartialView "prueba | view_add"
' crear vista diferencial 2 menos 1
' primera vista invertida creada
iView.rfSelectPartialView "test | view", PVM_SHOW, True, True
iView.rfSelectPartialView "test | view2", PVM_SHOW, False, True
iView.rfSelectPartialView "", PVM_SHOW_REVERSE, Verdadero, Verdadero
iView.rfSelectPartialView "", PVM_SELECT, Verdadero, Verdadero
iView.rfSetPartialView "prueba | view_rev"
iView.rfSelectPartialView "", PVM_SHOW_REVERSE, Verdadero, Verdadero
' seleccione la vista para restar y revertir la vista
iView.rfSelectPartialView "test | view_rev", PVM_SELECT, True, True
iView.rfSelectPartialView "test | view", PVM_SELECT, False, True
iView.rfSelectPartialView "", PVM_SHOW_SELECTION_ONLY, Verdadero, Verdadero
iView.rfSelectPartialView "", PVM_SHOW_REVERSE, Verdadero, Verdadero
iView.rfSelectPartialView "", PVM_SELECT, Verdadero, Verdadero
iView.rfSetPartialView "prueba | view_diff"
iView.rfSelectPartialView "", PVM_SHOW_SELECTION_ONLY, Verdadero, Verdadero
iView.rfSelectPartialView "", PVM_SHOW_REVERSE, Verdadero, Verdadero
iView.rfCancelPartialView