---

Hallo zusammen,

besteht die Möglichkeit, bei der Übernahme von beigestellten Blechdateien, den K-Faktor für alle Teile gleichzeitig zu ändern?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

n

[Diese Nachricht wurde von TimFoell am 21. Jul. 2022 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

da der k-Faktor in der Datei gespeichert ist mußt/kannst du ihn auch in jeder individuell ändern.

Ein Updaten auf eine gewünschte Vorlage ist nicht vorgesehen

------------------

------------------
Es reicht nicht, sich Blödsinn nur auszudenken, wenn man ihn nicht auch bis zur letzten Konsequenz durchzieht!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Man könnte es über Bitschubsen versuchen.
iLogic:

Code:

---

Sub Main

If MsgBox("Achtung. Die Funktion setzt in ALLEN geöffneten Blechbauteilen den k-Faktor neu. Das gilt auch für Blechbauteile die in geöffneten Baugruppen und/oder Zeichnungen referenziert sind.", MsgBoxStyle.OkCancel, "iLogic Setkfactor") = MsgBoxResult.Cancel Then Exit Sub

Dim sInput As String= InputBox("k-Faktor angeben (0 bis 1):", "iLogic Setkfactor", "0.5")
If sInput = "" Then Exit Sub 'User canceled dialog

Dim oDoc As Document
Dim oPartDoc As Inventor.PartDocument
Dim oCompDef As SheetMetalComponentDefinition

For Each oDoc In ThisApplication.Documents
If oDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
oPartDoc=DirectCast(oDoc,Inventor.PartDocument)
If oPartDoc.ComponentDefinition.Type=Inventor.ObjectTypeEnum.kSheetMetalComponentDefinitionObject Then
oCompDef = DirectCast(oPartDoc.ComponentDefinition,SheetMetalComponentDefinition)
oCompDef.UnfoldMethod.kFactor = sInput
oPartDoc.Update
End If
End If
Next

End Sub

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP