• На форуме с 6 августа 2008г.
  • Сообщений: 27
  • Спасибо: 0

Тема: Выполнение команды для нескольких файлов

Добрый день.

Есть следующая задачка:

В окне ТДМС выделяем несколько объектов (с помощью ctrl + мыши)
Требуется выполнить команду для всех выделенных объектов. Каким образом можно это реализовать? Как начать обработчик команды?

  • На форуме с 30 октября 2008г.
  • Сообщений: 91
  • Спасибо: 0

Re: Выполнение команды для нескольких файлов

Sub Command_BeforeExecute(Command, Obj, Cancel)
  set Shell =  ThisApplication.Shell
  set Objects = Shell.SelObjects
  MsgBox Objects.Count
End Sub

вот примерно как то так   :rolleyes:

  • На форуме с 15 марта 2010г.
  • Сообщений: 38
  • Спасибо: 0

Re: Выполнение команды для нескольких файлов

vorona пишет:
Sub Command_BeforeExecute(Command, Obj, Cancel)
  set Shell =  ThisApplication.Shell
  set Objects = Shell.SelObjects
  MsgBox Objects.Count
End Sub

вот примерно как то так   :rolleyes:

В продолжение темы. Возникла проблема с SelObjects.
SelObjects не видет объекты, выбранные в окне свойств на вкладке связи. А многие наши пользователи почему то очень любют тыкать команды именно там. В итоге команды просто не отрабатывают... По одельности через ThisObject все впорядке.

  • На форуме с 30 октября 2008г.
  • Сообщений: 91
  • Спасибо: 0

Re: Выполнение команды для нескольких файлов

bannies пишет:

В продолжение темы. Возникла проблема с SelObjects.
SelObjects не видет объекты, выбранные в окне свойств на вкладке связи. А многие наши пользователи почему то очень любют тыкать команды именно там. В итоге команды просто не отрабатывают... По одельности через ThisObject все впорядке.

вобще то такой возможности не предусмотрено, что бы вызывать команды с вкладки связи в свойствах объекта   :blink: