Как задать формат листа?

Автор Тема: Как задать формат листа?  (Прочитано 7398 раз)

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

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

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Как задать формат листа?
« : 30-08-2016, 14:05:16 »
Доброго времени суток, уважаемые форумчане! Помогите пожалуйста с вопросом, указанным в теме. Создаю лист чертежа, не могу разобраться, как изменить его формат.
« Последнее редактирование: 30-08-2016, 16:47:54 от R.I.Chernov »
В программировании я новичок...но ненадолго! ;)

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13886
  • Карма: 1788
  • Рыцарь ObjectARX
  • Skype: rivilis
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Re: Как задать формат листа?
« Ответ #2 : 30-08-2016, 14:28:55 »
Спасибо, Александр! Да, в этом примере меняют размеры листа. Но я думал, что можно использовать стандартные форматы.
В программировании я новичок...но ненадолго! ;)

Отмечено как Решение R.I.Chernov 30-08-2016, 15:10:38

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13886
  • Карма: 1788
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Как задать формат листа?
« Ответ #3 : 30-08-2016, 14:36:11 »
Можно. Когда-то Владимир Ананьев написал такой код:
Код - Visual Basic [Выбрать]
  1. Private Sub ChangeSheetSize()
  2.  
  3.   Dim oDoc As DrawingDocument
  4.   Set oDoc = ThisApplication.ActiveDocument
  5.  
  6.   Dim oSheet As Sheet
  7.   Set oSheet = oDoc.ActiveSheet
  8.  
  9.   'get current size
  10.  Dim Size As DrawingSheetSizeEnum
  11.   Size = oSheet.Size
  12.  
  13.   'set new size
  14.  oSheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
  15.  
  16.   'update sheet to see results
  17.  oSheet.Update
  18.  
  19. End Sub 'ChangeSheetSize
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Re: Как задать формат листа?
« Ответ #4 : 30-08-2016, 14:47:43 »
Можно. Когда-то Владимир Ананьев написал такой код:
Еще раз спасибо. Но я не могу понять, зачем нужна строка под заголовком " 'get current size", код же работает и без него:
Код - Visual Basic [Выбрать]
  1. Private Sub My_ChangeSheetSize()
  2.     Dim oDoc As DrawingDocument
  3.     Set oDoc = ThisApplication.ActiveDocument
  4.     Dim oSheet As Sheet
  5.     Set oSheet = oDoc.ActiveSheet
  6.  
  7.     oSheet.Size = DrawingSheetSizeEnum.kA4DrawingSheetSize
  8.     oSheet.Update
  9. End Sub

Для чего требуется получить текущий размер листа?
В программировании я новичок...но ненадолго! ;)

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13886
  • Карма: 1788
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Как задать формат листа?
« Ответ #5 : 30-08-2016, 14:53:37 »
Для чего требуется получить текущий размер листа?
В данном случае совершенно незачем. Наверное предполагалось вывести сообщение о текущем формате листа. Вот откуда "растут рога": http://forums.autodesk.com/t5/inventor-customization/vba-change-sheet-size/td-p/3637570
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Re: Как задать формат листа?
« Ответ #6 : 30-08-2016, 15:10:19 »
Вот откуда "растут рога":
Понятно, спасибо за пояснение. Как я понял свойство DrawingSheetSizeEnum выдается в определенной кодировке? Где-то можно ее посмотреть?
В программировании я новичок...но ненадолго! ;)

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13886
  • Карма: 1788
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Как задать формат листа?
« Ответ #7 : 30-08-2016, 15:16:05 »
Как я понял свойство DrawingSheetSizeEnum выдается в определенной кодировке?
Как я понимаю - это перечисление (enum). Смотри в справке или в Object Browser. Точнее сказать не могу, т.к. с Inventor'ом не работаю.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Re: Как задать формат листа?
« Ответ #8 : 30-08-2016, 15:23:00 »
Точнее сказать не могу, т.к. с Inventor'ом не работаю.
Ок, понял. Спасибо за помощь!
В программировании я новичок...но ненадолго! ;)

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13886
  • Карма: 1788
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Как задать формат листа?
« Ответ #9 : 30-08-2016, 15:27:10 »
Вот что об этом говорит источник знаний - Справка! Она есть внутри Inventor - в данном случае 2017 версии!



Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Re: Как задать формат листа?
« Ответ #10 : 30-08-2016, 15:42:45 »
Вот что об этом говорит источник знаний - Справка!
Нормальный такой булыжничек в мой огород! :) Заслужил! Не знаю почему, но не жмякнул F1 на этом свойстве, что я обычно делаю, если что. Спасибо.
В программировании я новичок...но ненадолго! ;)