---

Hallo sehr geschätztes Forum.

Ich versuche gerade bei meiner Blechteil-Vorlage, den Wert für die Eckenrundung (und die Eckfase) fest mit der Blechstärke zu verknüpfen.
Beide Werte sollen voreingestellt auf die Blechstärke sein.
Die Parameter habe ich nicht im Stileditor, den Blechstandards oder bei den fxParameter gefunden.

Erst mit der Erstellung eines Eckfeatures erscheinen die fxParameter Echenrundung1 und Eckfase1, verschwinden aber mit dem Löschen des Features, wie es für meine Blechvorlage notwendig ist.

Hat jemand eine Lösung für mein Problem?

Vielen Dank im vorraus.
Ulrich

------------------
Koeppl Automation GmbH
Neulandstr. 40
D-74889 Sinsheim

[Diese Nachricht wurde von Ulrich Reichel am 03. Dez. 2020 editiert.]

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

---

…wenn Du, die Frage auf die Blechdicke beziehen könntest  , hätte ich einen Lösungsvorschlag  .

Der da wäre.
Erzeuge für die von Dir gewünschten Wert Benutzerparameter und verweise entweder gleich in der Parameterliste oder im Blechmodul auf die Namen/Benennungen dieser Parameter.

------------------
In diesem Sinne wünsche ich allen, weiterhin effektives Schaffen

----------------
Manfred Gündchen
www.guendchen.com

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

---

Moin!

Soweit ich das verstanden habe, geht es um die beim Erstaufruf in den beiden genannten Funktionen stehenden Defaultwerte, und die kommen in der Blechregel nicht vor.

Ich fürchte, dass es da keinen Zugriff gibt. Viele dieser Werte sind im Programmcode fest eingetragen, und dann kommt man da nicht dran.

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

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

---

wo kann ich im Blechmodul auf einen Benutzerparameter verweisen?
Ich finde den Ort zum Festlegen der Radiusgröße der Verrundung nicht.

------------------
Koeppl Automation GmbH
Neulandstr. 40
D-74889 Sinsheim

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

---

Danke Roland,
du hast mich richtig verstanden.

Hoffentlich ist das bald auch im Inventor einstellbar.

Herzliche Grüße
Ulrich

------------------
Koeppl Automation GmbH
Neulandstr. 40
D-74889 Sinsheim

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

---

Zitat:

---

Original erstellt von Ulrich Reichel:
…wo kann ich im Blechmodul auf einen Benutzerparameter verweisen…

---

…immer nur jeweils in jeder einzelnen ipt, dann wenn erforderlich.
Allgemein, grundsätzlich, übergreifend - nicht

------------------
In diesem Sinne wünsche ich allen, weiterhin effektives Schaffen

----------------
Manfred Gündchen
www.guendchen.com

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

---

Hallo Ulrich,

vielleicht könnte eine iLogic Regel eine Lösung sein.

Hier mal ein einfacher Ansatz ohne jegliche Fehlerbehandlungen für Eventualitäten.

Beim Ausführen werden alle Rundungen und Fasen im Blechbauteil auf die Blechstärke gesetzt.

Code:

---

Sub Main()

Dim oApp As Application = ThisApplication
Dim oPrtDoc As PartDocument = oApp.ActiveDocument

Dim oFeatures As PartFeatures = oPrtDoc.ComponentDefinition.Features

Dim oCrnRndFeats As CornerRoundFeatures = oFeatures.CornerRoundFeatures
Dim oCrnRndFeat As CornerRoundFeature

Dim oCrnChmFeats As CornerChamferFeatures = oFeatures.CornerChamferFeatures
Dim oCrnChmFeat As CornerChamferFeature

Dim oCrnRadi As ModelParameter
Dim oCrnFase As ModelParameter

Dim dStaerke As Double: dStaerke = oPrtDoc.ComponentDefinition.Thickness.Value

If oCrnRndFeats.Count > 0 Then
    For Each oCrnRndFeat In oCrnRndFeats
        oCrnRadi = oCrnRndFeat.Parameters.Item(1)
        oCrnRadi.Value = dStaerke
    Next
End If

If oCrnChmFeats.Count > 0 Then
    For Each oCrnChmFeat In oCrnChmFeats
        oCrnFase = oCrnChmFeat.Parameters.Item(1)
        oCrnFase.Value = dStaerke
    Next
End If

oPrtDoc.Update

End Sub

---

Betrifft natürlich nur bereits erstellte Fasen und Rundungen

Vielleichthilft es ja weiter.

Grüße

EIBe 3D

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

---

Danke EiBe
der Ansatz ist interessant.
Ich habe den Ereignisauslöser mal auf "Nach dem Speichern von Dokument" gesetzt.

Man kann einem Blech Eckenradien und Fasen hinzu fügen.
Nach dem Speichern werden dann die Radien auf die Blechstärke korrigiert.

Der Nachteil ist, es können keine abweichenden Radien eigegeben werden.
Diese werden beim nächsten Speichern ebenfalls verändert.

Das Ziel wäre, dass der voreingestellte Wert die Blechstärke wäre, weitere, abweichende Radien aber dennoch möglich sind.#

Trotzdem vielen Dank für den Ansatz und die investierte Zeit.

Herzliche Grüße

Ulrich

------------------
Koeppl Automation GmbH
Neulandstr. 40
D-74889 Sinsheim

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

---

Hallo Ulrich,

dafür müsste man die betreffenden Features mit einem AttributeSet "kennzeichnen". So ließe sich eine Ausnahme definieren. Für das vergeben von AttributeSets müsste man ein Zusatztool schreiben, welches je nach Komfortwünschen mehr oder weniger aufwändig wird.

Ein weniger aufwendiger Ansatz könnte die Benennung der entsprechenden Features sein welche von der Regel ausgenommen werden sollen z.B. Rdg01 ... Rdgnn, Fs01 ... Fsnn.

Dafür hier der Code:
Fasen welche die Zeichenfolge Fs beinhalten sowei Rundungen mit der Zeichenfolge Rdg sind von der Regel ausgenommen

Code:

---

Sub Main()

Dim oApp As Application = ThisApplication
Dim oPrtDoc As PartDocument = oApp.ActiveDocument

Dim oFeatures As PartFeatures = oPrtDoc.ComponentDefinition.Features

Dim oCrnRndFeats As CornerRoundFeatures = oFeatures.CornerRoundFeatures
Dim oCrnRndFeat As CornerRoundFeature

Dim oCrnChmFeats As CornerChamferFeatures = oFeatures.CornerChamferFeatures
Dim oCrnChmFeat As CornerChamferFeature

Dim oCrnRadi As ModelParameter
Dim oCrnFase As ModelParameter

Dim dStaerke As Double: dStaerke = oPrtDoc.ComponentDefinition.Thickness.Value

If oCrnRndFeats.Count > 0 Then
    For Each oCrnRndFeat In oCrnRndFeats
        If InStr(1, oCrnRndFeat.Name, "Rdg", vbTextCompare) = 0 Then
            Set oCrnRadi = oCrnRndFeat.Parameters.Item(1)
            oCrnRadi.Value = dStaerke
        End If
    Next
End If

If oCrnChmFeats.Count > 0 Then
    For Each oCrnChmFeat In oCrnChmFeats
        If InStr(1, oCrnChmFeat.Name, "Fs", vbTextCompare) = 0 Then
            Set oCrnFase = oCrnChmFeat.Parameters.Item(1)
            oCrnFase.Value = dStaerke
        End If
    Next
End If

oPrtDoc.Update

End Sub

---

Grüße

EIBe 3D

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

---

201204-EckenrundungStaerke1.jpg 201204-EckenrundungStaerke2.jpg

Zitat:

---

Original erstellt von Ulrich Reichel:
... Der Nachteil ist, es können keine abweichenden Radien eigegeben werden.
Diese werden beim nächsten Speichern ebenfalls verändert. ...

---

So richtig verstehe ich die Notwendigkeit einer Automatisierung hier nicht, vor allem wenn mal die Blechstärke und mal ein anderer Radius verwendet werden soll.

Beim ersten Mal sind für den Zugriff auf den Parameter "Stärke" drei Klicks notwendig (Bild 1). Danach sind es sogar nur noch zwei Klicks (Bild 2), zumindest bis man nicht fünf davon abweichende Eingaben gemacht hat, auch über mehrere Sitzungen hinweg. Bestätigt man die Eingabe oder Auswahl des Wertes (hier also "Stärke") mit der Eingabetaste, bleibt sie in der laufenden Sitzung ohnehin die Voreinstellung.

Da fällt mir doch gleich wieder dieses Zitat ein: 
Never spend 6 minutes doing something by hand when you can spend 6 hours failing to automate it.
Zhuowei Zhang

------------------
Michael Puschner
Autodesk Certified Instructor
Autodesk Inventor Certified Expert
Autodesk Inventor Certified Professional
Mensch und Maschine Scholle GmbH

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

---

Zitat:

---

Original erstellt von Michael Puschner:
Never spend 6 minutes doing something by hand when you can spend 6 hours failing to automate it.
Zhuowei Zhang

---

…oh jess

10 Üs goes to Michael

------------------
In diesem Sinne wünsche ich allen, weiterhin effektives Schaffen

----------------
Manfred Gündchen
www.guendchen.com

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

---

Zitat:

---

Original erstellt von Michael Puschner:
Da fällt mir doch gleich wieder dieses Zitat ein:  
[i]Never spend 6 minutes doing something by hand when you can spend 6 hours failing to automate it.
Zhuowei Zhang[/i]

---

oh ja genau das selbe habe ich schon sehr oft erlebt und sehr oft decken die Automatationen nicht das ab was dann genau gefordert wird. 

herzlich Sascha

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

---

OT

Zitat:

---

Original erstellt von freierfall:
…und sehr oft decken die Automatationen nicht das ab was dann genau gefordert wird…

---

…na „unser“ Charly hat uns mal zwei Programmierungen gebaut die das tun was sie sollen, die heute noch laufen und täglich im Einsatz sind (!)!

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