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

[R.I.Chernov]

Доброго времени суток, уважаемые форумчане! Помогите пожалуйста с вопросом, указанным в теме. Создаю лист чертежа, не могу разобраться, как изменить его формат.

[Александр Ривилис]

Речь не об этом: http://adndevblog.typepad.com/manufacturing/2012/06/change-the-width-and-height-of-a-sheet-by-inventor-api.html ?

[R.I.Chernov]

Спасибо, Александр! Да, в этом примере меняют размеры листа. Но я думал, что можно использовать стандартные форматы.

[Александр Ривилис]

Можно. Когда-то Владимир Ананьев написал такой код:

Код - 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

[R.I.Chernov]

Можно. Когда-то Владимир Ананьев написал такой код:

Еще раз спасибо. Но я не могу понять, зачем нужна строка под заголовком " '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

Для чего требуется получить текущий размер листа?

[Александр Ривилис]

Для чего требуется получить текущий размер листа?

В данном случае совершенно незачем. Наверное предполагалось вывести сообщение о текущем формате листа. Вот откуда "растут рога": http://forums.autodesk.com/t5/inventor-customization/vba-change-sheet-size/td-p/3637570

[R.I.Chernov]

Вот откуда "растут рога":

Понятно, спасибо за пояснение. Как я понял свойство DrawingSheetSizeEnum выдается в определенной кодировке? Где-то можно ее посмотреть?

[Александр Ривилис]

Как я понял свойство DrawingSheetSizeEnum выдается в определенной кодировке?

Как я понимаю - это перечисление (enum). Смотри в справке или в Object Browser. Точнее сказать не могу, т.к. с Inventor'ом не работаю.

[R.I.Chernov]

Точнее сказать не могу, т.к. с Inventor'ом не работаю.

Ок, понял. Спасибо за помощь!

[Александр Ривилис]

Вот что об этом говорит источник знаний - Справка! Она есть внутри Inventor - в данном случае 2017 версии!

[R.I.Chernov]

Вот что об этом говорит источник знаний - Справка!

Нормальный такой булыжничек в мой огород! Заслужил! Не знаю почему, но не жмякнул F1 на этом свойстве, что я обычно делаю, если что. Спасибо.