Обновить все листы

Автор Тема: Обновить все листы  (Прочитано 4757 раз)

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

Тема содержит сообщение с Решением. Нажмите здесь чтобы посмотреть его.

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

  • ADN OPEN
  • ***
  • Сообщений: 117
  • Карма: 4
Обновить все листы
« : 15-04-2016, 10:43:51 »
Добрый день,
Подскажите, пожалуйста, нужно обновить все листы на чертеже перед следующим шагом - нигде не могу найти команду.

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 752
  • Карма: 195
  • Skype: mikazakov@mail.ru
Re: Обновить все листы
« Ответ #1 : 15-04-2016, 10:49:08 »
нужно обновить все листы на чертеже
может все виды на листе?

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

  • ADN OPEN
  • ***
  • Сообщений: 117
  • Карма: 4
Re: Обновить все листы
« Ответ #2 : 15-04-2016, 10:56:21 »
Именно обновить все листы через API нужно.

Отмечено как Решение Elfilagas 15-04-2016, 12:37:02

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 752
  • Карма: 195
  • Skype: mikazakov@mail.ru
Re: Обновить все листы
« Ответ #3 : 15-04-2016, 11:19:28 »
Код - F# [Выбрать]
  1.   [STAThread]
  2.         static void Main ( ) {
  3.             Inventor.Application InvApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application") as Inventor.Application;
  4.             InvApp.CommandManager.ControlDefinitions["DrawingUpdateAllSheetsCmd"].Execute();
  5.         }
  6.  

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

  • ADN OPEN
  • ***
  • Сообщений: 117
  • Карма: 4
Re: Обновить все листы
« Ответ #4 : 15-04-2016, 11:37:25 »
Код - F# [Выбрать]
  1.   [STAThread]
  2.         static void Main ( ) {
  3.             Inventor.Application InvApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application") as Inventor.Application;
  4.             InvApp.CommandManager.ControlDefinitions["DrawingUpdateAllSheetsCmd"].Execute();
  5.         }
  6.  

А если не сложно - как через VB? )

Оффлайн filat

  • ADN Club
  • ****
  • Сообщений: 265
  • Карма: 2
Re: Обновить все листы
« Ответ #5 : 15-04-2016, 12:23:37 »
Код - vb.net [Выбрать]
  1. Dim oControlDef As ControlDefinition
  2. oControlDef = m_inventorApplication.CommandManager.ControlDefinitions.Item("DrawingUpdateAllSheetsCmd")
  3. oControlDef.Execute()

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 752
  • Карма: 195
  • Skype: mikazakov@mail.ru
Re: Обновить все листы
« Ответ #6 : 15-04-2016, 12:28:41 »
filat,
О Филат, успел суетнулся, блеснул знанием бейсика  ;D

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

  • ADN OPEN
  • ***
  • Сообщений: 117
  • Карма: 4
Re: Обновить все листы
« Ответ #7 : 15-04-2016, 12:38:21 »
Спасибо, всем. )