Thema "Betreff: Blech / Abwicklung / Abmessungen automatisieren" in Inventor - Deutsches Forum

Blech / Abwicklung / Abmessungen automatisieren

M_Mertens_Intec — Mon, 27 Nov 2023 09:20:31 GMT

Hallo liebe Gemeinde,

ja ich weiß das ich hier wohl einen ""Klassiker"" aufgreife, aber leider bin ich noch nicht wirklich fündig geworden auf der Suche nach einer Lösung. Wie oben geschrieben geht es darum die Abmessungen der Blechabwicklung zu automatisieren und diese nicht von Hand übertragen zu müssen. Ich habe mal eine Beispiel Datei angehangen wie es bei uns aktuell ist. Was ich nicht ändern kann, weil es auch noch einige andere Parteien im Unternehmen betrifft, ist der Ort auf der Zeichnung wo dieser Text steht. Wie er dort hin kommt bin ich frei und für jeden Lösungsansatz dankbar. Das was ich hier so dazu lesen konnte ist nun schon älter und ungelöst.

Es gibt wohl seitens Inventor auch noch keine OnBoard Lösung dafür wenn ich richtig informiert bin.

Wie löst ihr das Problem??

Hat jemand eine Automatisierte Lösung im Einsatz??

Hat jemand einen Ansatz das anzugehen??

Grüße....

Betreff: Blech / Abwicklung / Abmessungen automatisieren

Dominik.Janshoff — Mon, 27 Nov 2023 14:45:33 GMT

Guten Tag,

ich würde die Abwicklung in die iProperites schreiben. Entweder kopierst du dann die iproperties von dem Bauteil in die Zeichnung oder greifst direkt auf die Bauteil iProperties zu.

Damit die Abwicklung in die iProperties geschrieben werden, nutze ich eine globale Regel welche auf alle Bauteile angewendet wird.

Prüfen, ist die Datei überhaupt bearbeitbar. (ich glaube der Teil fehlt noch)

Handelt es bei der Datei um ein Blechteil.

Enthält die Blechdatei einen Volumenkörper (bei keinem Volumenkörper kann nix abgewickelt werden, und Mehrvolumenkörper können auch nicht abgewickelt werden.)

Der Code sieht wie folgt aus. Für Funktiontüchtigkeit gibt es keine Garantie, auch wenn es bei mir funktioniert. Es lässt sich bestimmt auch schöner programmieren. Wenn es aber mal funktioniert, sollte

On Error Resume Next
oDoc = ThisApplication.ActiveDocument
iErrNr = Err.Number
On Error GoTo 0

' Wenn oDoc keine SheetMetalCompDef hat weil es kein Sheet ist, schlägt die Zuweisung fehl. Der Fehler soll übergangen werden.
On Error Resume Next
oCompDef = oDoc.ComponentDefinition()
iErrNr = Err.Number
On Error GoTo 0

'Prüfen ob die Zuweisung des Partdocument und der SheetMetalComponentDefinition funktioniert hat.
If iErrNr = 0 Then
	If oDoc.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
		Logger.Info ("Blechteil erkannt, iProperties für Blechteile schreiben und Versuch eine Abwicklung zu erstellen")
		'iPropertie schreiben damit die Vaultzweisungsregel die richtige Kategorie erkennt
		iProperties.Value("Custom", "TCC ist Blech") = True
		iProperties.Value("Custom", "TCC Blechstil") = SheetMetal.GetActiveStyle()
		iProperties.Value("Custom", "TCC Blech Stärke") = Parameter("Stärke")
		
		'Prüfen ob Datei schonmal gespeichert war, nur bei neuen Dateien soll die Kategorie angepasst werden, damit es zu keinen Abweichungen mit dem Vault gibt
		Logger.Info ("Anzahl Speicherungen: " +  oDoc.FileSaveCounter.ToString)		
		If oDoc.FileSaveCounter = 0 Then
			Logger.Info("Datei noch nie gespeichert, Kategroie -Blechteil- schreiben")
			iProperties.Value("Custom", "TCC Kategorie") = "Blechteil"
		End If
		'Prüfen ob es Blechvolumen gibt, sont kann keine Abwicklung erstellt werden
		If oCompDef.SurfaceBodies.Count <> 0 Then
			If oCompDef.HasMultipleSolidBodies = False Then
				'['Prüfen ob es eine Abwicklung gibt und wenn ja die Werte in die iProps schreiben
				If oCompDef.HasFlatPattern = False Then
					'['Prüfen ob die Abwicklung erstellt werden kann.
					On Error Resume Next
					oCompDef.Unfold
					If Err.Number <> 0 Then
						iErrNr = Err.Number
						'MsgBox("Abwicklung kann nicht erstellt werden! Unfold Fehlgeschlagen", , "Fehler")
						Logger.Info("Abwicklung kann nicht erstellt werden! Unfold Fehlgeschlagen")
					End If
					On Error GoTo 0
					']
				End If
				'Wenn die eine Abwicklung vorhanden ist können die iProperties geschrieben werden
				If oCompDef.HasFlatPattern = True Then
					Logger.Info("Abwicklungsmasse und Blechstärke in iProps schreiben.")
					iProperties.Value("Custom", "TCC Blech Abwicklung Länge") = Round(SheetMetal.FlatExtentsLength, 2)
					iProperties.Value("Custom", "TCC Blech Abwicklung Breite") = Round(SheetMetal.FlatExtentsWidth, 2)
					iProperties.Value("Custom", "TCC Blech Abwicklung Fläche") = Round(SheetMetal.FlatExtentsArea, 2)
					iProperties.Value("Custom", "TCC Blech Stärke") = Parameter("Stärke")
					']
				End If
				oCompDef.FlatPattern.ExitEdit
			Else
				'MsgBox("Von Mehrvolumenkörpern können keine Blechabicklungen erstellt werden", , "Fehler")
				Logger.Info("Von Mehrvolumenkörpern können keine Blechabicklungen erstellt werden")
				'iProperties leeren, damit in Vault sichtbar ist, dass keine Abwicklung erstellt werden konnte
				iProperties.Value("Custom", "TCC Blech Abwicklung Länge") = -1
				iProperties.Value("Custom", "TCC Blech Abwicklung Breite") = -1
				iProperties.Value("Custom", "TCC Blech Abwicklung Fläche") = -1
				']
			End If
		Else
			'MsgBox("Das Bauteil enthält keine SurfaceBodies. Es werden keine Blecheigenschaften geschrieben.", , "Fehler")
			Logger.Info("Das Bauteil enthält keine SurfaceBodies. Blechabwicklung wird auf -1 gesetzt.")
			iProperties.Value("Custom", "TCC Blech Abwicklung Länge") = -1
			iProperties.Value("Custom", "TCC Blech Abwicklung Breite") = -1
			iProperties.Value("Custom", "TCC Blech Abwicklung Fläche") = -1
		End If
		'	Else
		'		MsgBox("Das Bauteil ist kein Blechteil! Es werden keine Blecheigenschaften geschrieben.", , "Fehler")
		'		iProperties.Value("Custom", "TCC Blech Abwicklung Länge") = -1
		'		iProperties.Value("Custom", "TCC Blech Abwicklung Breite") = -1
		'		iProperties.Value("Custom", "TCC Blech Abwicklung Fläche") = -1
	End If
Else
	'MsgBox("Kein Blechbauteil" & iErrNr)
End If

Betreff: Blech / Abwicklung / Abmessungen automatisieren

M_Mertens_Intec — Tue, 28 Nov 2023 08:27:49 GMT

Guten Morgen,

Danke für deine Rückmeldung. Und direkt ein ""Oh Jehh! Ilogic, Meine Lieblingsthema"" 😄

Aber Spaß bei Seite. Danke mal für das Script, die Bedingungen für Funktionalität verstehen sich von selbst.

Ich werde des mal testen aber da brauche ich mal ne ruhige Minute. Die wird aber wohl Richtung XMas jetzt kommen.

Eine Frage stelle ich mir allerdings.

Warum Globales Formular??

Wäre es nicht sinniger nur in der Blechvorlage aufgehoben??

Grüße....

Betreff: Blech / Abwicklung / Abmessungen automatisieren

Dominik.Janshoff — Tue, 28 Nov 2023 10:11:55 GMT

Interne Regel in Blechdateien

Vorteile:

Die Prüfung ob es sich um Blechteil handelt fällt weg --> einfacherer Code

Man muss sich über die Skriptverteilung und die Einbindung, auf den Arbeitsplätzen keine Gedanken machen.

Nachteile:

Was ist mit Blechteilen die nicht aus der Vorlage erstellt wurden, welche den Code enthält. Normale ipt's die in Blech konvertiert wurden? Blechteile von Fremdfirmen?

Was ist mit Altdateien wenn die nochmal angefasst werden oder kopiert?

Für externe Regeln kannst du die Vor- und Nachteile einfach umdrehen.

Ein Automatismus, welcher mit Ausnahmen funktioniert birgt in meinen Augen ein großes Fehlerpotential. Die Leute denken nicht mehr dran, dass es Fälle gibt, in welchen das Skript nicht funktioniert.

Viel Erfolg!

Re: Blech / Abwicklung / Abmessungen automatisieren

jeremy.goenen — Thu, 14 Dec 2023 19:42:37 GMT

Hallo, hier ein Tipp, wenn euch die Länge und Breite wichtig sind um bspw. Blechmengen zu berechnen, würde ich die OrietentedMinimumRangeBox empfehlen, in den Bildern seht ihr warum.

Hier der Code dazu:

Dim minimumboundingbox As OrientedBox = oCompDef.FlatPattern.OrientedMinimumRangeBox
Dim dir1, dir2, dir3 As Double
dir1 = Round(minimumboundingbox.DirectionOne.Length, 1) *10
dir2 = Round(minimumboundingbox.DirectionTwo.Length, 1) *10
dir3 = Round(minimumboundingbox.DirectionThree.Length, 1) * 10
Länge = MaxOfMany(dir1, dir2, dir3)
Höhe = MinOfMany(dir1, dir2, dir3)
Breite = (dir1 + dir2 + dir3) -Länge - Höhe
iProperties.Value("Custom", "TCC minimumboundingbox Abwicklung Länge") = Länge
iProperties.Value("Custom", "TCC minimumboundingbox Breite") = Breite
iProperties.Value("Custom", "TCC minimumboundingbox Fläche") = Round(Länge*Breite/1000000,2) & " m²"

Betreff: Blech / Abwicklung / Abmessungen automatisieren

SReitberger — Fri, 15 Dec 2023 09:38:44 GMT

Falls man von iLogic vermeiden will: Es gibt die Möglichkeit in iProperties Formeln/Variablen zu verwenden. Hierbei sind die Möglichkeiten aber begrenzt, z.B. kenne ich keine Möglichkeit die Nachkommastellen zu steuern.

Folgender Ausdruck wird aber ausgewertet

=<Sheet Metal Length> x <Sheet Metal Width>

(aus anderer Quelle habe ich mal <Flat Pattern Length> <Flat Pattern Width> <Flat Pattern Area> aufgeschnappt, die sind aber nicht in den eingestellten Modelleinheiten sondern in cm (IV interne Einheit) )

Ohne das genauer geprüft zu haben, nehme ich an, dass die Maße NICHT der MinimumBoundingBox entsprechen.

in der Hilfe - Create or edit expressions for iProperties

Achtung bei der Hilfe in Deutsch! Da wurden die Namen in <...> auch übersetzt 🙄