Чи можливо змінити шаблон специфікації, щоб її таблиця та основний напис відображались українською мовою при вставці на кресленику і при збереженні в Excel? Якщо можливо, то як це зробити?
Gelöst! Gehe zur Lösung
Gelöst von Alexander_Chernikov. Gehe zur Lösung
Gelöst von Alexander_Chernikov. Gehe zur Lösung
Gelöst von d.grytsenko. Gehe zur Lösung
Gelöst von Alexander_Chernikov. Gehe zur Lösung
Вітаю!
Думаю, що у @Alexander_Chernikov є як мінімум порада, а може і відео на цю тему. Зможете допомогти з питанням вище за можливості?
А ще, скоріш за все, це буде цікаво @Olena.Rubin ![]()
Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" повідомленню! | Do you find the posts helpful? "LIKE" these posts!
На ваше запитання відповіли? Натисніть кнопку 'ПРИЙНЯТИ РІШЕННЯ' | Have your question been answered successfully? Click 'ACCEPT SOLUTION' button.
Дмитро Мухін | Dmytro Mukhin Facebook | Instagram | InventorInUa

Так, можливо.
У нас є адаптований українською в частині саме специфікації модуль ЕSKD*.dll
для англо/російсько-мовних версій 2021.2+ та 2023.2
Також є відповідний екселевський шаблон PartsListTemplate та шаблон кресленика з українськими основними написами.
Для якої версії Вам треба?
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Версія 2023.2. Шаблон кресленика я розібрався як робить завдяки Вашим відео, дякую! А от шаблон специфікації не знайшов де правити. Будь ласка, надішліть? І куди саме його додавати?
В доданому архіві необхідні файли й опис, куди їх копіювати.
Файли з суфіксом Gost**00 - вихідні файли з стандартної інсталяції модуля ЄСКД.
Також є перекладені технічні умови та деякі матеріали.
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Дякую, позаміняв файли. На кресленику специфікація переклалась:
Замість стовпця Зона, тепер - к. Що це значить? Чи можна звузити стовпець Позначення, оскільки рамка специфікації вилазить за основний напис і постійно приходиться підправляти?
Також при відкритті в Excel губиться шифр (перевіряв декілька разів):
У чому справа, підкажіть, будь ласка?
Зазвичай ми не розташовували специфікацію на аркуші кресленика, а друкували її з Екселя - дякую за зауваження, буду дивитися.
Що стосується позначення в Екселі - позначення складального кресленика за стандартом має закінчуватись літерами "СБ" - в основному напису самого складального кресленика та у відповідному рядку специфікації.
Але у основному написі самої специфікації цих символів не має бути - тому написана формула для ділянки "Обозначение", яка видаляє ці 2 останні символи.
Тож або треба додавати їх у позначенні складання, або відкрити файл ексель-шаблона специфікації
( PartsListTemplate.xls ) і видалити цю формулу, залишивши у чарунці: =TBPartNumber1
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Це геніально придумано!
Так ідея: а якщо додати умову, якщо в кінці є СБ то виводити шифр без СБ в кінці, а якщо нема, то виводити те, що передано у шаблон.
Ось зробив виправлення вашого шаблону:
Тепер працює і без СБ. Файл Excel шаблону додав.
А що буде, якщо хтось у шифрі напише букви СБ? Вони ж теж будуть знаходитись і весь шифр буде відкидатись після цих букв:
Це не передбачено?
Проблема в тому, що зараз немає усталеного позначення складання (як було у ГОСТ 2.201) -
я зустрічав і ЗБ, і СК, і СБ.
Мабуть краще буде перевіряти та видаляти 2-4 останніх символа (після Б може ще бути пробіл),
тобто йти справа наліво до першої цифри, що зустрінеться.
Але треба відновлювати стандарт.
https://uk.wikipedia.org/wiki/Конструкторська_документація
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Мені потрібно робити багато креслеників, а відповідно потім між цими креслениками орієнтуватись. Тому я вирішив трохи переробити позначення. Враховуючи, що на сьогодні основа це НЕ паперова документація, а файли у теці, то потрібно здійснювати простий пошук необхідного кресленика. Враховуючи, що кресленики збірок і деталей мають однакові розширення, то оптимально буде зробити так, щоб при сортуванні за розширенням у теці, спочатку відображались складальні кресленики, а потім деталі. А також не гаяти час на встановлення шифру СБ. Тому позначення наступне.
Якщо збірка: короткий шифр назви проєкту - ЗБ.номер збірки. (СМ-ЗБ.01)
Якщо деталь: Короткий шифр проєкту - Номер збірки.Номер деталі у збірці. (СМ-01.01)
Цифровий індекс можна розширити, якщо потрібно.
Такий шифр відмінно сортує файли у теці, що дає можливість швидко знаходити необхідний кресленик.
Також це перевірено на позитивних відгуках замовників.
Тому я так і рекомендую оформлювати кресленики своїм студентам.
Мабуть, через деякий час буде складно згадувати, де яка модель тільки за номером проекта.
Ми використовуємо трохи інший спосіб - ім'я файлу складається с коду проекта та назви моделі,
наприклад, АХХХ.124587.012 Корпус або АББВ. 125687.100 СБ Двигун.
У властивостях моделі потім назва деталі/вузла переноситься у відповідне поле (зроблений макрос, який дозволяє не робити це двічі).
Також була рекомендація, щоб ім'я файлу моделі та кресленика співпадали.
В навчальних матеріалах Autodesk була ще пропозиція створювати окремі теки у теці проекту для деталей, складань, стандартних виробів та креслеників, але це треба обговорювати.
Дійсно, важливо почути думки/побажання всіх, хто використовує Inventor в реальному проектуванні!
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Так, то я не написав: після шифру йде пробіл дефіс пробіл і назва, наприклад: СМ-01.02 - Вал, СМ-ЗБ.01 - Станина.
Дійсно, в проєкт можна додати часто використовувані теки і в них робити збереження.
Але я користуюсь сортуванням у теці за типом файлів і все швидко знаходиться.
Бо при збереженні великої кількості файлів буває що випадково не туди зберігаєш, а потом шукаєш, де цей файл. Тому я перейшов на систему такого шифрування.
Ось переробив шаблон специфікації:
Формула видаляє в кінці всі зайві пробіли. Перевіряє кінець шифру на наявність СБ, ЗБ, СЧ або СК. І якщо знаходить збіг, то видаляє їх, інакше залишає те що було в шифрі кресленика (з видаленням підряд введених подвійних і більше пробілів).
Також виправив невірний переклад в табличці зліва.
@Alexander_Chernikov Протестуйте, будь ласка, чи запрацює у Вас?
Так, все працює, як треба.
Стосовно специфікації, що вставляється на аркуш - доробляю правило на iLogic.
Проблема в тому, що в таблиці неможливо повернути текст вертикально і стовпчик "Формат" має ширину, яка визначається цим словом. Також є бажання автоматично розташувати таблицю над основним написом.
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
На жаль, на вдалось поки автоматично перенести специфікацію в потрібне місце - це треба робити власноруч.
Також попередньо необхідно в налаштуваннях стилю таблиці вимкнути відображення кінцевих нулей.
Код правила:
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
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Дякую. Застосував правило. Переніс всі налаштування стилю таблиці як на Вашому скріні.
Замість позицій і кількості стали значення в мм:
Відповідно до скріну, Ви вимкнули показ початкових нулей, а треба кінцевих.
Також зніміть позначку "Одиниці вимірювання".
Видалить таблицю, знову викличте команду "Специфікація", розмістить її на аркуші й перезапустить правило (те, що залишилась літера "К" замість "Зона" означає, що правило не працювало).
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Дякую! Зрозумів що потрібно було змінити.
Створив правило.
Вставив таблицю, запустив правило. І навпаки. Запустив правило, вставив таблицю. Результат однаковий:
А порадьте, будь ласка, де почитати, подивитись про iLogic?
Мені зрозуміло, що тут Visual Basic, а от які параметри брати і як їх застосовувати поки не зрозумів до кінця. Може Ви робили відео на цю тему, бо у Вас виходить пояснити доступно.
Зрозумів, в чому проблема - ми працюємо в англомовній версії.
Для російськомовної змінено 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
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Sie finden nicht, was Sie suchen? Fragen Sie die Community oder teilen Sie Ihr Wissen mit anderen.