Как реализовать Zoom Window

Автор Тема: Как реализовать Zoom Window  (Прочитано 3934 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн filatАвтор темы

  • ADN Club
  • ****
  • Сообщений: 265
  • Карма: 2
Как реализовать Zoom Window
« : 21-07-2016, 12:34:25 »
Можно ли программно задать точки для команды Zoom Window призумировании в чертеже?
Я пробовал так:
Код - Visual Basic [Выбрать]
  1. Dim oTG As TransientGeometry
  2. Set oTG = ThisApplication.TransientGeometry
  3. ThisApplication.CommandManager.StartCommand (Inventor.CommandIDEnum.kZoomWindowCommand(oTG.CreatePoint2d(A, B), oTG.CreatePoint2d(C, D)))
не получилось  :(
Или эту команду можно только вызывать, но ей нельзя задавать координаты?

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 752
  • Карма: 195
  • Skype: mikazakov@mail.ru
Re: Как реализовать Zoom Window
« Ответ #1 : 21-07-2016, 13:33:50 »
CommandManager.StartCommand
Филат ты откуда такой метод взял?

Оффлайн filatАвтор темы

  • ADN Club
  • ****
  • Сообщений: 265
  • Карма: 2
Re: Как реализовать Zoom Window
« Ответ #2 : 21-07-2016, 15:15:12 »
CommandManager.StartCommand
Филат ты откуда такой метод взял?
У  Elfilagas подсмотрел: http://adn-cis.org/forum/index.php?topic=7194.0

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 752
  • Карма: 195
  • Skype: mikazakov@mail.ru
Re: Как реализовать Zoom Window
« Ответ #3 : 22-07-2016, 06:16:53 »
У  Elfilagas подсмотрел:
Возможно это устаревший метод, потому как в нынешней объектной модели этого метода нет.
Ну здесь не команду зуменга вызывать, а как то с камерой работать нужно через Document.Views