Перейти к публикации

Обозначения деталей при переносе в новую сборку

Alexbug

Автор: Alexbug,
в Inventor

 Рассказать Подписчики 0

Рекомендованные сообщения

Alexbug

Alexbug 0

Опубликовано:
Опубликовано:

Добрый день!

Стали отдавать часть деталей для изготовления на сторону. Появилась необходимость стандартизации обозначений.

Вопрос: первое изделие называется ФФФ.000010.СБ, соответственно деталям в нем присвоены обозначения типа ФФФ.000010.011.023.

Во втором изделии большинство деталей те же самые, и при создании нового проекта просто копируются в него. То есть, обозначения будут отличаться только номером изделия (ФФФ.00020, ФФФ.00030 и т.д.). Нужно каждый раз менять номера вручную, или в инвенторе можно сделать это автоматически?

Ссылка на сообщение
Поделиться на других сайтах


UnPinned posts
Ветерок

Ветерок 2 107

Опубликовано:
Опубликовано:
1 час назад, Alexbug сказал:

Нужно каждый раз менять номера

НЕЛЬЗЯ!

Если дель та же самая, то и обозначение у неё должно быть то же самое.

Вы же для болтов обозначения не меняете. Или тоже в каждой сборке болты обзываете по-своему?

Ссылка на сообщение
Поделиться на других сайтах
Alexbug

Alexbug 0

Опубликовано:
  • Автор
Опубликовано:

Болты то мы закупаем массово, а детали каждый раз изготавливаем под код конкретный заказ.

Значит надо вручную:sad:

Ссылка на сообщение
Поделиться на других сайтах
Bully

Bully 1 098

Опубликовано:
Опубликовано: (изменено)
1 час назад, Ветерок сказал:

НЕЛЬЗЯ!

можно и нужно, если речь про единичное изготовление подобных механизмов и устройств и системе обозначений не по ЕСКД. Чтобы путаницы при изготовлении не было, в какую сборку изготовленную деталь включить. Вернее, или так, или уж постоянно применяемым деталям присвают отвлеченное от обозначения устройств обозначения и выделяют их в унифицированные детали. Может даже с созданием СТП. Но придется как раз обеспечить как-то исключение вышеуказанной путаницы при сборке.

Просто если есть такая проблема, то почему бы и не использовать заимствование? Чтобы обойти эту сиюминутную проблему

Изменено пользователем Bully
Ссылка на сообщение
Поделиться на других сайтах
Ветерок

Ветерок 2 107

Опубликовано:
Опубликовано:
2 минуты назад, Bully сказал:

постоянно применяемым деталям присвают отвлеченное от обозначения устройств обозначения и выделяют их в унифицированные детали

Вот это правильнее.

Ссылка на сообщение
Поделиться на других сайтах
frei

frei 458

Опубликовано:
Опубликовано: (изменено)

@Alexbug, покурите iLogic:

https://forums.autodesk.com/t5/inventor-customization/ilogic-rule-for-each-part-in-the-assembly-to-change-partt/td-p/3819874

Изменено пользователем frei
Ссылка на сообщение
Поделиться на других сайтах
Alexbug

Alexbug 0

Опубликовано:
  • Автор
Опубликовано:
1 час назад, Bully сказал:

Просто если есть такая проблема, то почему бы и не использовать заимствование?

Ну так при заимствовании имя все равно пишется вручную, или я туплю?

Ссылка на сообщение
Поделиться на других сайтах
frei

frei 458

Опубликовано:
Опубликовано:
1 час назад, Alexbug сказал:

вручную

да ну нах.

Спойлер

1174794182_.thumb.png.fc8fe2d05c7194455938ee5260e1401f.png

Скрипт берет обозначение сборки и фигачит по нему обозначения в детали. скрипт нужно модифицировать, чтобы пропускать десятки в деталях и назначать обозначение подсборок, а также нули добавить что бы писалось 001, 002, и т.д.

Спойлер 

' Берем обозначение Сборки и вписываем в детали
Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
Dim iter As Integer
iter = 1 'итерируемое обозначение
'Iterate through all of the occurrences
Dim oOccurrence As ComponentOccurrence
For Each oOccurrence In oAsmCompDef.Occurrences
'check for and skip virtual components
'(in case a virtual component trips things up)
If Not TypeOf oOccurrence.Definition Is VirtualComponentDefinition Then
iProperties.Value(oOccurrence.Name, "Project", "Part Number") = iProperties.Value("Project", "Part Number")+"."+CStr(iter) 
InventorVb.DocumentUpdate()
iter+=1
Else
End If
Next

 

  • Нравится 1
Ссылка на сообщение
Поделиться на других сайтах
  • 3 недели спустя...
Alexbug

Alexbug 0

Опубликовано:
  • Автор
Опубликовано:

Снова здравствуйте,

С нумерацией деталей я наконец-то разобрался. 

Но возник еще один вопрос:

Можно ли с помощью ILogic исправить часть обозначения детали. Например, все детали в большой сборке (с подсборками) содержат произвольное (буквы и цифры) выражение "DDDD", его надо заменить на "SSSS".  (AAA.0078.DDDD.1111.* на AAA.0078.SSSS.1111.*).

Ссылка на сообщение
Поделиться на других сайтах
frei

frei 458

Опубликовано:
Опубликовано:
В 20.04.2020 в 11:40, Alexbug сказал:

Можно ли с помощью ILogic исправить часть обозначения детали. Например, все детали в большой сборке (с подсборками) содержат произвольное (буквы и цифры) выражение "DDDD", его надо заменить на "SSSS".  (AAA.0078.DDDD.1111.* на AAA.0078.SSSS.1111.*)

ниже код, заменяет в обозначениях детали "АБВ" на "БУГОГА" 

Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
'Iterate through all of the occurrences
Dim oOccurrence As ComponentOccurrence
For Each oOccurrence In oAsmCompDef.Occurrences
'check for and skip virtual components
'(in case a virtual component trips things up)
If Not TypeOf oOccurrence.Definition Is VirtualComponentDefinition Then
iProperties.Value(oOccurrence.Name, "Project", "Part Number") = Replace(iProperties.Value("Project", "Part Number"),"АБВ","БУГОГА")
InventorVb.DocumentUpdate()
iter+=1
Else
End If
Next

 

  • Нравится 1
Ссылка на сообщение
Поделиться на других сайтах
frei

frei 458

Опубликовано:
Опубликовано:
6 часов назад, Alexbug сказал:

Спасибо

еще рано,

В 20.04.2020 в 11:40, Alexbug сказал:

(с подсборками)

код ниже заменяет "АБВ" на "БУГОГА" в обозначении всех деталей и внутри подсборок: 

Sub Main()
    Dim oDoc As Inventor.AssemblyDocument
    oDoc = ThisApplication.ActiveDocument	
    Dim oCompDef As Inventor.ComponentDefinition
    oCompDef = oDoc.ComponentDefinition
    ' Get all occurrences from component definition for Assembly document
    Dim oCompOcc As ComponentOccurrence
    For Each oCompOcc In oCompDef.Occurrences
		If Not TypeOf oCompOcc.Definition Is VirtualComponentDefinition Then
        	' Check if it's child occurrence (leaf node)
        	If oCompOcc.SubOccurrences.Count = 0 Then			
				iProperties.Value(oCompOcc.Name, "Project", "Part Number") = Replace(iProperties.Value("Project", "Part Number"),"БУГОГА","АБВ")
        	Else ' если подсборка
				iProperties.Value(oCompOcc.Name, "Project", "Part Number") = Replace(iProperties.Value("Project", "Part Number"),"БУГОГА","АБВ")
				Call processAllSubOcc(oCompOcc, iSubAssemblies) ' подсборка
        	End If
		End If
    Next  
    
End Sub

Private Sub processAllSubOcc(ByVal oCompOcc As ComponentOccurrence, ByRef iSubAssemblies As Long)

    Dim oSubCompOcc As ComponentOccurrence	
	For Each oSubCompOcc In oCompOcc.SubOccurrences
        If Not TypeOf oSubCompOcc.Definition Is VirtualComponentDefinition Then
		' Check if it's child occurrence (leaf node)		
        	If oSubCompOcc.SubOccurrences.Count = 0 Then			
				iProperties.Value(oSubCompOcc.Name, "Project", "Part Number") = Replace(iProperties.Value("Project", "Part Number"),"БУГОГА","АБВ")		
        	Else				
            	iProperties.Value(oSubCompOcc.Name, "Project", "Part Number") = Replace(iProperties.Value("Project", "Part Number"),"БУГОГА","АБВ")		
				Call processAllSubOcc(oSubCompOcc, iSubAssemblies) 'Рекурсивный вызов
			End If
		End If
    Next
End Sub

 

  • Нравится 1
Ссылка на сообщение
Поделиться на других сайтах
Alexbug

Alexbug 0

Опубликовано:
  • Автор
Опубликовано:
17 часов назад, frei сказал:

еще рано

Спасибо еще раз!

Все работает.

А Вы, случайно, не знаете нет ли где нибудь чего чего нибудь типа самоучителя - уроков по этой хрени (команды, операторы, в-общем для чайников). Продираться сквозь описания инвентора  - завал полный. Затыкаюсь на какой-то глупости, понимаю, что ответ должен быть простым, а найти не могу (наверно не там ищу:smile:)

Ссылка на сообщение
Поделиться на других сайтах
Alexbug

Alexbug 0

Опубликовано:
  • Автор
Опубликовано:
20 часов назад, frei сказал:

код ниже заменяет "АБВ" на "БУГОГА" в обозначении всех деталей и внутри подсборок

К сожалению, я немного поторопился.

Код заменяет "АБВ" на "БУГОГА", но при этом обрезает в обозначении подсборок и деталей все значения, следующие за "БУГОГА". 

Например: было главная сборка - 100.АБВ.СБ, деталь в подсборке -  100.АБВ.020.030

                     стало: 100.БУГОГА.СБ, детали в подсборке -  100.БУГОГА.СБ

Ссылка на сообщение
Поделиться на других сайтах
frei

frei 458

Опубликовано:
Опубликовано:
3 часа назад, Alexbug сказал:

я немного поторопился.

Да, я переделал свое старое правило, которое расставляло обозначения для подсборок и деталей, и для деталей назначалось обозначение сборки.

вот замена обозначения одного на другое: 

Sub Main()
    Dim oDoc As Inventor.AssemblyDocument
    oDoc = ThisApplication.ActiveDocument	
    Dim oCompDef As Inventor.ComponentDefinition
    oCompDef = oDoc.ComponentDefinition
    ' Get all occurrences from component definition for Assembly document
    Dim oCompOcc As ComponentOccurrence
    For Each oCompOcc In oCompDef.Occurrences
		If Not TypeOf oCompOcc.Definition Is VirtualComponentDefinition Then
        	' Check if it's child occurrence (leaf node)
        	If oCompOcc.SubOccurrences.Count = 0 Then			
				iProperties.Value(oCompOcc.Name, "Project", "Part Number")=Replace(iProperties.Value(oCompOcc.Name, "Project", "Part Number"),"БУГОГА","АБВ")
        	Else ' если подсборка
				iProperties.Value(oCompOcc.Name, "Project", "Part Number")=Replace(iProperties.Value(oCompOcc.Name, "Project", "Part Number"),"БУГОГА","АБВ")        
				Call processAllSubOcc(oCompOcc, iSubAssemblies) ' подсборка
        	End If
		End If
    Next  
    
End Sub

Private Sub processAllSubOcc(ByVal oCompOcc As ComponentOccurrence, ByRef iSubAssemblies As Long)

    Dim oSubCompOcc As ComponentOccurrence	
	For Each oSubCompOcc In oCompOcc.SubOccurrences
        If Not TypeOf oSubCompOcc.Definition Is VirtualComponentDefinition Then
		' Check if it's child occurrence (leaf node)		
        	If oSubCompOcc.SubOccurrences.Count = 0 Then			
				iProperties.Value(oSubCompOcc.Name, "Project", "Part Number")=Replace(iProperties.Value(oSubCompOcc.Name, "Project", "Part Number"),"БУГОГА","АБВ")		
        	Else				
            	iProperties.Value(oSubCompOcc.Name, "Project", "Part Number")=Replace(iProperties.Value(oSubCompOcc.Name, "Project", "Part Number"),"БУГОГА","АБВ")		
				Call processAllSubOcc(oSubCompOcc, iSubAssemblies) 'Рекурсивный вызов
			End If
		End If
    Next
End Sub

 

6 часов назад, Alexbug сказал:

типа самоучителя - уроков по этой хрени (команды, операторы, в-общем для чайников). Продираться сквозь описания инвентора  - завал полный. Затыкаюсь на какой-то глупости, понимаю, что ответ должен быть простым, а найти не могу (наверно не там ищу:smile:)

мб начать с VBA для чайников-это самому языку.

Kamming_S.__VBA_dlya_quotchajnikovquot.j

более предметно по Ilogic поспрашайте/поищите на cad.ru  - там спецы были, может чего посоветуют почитать/посмотреть.

  • Нравится 1
Ссылка на сообщение
Поделиться на других сайтах
frei

frei 458

Опубликовано:
Опубликовано:

По API в Инвенторе была книжка. https://ru.wikibooks.org/wiki/Autodesk_Inventor_API._Первые_шаги Хотя, это может показаться сложнее чем iLogic

  • Нравится 1
Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

×
 Рассказать
Подписчики 0
Перейти к списку тем

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.


  • Сообщения

    • Борис Е
      Нужно оформить чертежи помещений по стандарту DIN

      Автор: Борис Е · Опубликовано:

      Вы часом не иностранные агенты?
    • Igor Lipin
      Sinumerik 840 DSL Ошибка 21612

      Автор: Igor Lipin · Опубликовано:

      Спасибо, завтра попробуем.
    • Авенир
      Нужно оформить чертежи помещений по стандарту DIN

      Автор: Авенир · Опубликовано:

      Имеются чертежи комнат (помещений) - 16 штук, строящегося здания. Нужно оформить эти чертежи по стандарту DIN. Нам необходимо отправить чертежи иностранной компании, а они не принимают в российском формате. Есть кто-то, кто может помочь в этом вопросе? 1
    • gudstartup
      Sinumerik 840 DSL Ошибка 21612

      Автор: gudstartup · Опубликовано:

      @Igor Lipin у релюшек контакты почистите и проверьте блокировку замка раб зоны может проводочек от замка отсох но не совсем если кабель подвижен или сам замочек поистерся. вот телеграммы и не доходят до привода
    • KsunReh
      "Блокирующий" гидроцилиндр - особенности применения

      Автор: KsunReh · Опубликовано:

      Странно, раньше ИНТОС поставлял их... По поводу выдержит или нет:   1) Усилие гидроцилиндра одна из его рабочих характеристик. Прикиньте грубо какое давление в полости будет действовать на знак (с помощью симуляции или по формулам) и сопоставьте с паспортным усилием г/ц 2) У ТПА (литьевой машины) обычно есть функция удержания давления на ввод гидрознаков во время впрыска. Если этой функции нет или она отключена в меню, то пункт №1 частично теряет смысл. 3) На гидроцилиндр можно поставить гидрозамок. Стоимость вопроса - 5 - 20 т.р. за 1 цилиндр. Гидрозамок увеличивает усилие отжима штока цилиндра и делает его независимым от пункта №2   По вашему случаю картинка у вас маленькая, непонятна конструкция + какое сырье, например льете ли вы ПК или ПП от этого зависит давление в форме...     
    • Авенир
      Нужно оформить чертежи помещений по стандарту DIN

      Автор: Авенир · Опубликовано:

      Оо спасибо, понял!  
    • andref
      Sinumerik 840 DSL Ошибка 21612

      Автор: andref · Опубликовано:

      Попробуйте  если заменить реле проблематично, хотя бы поменять их местами (может другая ошибка появится )
    • Orchestra2603
      Расчет на сейсмику

      Автор: Orchestra2603 · Опубликовано:

      Была такая проблема у нас. Стол вибростенда бился об ограничитель. Но тогда это было ждя внутренних целей, так что мы сильно не заморчивались - все всё прекрасно понимали.   Но вообще можно по-разному попробовать выкрутиться.   1. Специально для испытаний в низкочастотной области можно присобачить между стендом и изделием какую-то "мягкую" подвеску. Тогда между стендом и изделием булет промежуточная простейшая система с своей АЧХ. Можно подобрать такую жесткость подвески, чтобы как раз в области низких частот был первый резонанс, и тогда при небольшом ходе стола можно получить бОльшую амплитудлу перемещения на самом изделии относительно стенда, ну и соответственно и ускорения будут также кратно выше. Можно поставить на изделие дополнительный акселерометр, чтобы знать точно там амплитуду ускорения. Очень похоже на задачу подбора параметров всяких виброгасителей, только в обратную сторону ))) Насколько это удобно и практично - это конечно вопрос открытый. Если можно было бы посмотреть на изделие и на стенд, может, че-нить придумали бы вместе.   2. Можно просто в МКЭ посчитать гармонический анализ, подогнать демпфирование и скорректировать жесткости/массы, чтобы для более высоких частот все хорошо ложилось. Тогда заказчику можно будет сказать, что это очень сложная задача поставить эксперимент для таких частот, но есть надежные расчетные модели, которые показывают хорошее совпадение с экспериментом на более высоких частотах (показываем графики), и они позволяют надежно предсказать результаты таких испытаний в низкочастотной области. Тут, кончено зависит то того, как это правильно преподнести заказчику. Нужна харизма определенная :)   3. Можно вообще придумать что-то типа маятника, и подвесить туда изделие. Варьируя высоту подвеса, можно менять частоту колебаний.  Амплитуду можно варьировать меняя начальное отклонение, причем можно сделать ее довольно большой (только отклонения должны быть маленькими, чтобы не проявлялась сильно нелинейность восстанавливющего момента). Вот такое я делал для калибровочных целей, был довольно забавный самопал конечно ))             Хз... можно внести искажения в АЧХ изделия. Надо осторожно
    • Igor Lipin
      Sinumerik 840 DSL Ошибка 21612

      Автор: Igor Lipin · Опубликовано:

      Извиняюсь, да такой модуль есть. Я предположил он установлен в самом приводе  https://postimg.cc/gallery/cJHmJHg
    • Пронин
      "Блокирующий" гидроцилиндр - особенности применения

      Автор: Пронин · Опубликовано:

      Нашел только в RMPGroup, цена 1625  Евро/шт., а надо 2. У Интос нету и не будет, звонил  им. А подскажите спецы, я с ГЦ раньше не сталкивался, если ставить обычные ГЦ не выдержит, назад пойдет, у меня знак оформляющий ступенькой ф 3,2 (длина3,5)хф5,2 (длина 4мм) в неподвижке, на него усилие при литье небольшое. Или надо обязательно подпирать. 
×
×
  • Создать...