Здравствуйте!
Не могу попасть в интерфейс технических требований.
Поскажите, где что не так.
код ниже.
'Запуск(Компас)
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
Попробуйте зарегистрировать http://forum.ascon.ru/index.php/topic,22886.msg159213.html#msg159213
Работает!
Спасибо!