Add View Owner Selectively

      'TITLE:  ADD VIEW OWNER SELECTIVELY
      'DESCRIPTION:  For physical models, this will update the owner field
      '	in the view editor for all selected entities.  The active model
      '	must be a physical model.
      
      
      Sub Main
      
      	Dim diag As Diagram
      	Dim mdl As Model
      	Dim vw As View
      	Dim so As SelectedObject
      	Dim submdl As SubModel
      
      	Set diag = DiagramManager.ActiveDiagram
      	Set mdl = diag.ActiveModel
      	Set submdl = mdl.ActiveSubModel
      
      	If mdl.Logical = False Then
      
      
      		Begin Dialog UserDialog 340,147,"Set Owner For Selected Views" ' %GRID:10,7,1,1
      			TextBox 120,42,150,21,.Owner
      			Text 50,49,50,14,"Owner:",.Text1
      			OKButton 80,98,90,21
      			CancelButton 210,98,90,21
      		End Dialog
      		Dim dlg As UserDialog
      		
      
      		If Dialog(dlg) = -1 Then
      
      			'loop through selected objects
      			For Each so In submdl.SelectedObjects
      
      				'Only concern with views type 16 selected object
      				If so.Type = 16 Then
      
      					Debug.Print so.Type
      
      					Set vw = mdl.Views.Item(so.ID)
      
      					'update table owner from dialog input
      					vw.Owner = dlg.Owner
      
      				End If
      
      			Next
      
      		End If
      
      	Else
      
      		MsgBox("Active model must be a physical model.",vbOkOnly,"ERROR!")
      
      	End If
      
      
      End Sub