• Андрей
  • Восстановленный участник
  • На форуме с 24 октября 2003г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Как запретить вывод стандартного окна AutoCAD'а?

Как сделать, чтоб например при двойном нажатии на объекте, к примеру TEXT, если текст красного цвета - выводилось своё окно (код VBA)? при другом цвете всплывало бы стандартное окно изменения текста. Точнее мне надо знать как при вызове своего окна, после отработки кода VBA, не допустить вызова стандартного окна AutoCAD?

  • Milz
  • Восстановленный участник
  • На форуме с 31 марта 2003г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как запретить вывод стандартного окна AutoCAD'а?

В AutoCAD Objects / ThisDrawing:

Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
   Dim sset As AcadSelectionSet
   Dim selobj As AcadEntity
 Set sset = ThisDrawing.SelectionSets.Add("mainsset")
 sset.SelectAtPoint PickPoint
 If sset.Count > 0 Then
    Set selobj = sset.Item(0)
    If selobj.Color = acRed Then MsgBox "Моя форма!"
    End If
  sset.Delete
End Sub

  • Milz
  • Восстановленный участник
  • На форуме с 31 марта 2003г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как запретить вывод стандартного окна AutoCAD'а?

Сорьки, это только часть ответа, только щас заметил что у меня  по двойному щелчку мыши на тексте никакого стандартного окна не выдаётся. Может это для тебя будет приемлемым решением.

  • Milz
  • Восстановленный участник
  • На форуме с 31 марта 2003г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как запретить вывод стандартного окна AutoCAD'а?

SendKeys "{Esc}"

  • Андрей
  • Восстановленный участник
  • На форуме с 24 октября 2003г.
  • Сообщений: 2
  • Спасибо: 0

Re: Как запретить вывод стандартного окна AutoCAD'а?

Спасибо за ответ, за участие в моих проблеммах!
Да. При работе данного кода стандартные окна перестают вызываться при любых условиях. Это ни есть хорошо! Как применить SendKey в моём случае - пока не сообразил.

  • Milz
  • Восстановленный участник
  • На форуме с 31 марта 2003г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как запретить вывод стандартного окна AutoCAD'а?

Dim tmpPnt As Variant
Dim DblClick As Boolean
Private Sub AcadDocument_Activate()
DblClick = False
End Sub
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
Dim sset As AcadSelectionSet
Dim selobj As AcadEntity
If CommandName = "MTEDIT" And DblClick Then
 DblClick = False
 Set sset = ThisDrawing.SelectionSets.Add("mainsset")
 sset.SelectAtPoint tmpPnt
 If sset.Count > 0 Then
   Set selobj = sset.Item(0)
   sset.Delete
   If selobj.Color = acRed Then
    MsgBox "Моя форма!"
    SendKeys "{ESC}"
    End If
 End If
End If
End Sub
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
tmpPnt = PickPoint
DblClick = True
End Sub

У меня работает...

  • Milz
  • Восстановленный участник
  • На форуме с 31 марта 2003г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как запретить вывод стандартного окна AutoCAD'а?

Обед, думает желудок... обещаю больше так не делать, вот более правильный код:

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
Dim selobj As AcadEntity
If CommandName = "MTEDIT" Then
 If ThisDrawing.PickfirstSelectionSet.Count > 0 Then
   Set selobj = ThisDrawing.PickfirstSelectionSet.Item(0)
   If selobj.Color = acRed Then
    MsgBox "Моя форма!"
    SendKeys "{ESC}"
    End If
 End If
End If
End Sub