Интерфейс технических требований в API7

[А8208]

Здравствуйте!
Не могу попасть в интерфейс технических требований.
Поскажите, где что не так.
код ниже.

Код Выделить Развернуть

   'Запуск(Компас)
        If Kompas Is Nothing Then
            Kompas = CreateObject("KOMPAS.Application.7")
            If Not Kompas Is Nothing Then
                Kompas.Visible = True
                'Проверка соответствия пути
                ReDim Stroki_print(1)
                i = 0
                j = 0
                'Цикл обработки списка чертежей использованных в КД
                Form1.ProgressBar1.Maximum = UBound(Spisok_oboznach, 1)
                Form1.ProgressBar1.Value = 0
                Form1.Refresh()
                For a = 1 To UBound(Spisok_oboznach, 1)
                    Form1.ProgressBar1.Value = a
                    Form1.Refresh()
                    Filename = Spisok_oboznach(a)
                    For i = 0 To UBound(coll) 'Count - 1
                        j = InStr(1, coll(i), Filename) 'поиск совпадений в строке из списка коллекции с нужным файлом
                        If j <> 0 Then
                            'ОТКРЫТИЕ ДОКУМЕНТА ДЛЯ СЧИТЫВАНИЯ ИНФОРМАЦИИ
                            Kompas.HideMessage = Kompas6Constants.ksHideMessageEnum.ksHideMessageYes
                            Dim Document2D As KompasAPI7.IDocuments
                            Document2D = Kompas.Documents
                            Document2D.Open(coll(i), Visible:=True, [ReadOnly]:=True)
                            'Kompas.HideMessage = Kompas6Constants.ksHideMessageEnum.ksHideMessageYes
                            Dim doc As KompasAPI7.IDrawingDocument
                            doc = Kompas.ActiveDocument
                            'doc.SheetAutoNumber() ' включение автоматической нумерации листов чертежей
                            Dim docPar As KompasAPI7.ILayoutSheets
                            docPar = doc.LayoutSheets
                            ' Определение кол-ва листов
                            Dim Listov As Integer
                            Listov = docPar.Count
                            'Цикл перебора форматов и ориентаций листов чертежа
                            Dim ii As Integer
                            For ii = 1 To Listov
                                Dim Format As Long
                                Dim Orient As Boolean
                                Format = docPar.ItemByNumber(ii).Format.Format
                                Orient = docPar.ItemByNumber(ii).Format.VerticalOrientation

                                'Нахождение маркировки в чертеже
                                Dim TT As KompasAPI7.ITechnicalDemand
                                'Проблема
                                'Пишет не зарегистрированный интерфейс

                                TT = doc.TechnicalDemand

                                Dim TT_text As String
                                Dim TT_mark As String
                                For j = 0 To TT.Text.Count
                                    TT_text = TT.Text.Str(j)
                                    If InStr(TT_text, "Маркировать") <> "" Then
                                        InStrRev(TT_text, " ")
                                        TT_mark = Right(TT_text, Len(TT_text) - InStrRev(TT_text, " "))
                                        If InStrRev(TT_mark, ".") <> 0 And Len(TT_mark) = InStrRev(TT_mark, ".") Then
                                            TT_mark = Left(TT_mark, Len(TT_mark) - 1)
                                        End If
                                        If InStrRev(TT_mark, """") <> 0 Then
                                            TT_mark = Left(TT_mark, Len(TT_mark) - 1)
                                        End If
                                        If InStr(TT_mark, """") <> 0 Then
                                            TT_mark = Right(TT_mark, Len(TT_mark) - 1)
                                        End If
                                    End If
                                Next j

[Sabahs]

Попробуйте зарегистрировать http://forum.ascon.ru/index.php/topic,22886.msg159213.html#msg159213

[А8208]

Работает!
Спасибо!