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

ADN Club => Inventor API => Тема начата: Elfilagas от 15-04-2016, 10:43:51

Название: Обновить все листы
Отправлено: Elfilagas от 15-04-2016, 10:43:51
Добрый день,
Подскажите, пожалуйста, нужно обновить все листы на чертеже перед следующим шагом - нигде не могу найти команду.
Название: Re: Обновить все листы
Отправлено: mikazakov от 15-04-2016, 10:49:08
нужно обновить все листы на чертеже
может все виды на листе?
Название: Re: Обновить все листы
Отправлено: Elfilagas от 15-04-2016, 10:56:21
Именно обновить все листы через API нужно.
Название: Re: Обновить все листы
Отправлено: mikazakov от 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.  
Название: Re: Обновить все листы
Отправлено: Elfilagas от 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? )
Название: Re: Обновить все листы
Отправлено: filat от 15-04-2016, 12:23:37
Код - vb.net [Выбрать]
  1. Dim oControlDef As ControlDefinition
  2. oControlDef = m_inventorApplication.CommandManager.ControlDefinitions.Item("DrawingUpdateAllSheetsCmd")
  3. oControlDef.Execute()
Название: Re: Обновить все листы
Отправлено: mikazakov от 15-04-2016, 12:28:41
filat,
О Филат, успел суетнулся, блеснул знанием бейсика  ;D
Название: Re: Обновить все листы
Отправлено: Elfilagas от 15-04-2016, 12:38:21
Спасибо, всем. )