[Vladmart]

Нужно привязать листы к SubSet-ам проекта программно.
Нашел код функции на VB.Net по вставке листов в проект.

Код:

[Выделить все]

' Import a sheet into a sheet set or subset
Private Function ImportASheet(ByVal component As IAcSmComponent, _
                              ByVal title As String, _
                              ByVal description As String, _
                              ByVal number As String, _
                              ByVal fileName As String, _
                              ByVal layout As String) As AcSmSheet
    Dim sheet As AcSmSheet
    ' Create a reference to a Layout Reference object
    Dim layoutReference As New AcSmAcDbLayoutReference
    layoutReference.InitNew (component)
    ' Set the layout and drawing file to use for the sheet
    layoutReference.SetFileName (fileName)
    layoutReference.SetName (layout)
    ' Import the sheet into the sheet set
    ' Check to see if the Component is a Subset or Sheet Set
    If component.GetTypeName = "AcSmSubset" Then
        Dim subset As AcSmSubset = component
        sheet = subset.ImportSheet(layoutReference)
        subset.InsertComponent(sheet, Nothing)
    Else
        Dim sheetSetDatabase As AcSmDatabase = component
        sheet = sheetSetDatabase.GetSheetSet().ImportSheet(layoutReference)
        sheetSetDatabase.GetSheetSet().InsertComponent(sheet, Nothing)
    End If
    ' Set the properties of the sheet
    sheet.SetDesc (description)
    sheet.SetTitle (title)
    sheet.SetNumber (number)
    ImportASheet = sheet
End Function

Подскажите, ка его переделать в подпрограмму VBA и как получить component (нужного SubSet-а) .
Заранее благодарен

[kp+]

http://www.caduser.ru/forum/index.ph...#message229259