Inventor 2021. Специфікація українською мовою

[d.grytsenko]

Чи можливо змінити шаблон специфікації, щоб її таблиця та основний напис відображались українською мовою при вставці на кресленику і при збереженні в Excel? Якщо можливо, то як це зробити?

[DmytroMukhin]

Вітаю!

Думаю, що у @Alexander_Chernikov є як мінімум порада, а може і відео на цю тему. Зможете допомогти з питанням вище за можливості?

А ще, скоріш за все, це буде цікаво @Olena.Rubin 😉

[Alexander_Chernikov]

Так, можливо.
У нас є адаптований українською в частині саме специфікації модуль ЕSKD*.dll
для англо/російсько-мовних версій 2021.2+ та 2023.2

Також є відповідний екселевський шаблон PartsListTemplate та шаблон кресленика з українськими основними написами.
Для якої версії Вам треба?

[d.grytsenko]

Версія 2023.2. Шаблон кресленика я розібрався як робить завдяки Вашим відео, дякую! А от шаблон специфікації не знайшов де правити. Будь ласка, надішліть? І куди саме його додавати?

[Alexander_Chernikov · Accepted solution]

В доданому архіві необхідні файли й опис, куди їх копіювати.
Файли з суфіксом Gost**00 - вихідні файли з стандартної інсталяції модуля ЄСКД.
Також є перекладені технічні умови та деякі матеріали.

[d.grytsenko]

Дякую, позаміняв файли. На кресленику специфікація переклалась:

Замість стовпця Зона, тепер - к. Що це значить? Чи можна звузити стовпець Позначення, оскільки рамка специфікації вилазить за основний напис і постійно приходиться підправляти?

Також при відкритті в Excel губиться шифр (перевіряв декілька разів):

У чому справа, підкажіть, будь ласка?

[Alexander_Chernikov]

Зазвичай ми не розташовували специфікацію на аркуші кресленика, а друкували її з Екселя - дякую за зауваження, буду дивитися.

Що стосується позначення в Екселі - позначення складального кресленика за стандартом має закінчуватись літерами "СБ" - в основному напису самого складального кресленика та у відповідному рядку специфікації.
Але у основному написі самої специфікації цих символів не має бути - тому написана формула для ділянки "Обозначение", яка видаляє ці 2 останні символи. 
Тож або треба додавати їх у позначенні складання, або відкрити файл ексель-шаблона специфікації
( PartsListTemplate.xls ) і видалити цю формулу, залишивши  у чарунці: =TBPartNumber1

[d.grytsenko]

Це геніально придумано! 

Так ідея: а якщо додати умову, якщо в кінці є СБ то виводити шифр без СБ в кінці, а якщо нема, то виводити те, що передано у шаблон.

[d.grytsenko]

Ось зробив виправлення вашого шаблону:

Тепер працює і без СБ. Файл Excel шаблону додав.

А що буде, якщо хтось у шифрі напише букви СБ? Вони ж теж будуть знаходитись і весь шифр буде відкидатись після цих букв:

Це не передбачено?

[Alexander_Chernikov]

Проблема в тому, що зараз немає усталеного позначення складання (як було у ГОСТ 2.201) -

я зустрічав і ЗБ, і СК, і СБ.

Мабуть краще буде перевіряти та видаляти 2-4 останніх символа (після Б може ще бути пробіл),
тобто йти справа наліво до першої цифри, що зустрінеться.

Але треба відновлювати стандарт.

https://uk.wikipedia.org/wiki/Конструкторська_документація

[d.grytsenko]

Мені потрібно робити багато креслеників, а відповідно потім між цими креслениками орієнтуватись. Тому я вирішив трохи переробити позначення. Враховуючи, що на сьогодні основа це НЕ паперова документація, а файли у теці, то потрібно здійснювати простий пошук необхідного кресленика. Враховуючи, що кресленики збірок і деталей мають однакові розширення, то оптимально буде зробити так, щоб при сортуванні за розширенням у теці, спочатку відображались складальні кресленики, а потім деталі. А також не гаяти час на встановлення шифру СБ. Тому позначення наступне.

Якщо збірка: короткий шифр назви проєкту - ЗБ.номер збірки. (СМ-ЗБ.01)

Якщо деталь: Короткий шифр проєкту - Номер збірки.Номер деталі у збірці. (СМ-01.01)

Цифровий індекс можна розширити, якщо потрібно.

Такий шифр відмінно сортує файли у теці, що дає можливість швидко знаходити необхідний кресленик.

Також це перевірено на позитивних відгуках замовників.

Тому я так і рекомендую оформлювати кресленики своїм студентам.

[Alexander_Chernikov]

Мабуть, через деякий час буде складно згадувати, де яка модель тільки за номером проекта.
Ми використовуємо трохи інший спосіб - ім'я файлу складається с коду проекта та назви моделі,
наприклад, АХХХ.124587.012 Корпус або АББВ. 125687.100 СБ Двигун.
У властивостях моделі потім назва деталі/вузла переноситься у відповідне поле (зроблений макрос, який дозволяє не робити це двічі).
Також була рекомендація, щоб ім'я файлу моделі та кресленика співпадали.
В навчальних матеріалах Autodesk була ще пропозиція створювати окремі теки у теці проекту для деталей, складань, стандартних виробів та креслеників, але це треба обговорювати.

Дійсно, важливо почути думки/побажання всіх, хто використовує Inventor в реальному проектуванні! 

[d.grytsenko]

Так, то я не написав: після шифру йде пробіл дефіс пробіл і назва, наприклад: СМ-01.02 - Вал, СМ-ЗБ.01 - Станина.

Дійсно, в проєкт можна додати часто використовувані теки і в них робити збереження. 

Але я користуюсь сортуванням у теці за типом файлів і все швидко знаходиться.

Бо при збереженні великої кількості файлів буває що випадково не туди зберігаєш, а потом шукаєш, де цей файл. Тому я перейшов на систему такого шифрування.

[d.grytsenko · Accepted solution]

Ось переробив шаблон специфікації:

Формула видаляє в кінці всі зайві пробіли. Перевіряє кінець шифру на наявність СБ, ЗБ, СЧ або СК. І якщо знаходить збіг, то видаляє їх, інакше залишає те що було в шифрі кресленика (з видаленням підряд введених подвійних і більше пробілів).

Також виправив невірний переклад в табличці зліва.

@Alexander_Chernikov Протестуйте, будь ласка, чи запрацює у Вас?

[Alexander_Chernikov]

Так, все працює, як треба.
Стосовно специфікації, що вставляється на аркуш - доробляю правило на iLogic.
Проблема в тому, що в таблиці неможливо повернути текст вертикально і стовпчик "Формат" має ширину, яка визначається цим словом. Також є бажання автоматично розташувати таблицю над основним написом.

[Alexander_Chernikov]

На жаль, на вдалось поки автоматично перенести специфікацію в потрібне місце - це треба робити власноруч.
Також попередньо необхідно в налаштуваннях стилю таблиці вимкнути відображення кінцевих нулей.

Код правила:

Sub Main() ' EditPartListTable
' Before using change GOST Table Style: Don't Display Trailing Zero
  Dim oCurSh As Sheet = ThisApplication.ActiveDocument.ActiveSheet
  Dim oBOMTable As CustomTable
  Dim oTbPos As Point2d  
  If oCurSh.CustomTables.Count < 1 Then
    Exit Sub
  End If
  For i = 1 To oCurSh.CustomTables.Count
    If Left(oCurSh.CustomTables.Item(i).Title, 15) = "GOST Parts List" Then
      oBOMTable = oCurSh.CustomTables.Item(i)
'     ThisApplication.ActiveDocument.StylesManager.FeatureControlFrameStyles.Item(7).TrailingZeroDisplay = False
      oBOMTable.ColumnHeaderTextStyle = ThisApplication.ActiveDocument.StylesManager.TextStyles.Item("Condensed Text (GOST)") ' 3
      oBOMTable.ColumnHeaderTextStyle.FontSize = 0.3
      oBOMTable.ColumnHeaderTextStyle.WidthScale = 0.6
      oBOMTable.DataTextStyle = ThisApplication.ActiveDocument.StylesManager.TextStyles.Item("PL Regular Text (GOST)") ' 1
      oBOMTable.DataTextStyle.FontSize = 0.3
      oBOMTable.DataTextStyle.WidthScale = 0.9
      oBOMTable.Columns.Item(1).Title = "Фор- мат"
      oBOMTable.Columns.Item(1).Width = 0.6
      oBOMTable.Columns.Item(2).Title = "Зо- на"
      oBOMTable.Columns.Item(2).Width = 0.6

'      oTbPos = ThisApplication.ActiveDocument.TransientGeometry.CreatePoint2d( _
'          oCurSh.Width - 19, oCurSh.TitleBlock.RangeBox.MaxPoint.Y + _
'          (oBOMTable.RangeBox.MaxPoint.Y - oBOMTable.RangeBox.MinPoint.Y))
'      Call oBOMTable.Position.TranslateBy(ThisApplication.ActiveDocument.TransientGeometry.CreateVector2d(10, -10))
      oBOMTable.Update
      oCurSh.Update
      Exit Sub
    End If
  Next
End Sub

[d.grytsenko]

Дякую. Застосував правило. Переніс всі налаштування стилю таблиці як на Вашому скріні.

Замість позицій і кількості стали значення в мм:

[Alexander_Chernikov]

Відповідно до скріну, Ви вимкнули показ початкових нулей, а треба кінцевих.
Також зніміть позначку "Одиниці вимірювання".

Видалить таблицю, знову викличте команду "Специфікація", розмістить її на аркуші й перезапустить правило (те, що залишилась літера "К" замість "Зона" означає, що правило не працювало).

[d.grytsenko]

Дякую! Зрозумів що потрібно було змінити.

Створив правило. 

Вставив таблицю, запустив правило. І навпаки. Запустив правило, вставив таблицю. Результат однаковий:

А порадьте, будь ласка, де почитати, подивитись про iLogic? 

Мені зрозуміло, що тут Visual Basic, а от які параметри брати і як їх застосовувати поки не зрозумів до кінця. Може Ви робили відео на цю тему, бо у Вас виходить пояснити доступно.

[Alexander_Chernikov]

Зрозумів, в чому проблема - ми працюємо в англомовній версії.
Для російськомовної змінено 3 рядки (10, 13, 16).
Потім зроблю додаткову перевірку, а далі змінене правило, спробуйте:

Sub Main() ' EditPartListTable
' Before using change GOST Table Style: Don't Display Trailing Zero
  Dim oCurSh As Sheet = ThisApplication.ActiveDocument.ActiveSheet
  Dim oBOMTable As CustomTable
  Dim oTbPos As Point2d  
  If oCurSh.CustomTables.Count < 1 Then
    Exit Sub
  End If
  For i = 1 To oCurSh.CustomTables.Count
    If Left(oCurSh.CustomTables.Item(i).Title, 22) = "Список деталей по ГОСТ" Then
      oBOMTable = oCurSh.CustomTables.Item(i)
'     ThisApplication.ActiveDocument.StylesManager.FeatureControlFrameStyles.Item(7).TrailingZeroDisplay = False
      oBOMTable.ColumnHeaderTextStyle = ThisApplication.ActiveDocument.StylesManager.TextStyles.Item("Сжатый текст (ГОСТ)") ' 3
      oBOMTable.ColumnHeaderTextStyle.FontSize = 0.3
      oBOMTable.ColumnHeaderTextStyle.WidthScale = 0.6
      oBOMTable.DataTextStyle = ThisApplication.ActiveDocument.StylesManager.TextStyles.Item("PL обычный текст (ГОСТ)") ' 1
      oBOMTable.DataTextStyle.FontSize = 0.3
      oBOMTable.DataTextStyle.WidthScale = 0.9
      oBOMTable.Columns.Item(1).Title = "Фор- мат"
      oBOMTable.Columns.Item(1).Width = 0.6
      oBOMTable.Columns.Item(2).Title = "Зо- на"
      oBOMTable.Columns.Item(2).Width = 0.6

'      oTbPos = ThisApplication.ActiveDocument.TransientGeometry.CreatePoint2d( _
'          oCurSh.Width - 19, oCurSh.TitleBlock.RangeBox.MaxPoint.Y + _
'          (oBOMTable.RangeBox.MaxPoint.Y - oBOMTable.RangeBox.MinPoint.Y))
'      Call oBOMTable.Position.TranslateBy(ThisApplication.ActiveDocument.TransientGeometry.CreateVector2d(10, -10))
      oBOMTable.Update
      oCurSh.Update
      Exit Sub
    End If
  Next
End Sub