---

Hallo,

ist es möglich zu differenzieren, ob ein Blech nur ein flaches Blech, oder das Blech ein gekantetes Blech ist?

Hinweis:
Ein gewalztes Blech (z.B.: ein selbst gewalztes Rohr) sollte ebenfalls als "gekantet" erkannt werden.

Voraussetzungen:
Bei uns wird bei jedem Blech eine Abwicklung erstellt, egal, ob es flach bleibt oder gekantet wird...

Ich wäre Euch für Anregungen dankbar.

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

---

Hallo ofencad,

du kannst die RangeBox des Teils und die RangeBox der Abwicklung vergleichen.
- Wenn beide gleich sind, ist das Teil ein flaches Blech.
- Wenn die Z-Ausdehnung der Abwicklung = Blechdicke ist, dann liegt die Abwicklung flach auf der X-Y-Ebene.

------------------
Gruß Roland

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

---

Hallo zusammen,

aber hat die RangeBox nicht ihren Ursprung immer im Bauteil Nullpunkt?
Dies hätte zur Folge das die Werte unbrauchbar werden, wenn Teile nicht unmittelbar um den Nullpunkt konstruiert wurden.
Dies ist gerade im Bereich des Master-Modelling (MultiBody) öfters der Fall.

Hier sollte man aufpassen, das man keine falschen Ergebnisse deswegen erzielt.

------------------
Mit Besten Grüßen

Ruzy5624

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

---

Zitat:

---

Original erstellt von Ruzy5624:
Hallo zusammen,

aber hat die RangeBox nicht ihren Ursprung immer im Bauteil Nullpunkt?
Dies hätte zur Folge das die Werte unbrauchbar werden, wenn Teile nicht unmittelbar um den Nullpunkt konstruiert wurden.
Dies ist gerade im Bereich des Master-Modelling (MultiBody) öfters der Fall.

Hier sollte man aufpassen, das man keine falschen Ergebnisse deswegen erzielt.

---

Woher kommt diese Information? Aus der API-Hilfe?
In jedem Fall ist sie falsch!

Die RangeBox ist der Umgrenzungsquader für das Bauteil von X,Y,Z-min bis X,Y,Z-max

Probier mal folgendes VBA-Beispiel zur Anzeige der RangeBox:

Code:

---

Public Sub dimension()
On Error Resume Next
    Set oDoc = ThisApplication.ActiveDocument
   
If (oDoc.DocumentType = kPartDocumentObject) Or (oDoc.DocumentType = kAssemblyDocumentObject) Then 'kPartDocumentObject
    Dim X, Y, Z As Double
      X = 10 * (oDoc.ComponentDefinition.RangeBox.MaxPoint.X - oDoc.ComponentDefinition.RangeBox.MinPoint.X)
      Y = 10 * (oDoc.ComponentDefinition.RangeBox.MaxPoint.Y - oDoc.ComponentDefinition.RangeBox.MinPoint.Y)
      Z = 10 * (oDoc.ComponentDefinition.RangeBox.MaxPoint.Z - oDoc.ComponentDefinition.RangeBox.MinPoint.Z)
      MsgBox "Bauteil-Abmessungen  X: " & CStr(Round(X, 2)) & "  Y: " & CStr(Round(Y, 2)) & "  Z: " & CStr(Round(Z, 2)) & " [mm]"
    End If
End Sub

---

Ein Zylinder ergibt die gleiche RangeBox. Egal, ob um den Nullpunkt, oder frei im Raum

------------------
Gruß Roland

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

---

Hallo,

habe es heute Morgen schon so lösen können...

CODE:
_______________________________________________________________________
Sub Kantungen_erfassen()

    Dim iApp As Inventor.Application
    Dim iDoc As Inventor.Document
    Set iApp = GetObject(, "Inventor.Application")
    If iApp.ActiveDocumentType = kDrawingDocumentObject Then
        Set iDoc = iApp.ActiveDocument
    Else: If TypeOf iApp.ActiveEditObject Is Sketch Then Exit Sub
        Set iDoc = iApp.ActiveEditObject
    End If

    Dim iSheetMetalComp As Inventor.SheetMetalComponentDefinition
    Set iSheetMetalComp = iDoc.ComponentDefinition
 
    Dim iBendCount As Integer
    iBendCount = iSheetMetalComp.Bends.Count
 
    Dim iPropInfUser As PropertySet
    Set iPropInfUser = iDoc.PropertySets.Item("Inventor User Defined Properties")
    Dim iKlasse1Prop As property
    Set iKlasse1Prop = iPropInfUser.Add("x", "Klasse 1")
    Dim iKlasse2Prop As property
    Set iKlasse2Prop = iPropInfUser.Add("x", "Klasse 2")

    If iBendCount > 0 Then
        iKlasse1Prop.Value = "04_Einzelteil"
        iKlasse2Prop.Value = "02_Biegeteile"
    Else
        iKlasse1Prop.Value = "04_Einzelteil"
        iKlasse2Prop.Value = "01_Bleche (flach)"
    End If

End Sub
_____________________________________________________________________

Aber vielen Dank.

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

---

RangeBoxResult1611101830.JPG

Hallo RolandD,

ich meine das Resultat, welches in meinem angehängtem Bild zu sehen ist.
Dort habe ich das VBA Beispiel von dir ausprobiert und dafür einen kleinen Quader (15x15x5mm) vom Ursprung entfernt konstruiert.

Oder mache ich etwas falsch? Lasse mich ja gerne etwas besseren belehren, vor allem wenn ich dadurch auch noch was dazulernen kann.

------------------
Mit Besten Grüßen

Ruzy5624

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

---

Wie ist die RangeBox, wenn du alle Arbeitselemente ausblendest?

------------------
Gruß Roland

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

---

Ich habe das bei mir mittels iLogic realisiert.

Sub Main
Public Sub Blechkantungen()

On Error Resume Next

    Dim oDoc As PartDocument

    oDoc = ThisApplication.ActiveDocument

    Dim oCompDef As SheetMetalComponentDefinition

    oCompDef = oDoc.ComponentDefinition

Dim Gekantet As Boolean
    Gekantet = False
    Dim Kantung As Bend
    For Each Kantung In oCompDef.Bends
        If Not Kantung.IsFlat Then
            Gekantet = True
            Exit For
        End If
    Next
   
    If Gekantet Then
'Setzt das iPropertie auf "X" falls das Bauteil gekantet ist.
iProperties.Value("Custom", "Gekantet")="x"

    Else
    'Setzt das iPropertie auf "" falls das Bauteil nicht gekantet ist.
iProperties.Value("Custom", "Gekantet")=""

    End If

  oDoc = ThisApplication.ActiveDocument

Dim oSMDef As SheetMetalComponentDefinition

oSMDef = oDoc.ComponentDefinition

oSMDef.FlatPattern.ExitEdit

End Sub

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

---

Das hat mir wirklich geholfen, danke Angus!

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