взаимодействие vba с компасом

[Святой Дьявол]

Доброго времени суток уважаемые форумчане! Решил я попробовать из vba excel чертить в компасе. открываю компас, открываю чертеж, черчю первую линию

Set kompas = New Kompas6API5.Application 'открываем компас
   kompas.Visible = True
    Set ksdoc = kompas.Document2D 'чертеж
   ksdoc.ksOpenDocument (Range("K1").Value & "\шаблон\пост4" & Range("D4").Value & ".cdw"), False 'открываем шаблон
   Dim x, x0, y, y0 As Double
   x0 = Range("C165").Value '=618
   y0 = Range("C166").Value ' =158
   x = Range("C171").Value * Range("C174").Value '0.98*1.53
   Dim i, j As Double
   i = Range("C176").Value ' i=12
   j = 1
   Do While j <= i
   ksdoc = ksdoc.ksLineSeg((x0 + j * x), (y0 - Range("C173").Value), (x0 + j * x), (y0 + Range("C173").Value), 1) 'чертим линии  
   j = j + 1
  Loop

цикл do while выполняется только один раз, после чего выскакивает ошибка Run-time error 424 Object required. Гуру подскажите в чем может быть ошибка? Заранее спасибо!

[alex77755]

Поставь в начале модуля Option Explicit
И правильно объяви переменные. В компасе не работал, но судя по коду

Set ksdoc = kompas.Document2D 'чертеж

одной переменной присваивается объект - документ, а потом ей же линия. А у линии нет такого метода, который есть у документа

ksdoc = ksdoc.ksLineSeg

[Святой Дьявол]

Поставь в начале модуля Option Explicit
И правильно объяви переменные. В компасе не работал, но судя по коду
Код:

Set ksdoc = kompas.Document2D 'чертеж

одной переменной присваивается объект - документ, а потом ей же линия. А у линии нет такого метода, который есть у документа
Код:

ksdoc = ksdoc.ksLineSeg

Alex, попробую вечером поэксперементировать, но мне кажется если бы переменные были неправильно то первый раз цикл бы тоже не проходил. ошибка выскакивает при повторном прохождении цикла, первая линия строится на чертеже нормально

[Святой Дьявол]

извиняюсь за долгое молчание, были проблемы с инетом( разобрался я со своими баранами, может кому пригодиться

Set kompas = New Kompas6API5.Application 'открываем компас
   kompas.Visible = True
    Set ksdoc = kompas.Document2D 'чертеж
   ksdoc.ksOpenDocument (Range("K1").Value & "\шаблон\пост4" & Range("D4").Value & ".cdw"), False 'открываем шаблон
   Set doc = kompas.ActiveDocument2D
   ksdoc = doc.ksMtr(618.28, 154.28, 0, 1, 1) 'временые координаты
   
   
   Dim x, y As Double
  
   x = Range("C171").Value * Range("C174").Value
    y = Range("C172").Value * Range("C175").Value
   Dim i, j As Double
   i = Range("C176").Value
   j = 1
         Do While j <= i
   ksdoc = doc.ksLineSeg(j * x, -Range("C173").Value, j * x, Range("C173").Value, 1)  
   ksdoc = doc.ksText(j * x - 2.5, -7, 0, 3.5, 1, 4096, j * Range("C171").Value) 
   ksdoc = doc.ksLineSeg(-j * x, -Range("C173").Value, -j * x, Range("C173").Value, 1)   
    ksdoc = doc.ksLineSeg(-Range("C173").Value, j * y, Range("C173").Value, j * y, 1)
    ksdoc = doc.ksText(-10, j * y - 1.5, 0, 3.5, 1, 4096, j * Range("C172").Value) 
     ksdoc = doc.ksLineSeg(-Range("C173").Value, -j * y, Range("C173").Value, -j * y, 1) 

   j = j + 1
           Loop

  ksdoc = doc.ksDeleteMtr 'зыкрываем временные координаты

[Shurup_89]

Здравствуйте, я общался с VB в windows, то есть писал макросы, подпрограммки к экселю, разные базы данных, но сейчас передо мной встала задача: открыть компас при помощи VB и подгружать в открытый документ 3D модели. Я конечно понимаю, что дурак, но я перечитал весь мануал из папки SDK и даже после этого у меня не получается даже открыть компас, не говоря уже о чём-то большем.

Пробовал Вашу программу, тоже ни в дугу, максимум чего добился - 413 ошибки