Page 100 - 6735

Set findView = v 'функція повертає вид або
Nothing
End If
Next v
End If
Next s
End Function

'процедура заміни вихідної моделі у виді креслення на нову
modelFileName
Public Sub ReplaceViewModel(sheetName As String, viewName
As String, componentName As String, modelFileName As
String)
Dim views(0) As Object 'вид
Dim instances(0) As Object 'компонент
Set swModel = swApp.ActiveDoc 'креслення
Set swModelDocExt = swModel.Extension
vs = swDraw.Sheet(sheetName).GetViews 'усі види
For Each v In vs 'для кожного виду
If v.Name = viewName Then 'знайти вид з іменем
viewName
Set views(0) = v
End If
Next v
id_ = componentName & "@" & viewName
'вибрати компонент
boolstatus = swModelDocExt.SelectByID2(id_, "COMPONENT",
0, 0, 0, False, 0, Nothing, 0)
Set swSelectionMgr = swModel.SelectionManager
Set swDrawingComponent =
swSelectionMgr.GetSelectedObject6(1, -1)
Set instances(0) = swDrawingComponent.Component
'замінити модель
boolstatus = swDraw.ReplaceViewModel(modelFileName,
(views), (instances))
End Sub

100