Excel и AutoCAD+макросы

[Nik953]

Доброго времени суток!
Придумал себе задачу построения некоторой САПР - вводишь данные по ним чертится в автокаде условный прямоугольник. С переносом данных и использованием модуля проблем не возникает. Создать новый чертёж из экселя и нарисовать в нём линии получается, однако возникла некоторая проблема:

В лист Эксель внедрён объект Чертёж "AutoCAD.Drawing", руками здесь прямое редактирование - щёлкаешь на объект, открывается автокад, рисуешь что надо, сохраняешь изменения.
А вот как обратиться к этому объекту посредством макроса у меня случился какой-то затык.
Есть ощущение что решение где то на поверхности, но дойти не получается... Подскажите, пожалуйста! Буду премного благодарен!

[doober]

Здравствуйте.
А поискать по этой ветке форума с поисковым запросом AutoCAD не?

[Nik953]

Именно того, что спросил, не нашел(( Тут в основном рассмотрены те вопросы, с которыми и сам справился.

Уже методом научного тыка докопался, что для решения проблемы нужно копать в сторону OLE-объекта, однако полностью решить не выходит ещё.

[doober]

Так можно открыть.

Sub Макрос1()
    Set r = ActiveSheet.Shapes("Object 2").OLEFormat.Object
    r.Verb Verb:=xlPrimary
    Set ACADApp = GetObject("", "AutoCAD.Application")
    Set dwg = ACADApp.ActiveDocument
End Sub

[Nik953]

Спасибо!