[shprot]

Помогите пожалуйста в таком вопросе. Есть макрос написанный в Excel, он делает следующее, делается переход в AutoCAD где делается выбор объектов которые обрабатываются, после этого нужно вернутся в окно Excel, а вот с этим проблема, оно фокус вроде получает, (просто мигает окно) но не разворачивается. Заранее благодарен.

Код:

[Выделить все]

Private Sub Обработка() 
Dim objApp As AcadApplication, objDoc As AcadDocument, sset As AcadSelectionSet

Set objApp = GetObject(, "AutoCAD.Application")
Set objDoc = objApp.ActiveDocument
AppActivate objApp.Caption

Set sset = objDoc.SelectionSets.Add("ss2")
sset.SelectOnScreen 

'здесь делаем обработку

AppActivate Application.Caption 'передаем фокус Excel, но он почему то не срабатывает
End Sub

AutoCAD 2011 Excel 2010

[Brispol]

вот так вроде работает

Sub Макрос1()

Set objApp = GetObject(, "AutoCAD.Application")
Set objDoc = objApp.ActiveDocument
AppActivate objApp.Caption

'здесь делаем обработку

Set objApp = GetObject(, "Excel.Application")
AppActivate objApp.Caption

End Sub

[shprot]

Работает но так же как и раньше, увы.

[Олег (jr.)]

Что-то вроде этого:
Option Explicit

Код:

[Выделить все]

Sub Test()

Dim Cap As String
Cap = Application.Caption
Dim objApp As AcadApplication, objDoc As AcadDocument, oSset As AcadSelectionSet
Set objApp = GetObject(, "AutoCAD.Application")
Set objDoc = objApp.ActiveDocument
AppActivate objApp.Caption
Dim ftype() As Integer
Dim fdata() As Variant
Dim dxfCode, dxfValue

          With objDoc.SelectionSets
               While .Count > 0
                    .Item(0).Delete
               Wend
          Set oSset = .Add("$NewOne$")
          End With
          
oSset.SelectOnScreen

objApp.WindowState = acMin

DoEvents

AppActivate Cap

Application.Windows.Item(1).Activate

MsgBox oSset.Count

End Sub

~'o'~

[shprot]

Спасибо все работает, очень помогли!
Только добавил строку

Код:

[Выделить все]

objApp.WindowState = acMax

Код:

[Выделить все]

On Error GoTo u 'ошибка при закрытом AutoCAD
Set objApp = GetObject(, "AutoCAD.Application")
Set objDoc = objApp.ActiveDocument
objApp.WindowState = acMax
AppActivate objApp.Caption 'передаем фокус окну AutoCAD

А то повторный переход в AutoCAD не срабатывал

[Олег (jr.)]

Ну и ладушки