Проблема с AutoCAD в VB.Net

[NicSoft]

Создаю объект AutoCAD (objAcad as Object) через CreateObject, чтобы не таскать лишние библиотеки, и не было проблем с версиями. Для перехода на другой лист в VB6 прекрасно работала строка objAcad.ActiveDocument.ActiveLayout=objAcad.ActiveDocument.Layouts("Model"). В VB.Net аналогичный код работает только если objAcad as AutoDesk.AutoCAD.Interop.AcadApplication, и естественно необходимо создавать ссылку на библиотеку. При этом остальные функции работают нормально. Как исправить?

[Viper]

Во-первых, библиотеки таскать всяко придется, а во-вторых привиденного кода недостаточно для понимания происходящего

[NicSoft]

Во-первых, библиотеки таскать всяко придется

Я имею ввиду библиотеки AutoCAD. Если создавать объект AutoCAD как object, то ссылка (и соответственно библиотека в дистрибутиве) будет не нужна (во всяком случае так было в VB6).

Попытаюсь описать подробнее:
1 Вариант, без ссылки на AutoCAD и AXDBLib

Код: Выделить всё

Dim objAcad As Object
objAcad = CreateObject("AUTOCAD.APPLICATION")
objAcad.Documents.Add(Application.StartupPath & "\Template.dwt")
objAcad.Visible = True
'...
objAcad.ActiveDocument.ActiveLayout = objAcad.ActiveDocument.Layouts("Model")
'... (работа с листом Модели)
objAcad.ActiveDocument.ActiveLayout = objAcad.ActiveDocument.Layouts("Лист1")
'... (работа с Лист1)
objAcad.ActiveDocument.ActiveLayout = objAcad.ActiveDocument.Layouts("Лист2")
'... (работа с Лист2)

в VB.Net ошибка: Член группы не найден. В строке

Код: Выделить всё

objAcad.ActiveDocument.ActiveLayout = objAcad.ActiveDocument.Layouts("...")

2 Вариант, со ссылкой на AutoCAD и AXDBLib

Код: Выделить всё

Dim objAcad As Autodesk.AutoCAD.Interop.AcadApplication
objAcad = CreateObject("AUTOCAD.APPLICATION") ' или objAcad = New Autodesk.AutoCAD.Interop.AcadApplication
objAcad.Documents.Add(Application.StartupPath & "\Template.dwt")
objAcad.Visible = True
'...
objAcad.ActiveDocument.ActiveLayout = objAcad.ActiveDocument.Layouts("Model")
'... (работа с листом Модели)
objAcad.ActiveDocument.ActiveLayout = objAcad.ActiveDocument.Layouts("Лист1")
'... (работа с Лист1)
objAcad.ActiveDocument.ActiveLayout = objAcad.ActiveDocument.Layouts("Лист2")
'... (работа с Лист2)

работает как в VB6, так и в VB.Net

Пробовал заменить строку

Код: Выделить всё

objAcad.ActiveDocument.ActiveLayout = objAcad.ActiveDocument.Layouts("Model")

на

Код: Выделить всё

objAcad.ActiveDocument.ActiveLayout = objAcad.ActiveDocument.Layouts.Item(0)

Результат аналогичный.
Может есть другой способ установления листа активным?

[lord0n]

....................
в VB.Net ошибка: Член группы не найден. В строке

Код: Выделить всё

objAcad.ActiveDocument.ActiveLayout = objAcad.ActiveDocument.Layouts("...")

у меня такая мулька была с экселем когда пытался передать неправильный параметр
хотя vb6 схавал в легкую
но это я так к слову