Сообщество программистов Autodesk в СНГ

ADN Club => AutoCAD .NET API => Тема начата: Пашин Евгений от 25-08-2015, 11:02:18

Название: Не срабатывает SendCommand
Отправлено: Пашин Евгений от 25-08-2015, 11:02:18
Уважаемые форумчане, у кого-то было такое, что команда переключения с пространства модели на лист не срабатывала?

Код - 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

Ни одна из этих команд не срабатывает! Бывало ли когда-то такое?
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2015, 12:35:57
1) Только эти не срабатывают или другие тоже?
2) Нет ли в момент запуска этих команд активной (запущенной) команды?
Название: Re: Не срабатывает SendCommand
Отправлено: Пашин Евгений от 25-08-2015, 12:50:56
Железно нету!

Елы-палы: "_zoom" & vbCr & "_e" & vbCr тоже не сработал!
Сработал, когда вся процедура завершилась.
Название: Re: Не срабатывает SendCommand
Отправлено: Пашин Евгений от 25-08-2015, 13:31:06
Код - 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! Срабатывает только на последнем листе!
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2015, 13:37:15
Ты пытаешься писать в VBA или в VB.NET? Если в VB.NET, то почему тема создана в этом разделе? Каким образом я (или кто-нибудь другой) должен догадаться, что речь идёт о VB.NET?
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2015, 13:38:42
Цитата: Пашин Евгений от 25-08-2015, 13:31:06
Почему не работает в VB.NET, а пишу в VBA AutoCAD, тоже самое - РАБОТАЕТ?!
Потому что в VBA SendCommand работает синхронно, а в VB.NET в большинстве случаев ассинхронно.
Название: Re: Не срабатывает SendCommand
Отправлено: Пашин Евгений от 25-08-2015, 13:50:34
Ох вот оно что... Блин, а мне не жить не быть надо передать синхронно!

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

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

Немножко подкорректировал VB.NET код, чтобы не путались однополчане... Может я правда РАЗДЕЛ не верный указал.
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2015, 13:58:15
Попробуй вместо:
Код - vb.net [Выбрать]
  1. <CommandMethod("alllayoutshow")> _
написать:
Код - vb.net [Выбрать]
  1. <CommandMethod("alllayoutshow",  CommandFlags.Session)> _
Не уверен, но шансы есть. Если не получится, то у тебя только один вариант - полностью переписать код на .NET
Название: Re: Не срабатывает SendCommand
Отправлено: Пашин Евгений от 25-08-2015, 14:00:43
О, как раз то, что на страницах сайта Андрея Бушмана я обнаружил

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

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

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

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




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

Хорошо бы! Если только меня не уволят раньше времени за просрок задачи!
Название: Re: Не срабатывает SendCommand
Отправлено: Пашин Евгений от 25-08-2015, 14:03:54
Код - vb.net [Выбрать]
  1. <CommandMethod("alllayoutshow",  CommandFlags.Session)> _

Есть где-нибудь описание всех флагов, на что они влияют и как они работают?
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2015, 14:05:09
Цитата: Пашин Евгений от 25-08-2015, 14:03:54
Есть где-нибудь описание всех флагов, на что они влияют и как они работают?
http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-F77E8FE0-8034-4704-93BD-F717608F8223
Название: Re: Не срабатывает SendCommand
Отправлено: Пашин Евгений от 25-08-2015, 14:07:55
Ну что ж!

Код - vb.net [Выбрать]
  1. <CommandMethod("alllayoutshow",  CommandFlags.Session)> _

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

По-моему решение где-то рядом! Уверен! Попробую посмотреть про флаги информацию.
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2015, 14:10:32
Посмотри что у тебя печатается в командной строке. Для это установи системную переменную CMDECHO в 1
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2015, 14:17:07
acDoc.Layouts.Add ("LT" & i) возвращает Layout. Ты можешь для добавления на него отрезка использовать его, а не .ActiveLayout
Название: Re: Не срабатывает SendCommand
Отправлено: Пашин Евгений от 25-08-2015, 14:22:33
Александр, Вы просто не представляете какой я дундук! Я запускал оказывается все это время не ту команду )))))

А главное Вам я показал правильный код:
Код - 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)> _


СПАСИБО!!!
Название: Re: Не срабатывает SendCommand
Отправлено: Александр Ривилис от 25-08-2015, 14:24:16
Цитата: Пашин Евгений от 25-08-2015, 14:22:33
а запускал вот этот код )))) Ну не дундук ли я после этого?
Самокритика приветствуется. Теперь всё нормально?
Название: Re: Не срабатывает SendCommand
Отправлено: Пашин Евгений от 25-08-2015, 14:25:21
ОФИГЕННО! И это слабо сказано!