Не срабатывает SendCommand

[Пашин Евгений]

Уважаемые форумчане, у кого-то было такое, что команда переключения с пространства модели на лист не срабатывала?

Код - Visual Basic [Выбрать]

1. SendCommand ("_CTAB" & vbCr & "Лист1" & vbCr)
2. 'или
3. SendCommand ("_TILEMODE" & vbCr & "0" & vbCr)
4. 'или
5. SendCommand ("_LAYOUT" & vbCr & "_SET" & vbCr & "Лист1" & vbCr)
6. 'или
7. ActiveSpace=acPaperSpace

Ни одна из этих команд не срабатывает! Бывало ли когда-то такое?

[Александр Ривилис]

1) Только эти не срабатывают или другие тоже?
2) Нет ли в момент запуска этих команд активной (запущенной) команды?

[Пашин Евгений]

Железно нету!

Елы-палы: "_zoom" & vbCr & "_e" & vbCr тоже не сработал!
Сработал, когда вся процедура завершилась.

[Пашин Евгений]

Код - vb.net [Выбрать]

1.  
2. Imports Autodesk.AutoCAD.Runtime
3. Imports Autodesk.AutoCAD.Interop
4. .....
5.  
6.         <CommandMethod("alllayoutshow")> _
7.         Public Sub alllayoutshow()
8.             Dim acApp As AcadApplication
9.             acApp = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication
10.             Dim acDoc As AcadDocument
11.             acDoc = acApp.ActiveDocument
12.  
13.             Dim p1(2) As Double
14.             Dim p2(2) As Double
15.  
16.             For Each LT In acDoc.Layouts
17.                 If InStr(LT.Name, "LT") <> 0 Then
18.                     LT.delete()
19.                 End If
20.             Next
21.  
22.             Dim i As Long
23.  
24.             p1(0) = 0 : p1(1) = 0 : p1(2) = 0
25.             p2(0) = 297 : p2(1) = 210 : p2(2) = 0
26.  
27.             For i = 1 To 10
28.                 acDoc.Layouts.Add("LT" & i)
29.                 acDoc.SendCommand("_ctab" & vbCr & "LT" & i & vbCr)
30.                 acDoc.ActiveLayout.Block.AddLine(p1, p2)
31.                 acDoc.SendCommand("_zoom" & vbCr & "_e" & vbCr)
32.                 MsgBox("Лист LT" & i & " активен!")
33.             Next i
34.  
35.         End Sub

Не работает! Все линии отрисовал в пространстве модели!



А эта штука работает! Каждая линия на своем листе!

Код - Visual Basic [Выбрать]

1. Public Sub alllayoutshow()
2.             Dim acApp As AcadApplication
3.             Set acApp = Application
4.             Dim acDoc As AcadDocument
5.             Set acDoc = acApp.ActiveDocument
6.  
7.             Dim p1(2) As Double
8.             Dim p2(2) As Double
9.             Dim LT As Object
10.  
11.             For Each LT In acDoc.Layouts
12.                 If InStr(LT.Name, "LT") <> 0 Then
13.                     LT.Delete
14.                 End If
15.             Next
16.  
17.             Dim i As Long
18.  
19.             p1(0) = 0: p1(1) = 0: p1(2) = 0
20.             p2(0) = 297: p2(1) = 210: p2(2) = 0
21.  
22.             For i = 1 To 10
23.                 acDoc.Layouts.Add ("LT" & i)
24.                 acDoc.SendCommand ("_ctab" & vbCr & "LT" & i & vbCr)
25.                 acDoc.ActiveLayout.Block.AddLine p1, p2
26.                 acDoc.SendCommand ("_zoom" & vbCr & "_e" & vbCr)
27.                 MsgBox ("Лист LT" & i & " активен!")
28.             Next i
29.  
30.         End Sub

Почему не работает в VB.NET, а пишу в VBA AutoCAD, тоже самое - РАБОТАЕТ?!


Не срабатывает SendCommand, причем все команды _ctab и _zoom! Срабатывает только на последнем листе!

[Александр Ривилис]

Ты пытаешься писать в VBA или в VB.NET? Если в VB.NET, то почему тема создана в этом разделе? Каким образом я (или кто-нибудь другой) должен догадаться, что речь идёт о VB.NET?

[Александр Ривилис]

Почему не работает в VB.NET, а пишу в VBA AutoCAD, тоже самое - РАБОТАЕТ?!

Потому что в VBA SendCommand работает синхронно, а в VB.NET в большинстве случаев ассинхронно.

[Пашин Евгений]

Ох вот оно что... Блин, а мне не жить не быть надо передать синхронно!

Ты пытаешься писать в VBA или в VB.NET? Если в VB.NET, то почему тема создана в этом разделе? Каким образом я (или кто-нибудь другой) должен догадаться, что речь идёт о VB.NET?

Я привел пример, того, что один и тот же код, отрабатывается по-разному. Извиняюсь за сей конфуз. Надо на NET писать, но так как времени в обрез, а NET освоение еще в проекте, то думаю, у меня нет иного выхода как писать что-то похожее на VBA, но под NET! Помогите разобраться как запустить команду через командную строку СИНХРОННО...

Немножко подкорректировал VB.NET код, чтобы не путались однополчане... Может я правда РАЗДЕЛ не верный указал.

[Александр Ривилис]

Попробуй вместо:

Код - vb.net [Выбрать]

1. <CommandMethod("alllayoutshow")> _

написать:

Код - vb.net [Выбрать]

1. <CommandMethod("alllayoutshow",  CommandFlags.Session)> _

Не уверен, но шансы есть. Если не получится, то у тебя только один вариант - полностью переписать код на .NET

[Пашин Евгений]

О, как раз то, что на страницах сайта Андрея Бушмана я обнаружил

SendCommand или SendStringToExecute?
дата публикации: 13.12.2011
SendCommand

Метод Autodesk.AutoCAD.Interop.AcadDocument.SendCommand работает синхронно, если флаг CommandFlag == Session. В этом случае, прежде чем вносить изменение в Autodesk.AutoCAD.ApplicationServices.Document, его в обязательном порядке необходимо предварительно заблокировать.
SendStringToExecute

Метод Autodesk.AutoCAD.ApplicationServices.Document.SendStringToExecute всегда работает асинхронно.

Сейчас попробую!!!




Не уверен, но шансы есть. Если не получится, то у тебя только один вариант - полностью переписать код на .NET

Хорошо бы! Если только меня не уволят раньше времени за просрок задачи!

[Пашин Евгений]

Код - vb.net [Выбрать]

1. <CommandMethod("alllayoutshow",  CommandFlags.Session)> _

Есть где-нибудь описание всех флагов, на что они влияют и как они работают?

[Александр Ривилис]

Есть где-нибудь описание всех флагов, на что они влияют и как они работают?

http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-F77E8FE0-8034-4704-93BD-F717608F8223

[Пашин Евгений]

Ну что ж!

Код - vb.net [Выбрать]

1. <CommandMethod("alllayoutshow",  CommandFlags.Session)> _

Код отреагировал, переключение произошло на первый LT1, но линии теперь (все 10 штук) отрисовались на листе LT1!

По-моему решение где-то рядом! Уверен! Попробую посмотреть про флаги информацию.

[Александр Ривилис]

Посмотри что у тебя печатается в командной строке. Для это установи системную переменную CMDECHO в 1

[Александр Ривилис]

acDoc.Layouts.Add ("LT" & i) возвращает Layout. Ты можешь для добавления на него отрезка использовать его, а не .ActiveLayout

[Пашин Евгений]

Александр, Вы просто не представляете какой я дундук! Я запускал оказывается все это время не ту команду )))))

А главное Вам я показал правильный код:

Код - vb.net [Выбрать]

1. ...
2.             For i = 1 To 10
3.                 acDoc.Layouts.Add("LT" & i)
4.                 acDoc.SendCommand("_ctab" & vbCr & "LT" & i & vbCr)
5.                 acApp.Update()
6.                 acDoc.ActiveLayout.Block.AddLine(p1, p2)
7.                 acDoc.SendCommand("_zoom" & vbCr & "_e" & vbCr)
8.                 MsgBox("Лист LT" & i & " активен!")
9.             Next i
10. ...
11.  

а запускал вот этот код )))) Ну не дундук ли я после этого?

Код - vb.net [Выбрать]

1. ...
2.             For i = 1 To 10
3.                 acDoc.Layouts.Add("LT" & i)
4.                 acDoc.SendCommand("_ctab" & vbCr & "LT" & i & vbCr)
5.                 acApp.Update()
6.                 acDoc.ActiveLayout.Block.AddLine(p1, p2)
7.                 'acDoc.SendCommand("_zoom" & vbCr & "_e" & vbCr)       ' Нужно было раскомментировать эту строку
8.                 acDoc.SendCommand("_zoom" & vbCr & "_w" & vbCr)       ' На этой то строке все повисало ))))
9.                 MsgBox("Лист LT" & i & " активен!")
10.             Next i
11. ...
12.  

ВСЕ ЗАРАБОТАЛО!

Решение:

Код - vb.net [Выбрать]

1. <CommandMethod("alllayoutshow", CommandFlags.Session)> _

СПАСИБО!!!