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

[Alexbug 0]

Добрый день!

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

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

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

[Bully 1 098]

а как заимствованные не пойдут?

[Ветерок 2 107]

1 час назад, Alexbug сказал:

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

НЕЛЬЗЯ!

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

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

[Alexbug 0]

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

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

[Bully 1 098]

1 час назад, Ветерок сказал:

НЕЛЬЗЯ!

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

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

Изменено 3 апреля 2020 пользователем Bully

[Ветерок 2 107]

2 минуты назад, Bully сказал:

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

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

[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

Изменено 3 апреля 2020 пользователем frei

[Alexbug 0]

1 час назад, Bully сказал:

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

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

[Ветерок 2 107]

1 час назад, Alexbug сказал:

имя все равно пишется вручную

Куда пишется?

[frei 458]

1 час назад, Alexbug сказал:

вручную

да ну нах.

Спойлер

Скрипт берет обозначение сборки и фигачит по нему обозначения в детали. скрипт нужно модифицировать, чтобы пропускать десятки в деталях и назначать обозначение подсборок, а также нули добавить что бы писалось 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

 

[Alexbug 0]

Круть!

Спасибо! Сам бы долго вкуривал

[Alexbug 0]

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

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

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

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

[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

 

[Alexbug 0]

Спасибо!

[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

 

[Alexbug 0]

17 часов назад, frei сказал:

еще рано

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

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

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

[Alexbug 0]

20 часов назад, frei сказал:

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

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

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

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

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

[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 сказал:

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

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

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

[frei 458]

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

[Alexbug 0]

2 часа назад, frei сказал:

Да, я переделал свое старое правило

Большое спасибо за код и за ссылки!