Чи можливо змінити шаблон специфікації, щоб її таблиця та основний напис відображались українською мовою при вставці на кресленику і при збереженні в 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
По iLogic є матеріали у вбудованій довідці, але із-за відсутності відлагоджувача програми, я готовлю код з використанням редактора VBA і потім з мінімальними змінами додаю його у правило.
Найбільш складним є саме вибір параметрів та методів для пошуку потрібного елемента об'єктної моделі Інвентора.
По VBA також є вбудована довідка - "Довідка з програмування/АРІ.
Також є ресурс "Inventor API Training" - там більше 20 уроків:
https://modthemachine.typepad.com/my_weblog/2013/02/inventor-api-training-lesson-1.html
ну і, звісно, форум:
https://forums.autodesk.com/t5/inventor-ilogic-and-vb-net-forum/bd-p/120
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Правило оновлено, працює і в англомовній, і в російськомовній версіях.
Розміщує вставлену специфікацію над основним написом!
Sub Main() ' EditPartList()
' Before using PartList change GOST Table Style: Don't Display Trailing Zero
Dim oDoc As DrawingDocument
Dim oCurSh As Sheet
Dim oBOMTable As CustomTable
Dim oTabN, oShrCond, oShrNorm As String
Dim oTbPos As Point2d
oDoc = ThisApplication.ActiveDocument
oCurSh = oDoc.ActiveSheet
Select Case oCurSh.Application.LanguageName
Case "Russian"
oTabN = "Список деталей по ГОСТ"
oShrCond = "Сжатый текст (ГОСТ)"
oShrNorm = "PL обычный текст (ГОСТ)"
Case "English"
oTabN = "GOST Parts List"
oShrCond = "Condensed Text (GOST)"
oShrNorm = "PL Regular Text (GOST)"
Case Else
Debug.Print ("Unknown Language")
Exit Sub
End Select
If oCurSh.CustomTables.Count < 1 Then
Exit Sub
End If
For i = 1 To oCurSh.CustomTables.Count
If Left(oCurSh.CustomTables.Item(i).Title, Len(oTabN)) = oTabN Then
oBOMTable = oCurSh.CustomTables.Item(i)
' oDoc.StylesManager.FeatureControlFrameStyles.Item(7).TrailingZeroDisplay = False
oBOMTable.ColumnHeaderTextStyle = oDoc.StylesManager.TextStyles.Item(oShrCond)
oBOMTable.ColumnHeaderTextStyle.FontSize = 0.3
oBOMTable.ColumnHeaderTextStyle.WidthScale = 0.6
oBOMTable.DataTextStyle = oDoc.StylesManager.TextStyles.Item(oShrNorm)
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.TransientGeometry.CreatePoint2d( _
oCurSh.Width - 19, oCurSh.TitleBlock.RangeBox.MaxPoint.Y + _
(oBOMTable.RangeBox.MaxPoint.Y - oBOMTable.RangeBox.MinPoint.Y))
oBOMTable.Position = oTbPos
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. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Так дійсно, працює! Налаштував таблицю, вставив специфікацію, запустив правило:
Дякую! Цікаво.
А чи можна додати зміни у ті файли, які знаходяться в архіві, щоб не робити стільки кроків?
І для того, щоб закрити питання з вимкненням вручну відображення нулів після крапки в таблицях необхідно замінити файл, що додається:
table.xml
у теці
C:\Users\Public\Documents\Autodesk\Inventor 20хх\Design Data
Чомусь тільки для стиля "Таблиця ГОСТ" цей параметр виявився ввімкненим (...
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

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

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

.
Вітаємо на форумі!
Необхідні файли розміщено у теці "AI2021_Spec_ESKD" за посиланням:
https://drive.google.com/drive/folders/1HojU_UUTBuSF7OqBd6cwrtJoRpQqBium?usp=sharing
Про всяк випадок в архиві розміщені вихідні файли (для англомовної та російськомовної локалізацій) - з суфіксами *_00, *_ru, *_en відповідно.
Тека Bin зазвичай розташована у місці встановлення програми: за замовчуванням -
C:\Program Files\Autodesk\Inventor 2021\Bin
Шаблон специфікації (і деякі додаткові файли, адаптовані на кафедрі, зокрема, технічні умови) слід розмістити у теці GOST -
C:\Users\Public\Documents\Autodesk\Inventor 2021\Design Data\GOST\
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
дякую. поступово вивчаю. напрямок поки що зрозумілий.
є декілька пропозицій, на що звернути увагу: у українізованих файлах соять ГОСТ, які давно не діють в Україні.
я перевіряю статус ГОСТ та його заміну на ДСТУ на сервісі http://online.budstandart.com/ua/catalog/doc-page.html?id_doc=28657
Так, @makcik_s81 звісно, це треба виправляти,
в першу чергу для матеріалів, технічних вимог та процесів (зварювання та ін.).
Але, на жаль, не завжди вказаний ДСТУ / ISO, на який слід замінити ГОСТ.
Якщо у Вас вже є відповідні таблиці, давайте будемо вносити зміни та пропонувати ці файли.
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
поки що нічим похвалитися щодо технічних вимог до зварювання.
є деякі чернетки:
Зварювання 111, 135 або 141 по ДСТУ ISO 4063:2014.
Електроди УОНИ 13/55 або дріт Св-08Г2С по СОУ ВЕА.200.1.1/01:2016.
шукаю, де лежать "Обрані матеріали", там є деякі листові матеріали. я користуюся цим функціоналом, щоб контролювати матеріал в кресенні (текстова замітка, властивість "матеріал" моделі)
в мене майже всі складальні та монтажні креслення мають специфікацію на листі. я пристосувався правити таблицю так: "формат" має ширину 14мм, "зона" має ширину 8мм, ""Поз." без змін, "Позначення" має ширину 60мм, інші без змін. разом 185мм. а потімвручну по обставинам розміщаю специфікацію або вгорі або внизу, благо що овна примагнічується до кутових точок.
так, це відхилення від ЄСКД, але маємо те що маємо.
трішки поекспериментував із правилом, підібрав для себе параметри. "Зо- на" спеціально залишив, щоб так сформувалася шапка таблиці.
Sub Main() ' EditPartList() ' Before using PartList change GOST Table Style: Don't Display Trailing Zero Dim oDoc As DrawingDocument Dim oCurSh As Sheet Dim oBOMTable As CustomTable Dim oTabN, oShrCond, oShrNorm As String Dim oTbPos As Point2d oDoc = ThisApplication.ActiveDocument oCurSh = oDoc.ActiveSheet Select Case oCurSh.Application.LanguageName Case "Russian" oTabN = "Список деталей по ГОСТ" oShrCond = "Сжатый текст (ГОСТ)" oShrNorm = "PL обычный текст (ГОСТ)" Case "English" oTabN = "GOST Parts List" oShrCond = "Condensed Text (GOST)" oShrNorm = "PL Regular Text (GOST)" Case Else Debug.Print ("Unknown Language") Exit Sub End Select If oCurSh.CustomTables.Count < 1 Then Exit Sub End If For i = 1 To oCurSh.CustomTables.Count If Left(oCurSh.CustomTables.Item(i).Title, Len(oTabN)) = oTabN Then oBOMTable = oCurSh.CustomTables.Item(i) ' oDoc.StylesManager.FeatureControlFrameStyles.Item(7).TrailingZeroDisplay = False oBOMTable.ColumnHeaderTextStyle = oDoc.StylesManager.TextStyles.Item(oShrCond) oBOMTable.ColumnHeaderTextStyle.FontSize = 0.33 oBOMTable.ColumnHeaderTextStyle.WidthScale = 0.8 oBOMTable.DataTextStyle = oDoc.StylesManager.TextStyles.Item(oShrNorm) oBOMTable.DataTextStyle.FontSize = 0.3 oBOMTable.DataTextStyle.WidthScale = 0.95 oBOMTable.Columns.Item(1).Title = "Формат" oBOMTable.Columns.Item(1).Width = 1.4 oBOMTable.Columns.Item(2).Title = "Зо- на" oBOMTable.Columns.Item(2).Width = 0.8 oBOMTable.Columns.Item(3).Title = "Поз." oBOMTable.Columns.Item(3).Width = 0.8 oBOMTable.Columns.Item(4).Title = "Позначення" oBOMTable.Columns.Item(4).Width = 6.0 oTbPos = ThisApplication.TransientGeometry.CreatePoint2d( _ oCurSh.Width - 19, oCurSh.TitleBlock.RangeBox.MaxPoint.Y + _ (oBOMTable.RangeBox.MaxPoint.Y - oBOMTable.RangeBox.MinPoint.Y)) oBOMTable.Position = oTbPos oBOMTable.Update oCurSh.Update Exit Sub End If Next End Sub
коли у специфікації більше 2 аркушів, виникає помилка як у мене.
я в шаблоні скопіював наступні листи. але, після 2го арк., нумерація автоматично не проставляється.
На жаль, все це "сховане" у модулі "Annotate (ESKD) - Gost.dll", який останніми роками майже не розвивався.
Взагалі невідомо, чи залишиться підтримка цього стандарту.
Мабуть, слід дивитись на загальний модуль оформлення креслеників та розробляти нові правила, що будуть полегшувати роботу (.
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Доброго дня. Але вже вийшов Inventor 24 - а для 2024 є спеціфікації? Я спробував - від 23 не працюють.
На жаль, ще ні.
Але працюємо...
До речі, оновлено специфікацію для 2023.4
https://drive.google.com/file/d/1cTAfQ8f552TW7nd_IWy30du6YHsblnJI/view?usp=sharing
Do you find the posts helpful? "LIKE" these posts! | Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням!
Have your question been answered successfully? Click "ACCEPT SOLUTION" button. | На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ"

.
Адаптація для специфікації у АІ 2024.1 - за посиланням:
https://drive.google.com/file/d/1p6QpsEZpz2-xxXyC9ksTq3vKGLiPvs_Q/view?usp=sharing
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.