Page 99 - 6735

'якщо назви вихідної моделі не однакові
If v.GetReferencedModelName <>
dv.ReferenceModelPath Then
Debug.Print "ReplacingViewModel..."
'замінити вихідну модель на нову
ReplaceViewModel sname, v.Name,
compName, dv.ReferenceModelPath
End If
pos(0) = dv.PositionX
pos(1) = dv.PositionY
v.Position = pos 'нова позиція
v.ReferencedConfiguration =
dv.Configuration 'нова конфігурація

'вибрати вид
boolstatus =
swDraw.Extension.SelectByID2(v.Name, "DRAWINGVIEW", 0, 0,
0, False, 0, Nothing, 0)
swDraw.ShowNamedView2 "", dv.ModelViewName
'нова орієнтація виду, або swDraw.ShowNamedView2 "*Right",
-1
End If
Next v
End If
Next i

swDraw.EditRebuild 'перебудувати модель
End Sub

'функція шукає вид у data
Public Function findView(sheetName As String, viewName As
String, data As DrawingData) As DrawingView
Set findView = Nothing
For Each s In data.Sheets 'для кожного листа
If s.Name = sheetName Then
For Each v In s.views 'для кожного виду
If v.Name = viewName Then

99