---

Hallo zusammen,

ich verfolge schon eine ganze weile die Beiträge auf dieser Seite und Sie haben mir auch immer weitergeholfen.
Einen ähnlichen Beitrag zum oben genannten Thema habe ich auch gefunden aber dieser will nicht bei IV2008 funktionieren.

In die iProperties von IV2009 können folgende Formeln für die Ermittlung der Blechabwicklungsgrenzen eingegeben werden:

Länge =<Flat Pattern Length> cm
Breite =<Flat Pattern Width> cm

Gibt es bei IV2008 eine Möglichkeit die Abwicklungsmaße auf ähnlichem Weise zu ermitteln? Kennt jemand die interne Bezeichnung bei IV2008?!
Bin für eure Hilfe sehr dankbar...

Mit freundlichen Grüßen
Ronny

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

---

Guten Morgen und herzlich Willkommen,

nein dies geht erst ab IV2009. Bis IV2008 musste man iProperty Collection einsetzen und mit der Version 2.4 für 32 bit ist das auch kostenfrei zu erreichen. Nur ganz wichtig, in der ini alles ausschalten was man nicht nutzen möchte. Sonst rechnet und rechnet er immer wieder.

herzliche Grüsse

Sascha Fleischer

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

---

Hallo,

in IV2008 werden die Variablen meines Wissens nicht in direkt verwertbarer Form zur Vefügung gestellt - wie schon von Herrn Fleischer festgestellt. Bei Verwendung von VBA oder eines Addins ist der Zugriff über die Eigenschaften der Abwicklung möglich:

Codefragment ...

  Dim invFlatPattern As FlatPattern
  Set invFlatPattern = invSheetMetalDoc.ComponentDefinition.FlatPattern
 
Set oExtent = invFlatPattern.Body.RangeBox

' Breite und Länge bestimmen aus der "BoundingBox"
  If (oExtent.MaxPoint.x - oExtent.MinPoint.x) > (oExtent.MaxPoint.Y - oExtent.MinPoint.Y) Then
    dLength = (oExtent.MaxPoint.x - oExtent.MinPoint.x)
    dWidth = (oExtent.MaxPoint.Y - oExtent.MinPoint.Y)
  Else
    dWidth = (oExtent.MaxPoint.x - oExtent.MinPoint.x)
    dLength = (oExtent.MaxPoint.Y - oExtent.MinPoint.Y)
  End If
 
  'Blechdicke kann so nicht zuverlässig bestimmt werden!
  'Wenn in eine Umkantung hinein geschnitten wird, ist der Wert (zumindest bei Inventor 2008) ggf. Müll!
  'dHeight = (oExtent.MaxPoint.Z - oExtent.MinPoint.Z) 

'oder über Eigenschaften der Abwicklung

 
    If Not invFlatPattern Is Nothing Then
     
      dLength = invFlatPattern.Length
      dWidth = invFlatPattern.Width 
 

'bzw. über Definitionswert des Blechstils
  dHeight = InvSheetMetalDoc.ComponentDefinition.ActiveSheetMetalStyle.Thickness.ModelValue

Immer Einheiten beachten! (invSheetMetalDoc.UnitsOfMeasure)
Inventor verwendet intern NICHT [mm] sondern [cm] - auch zu beobachten beim Rechnen mit Einheiten-behafteten Modellparametern.

Achtung: die Internen Variablen sind nicht per se aktuell, wenn sie ausgelesen werden! Alle Ereignisse, die das Flatpattern ändern(können) habe ich auch nicht zu fassen bekommen. Um trotzdem zuverlässig korrekte Daten zu erhalten habe ich im OnSaveDocument-Ereignis (beforeSave) ein invSheetMetalDoc.Rebuild eingefügt. Spätestens unmittelbar vor dem Speichern werden die Daten so auf den aktuellen Stand gebracht.

(Einziger?)Wesentlicher Grund für eine eigene Programmierung: Man kann bei geeigneter Definition der Blechstile Stücklistendaten für die Halbzeuge erzeugen, die für die direkte Übernahme in die Warenwirtschaft geeignet sind - inklusive Unterscheidung verschiedener Blechtafelformate und Vergabe passender Halbzeug-Artikelnummern. Auch können für andere flächenhafte Halbzeuge wie Gipskartonplatten oder ähnliches sinnvolle Bezeichnungen erzeugt werden.

Für Ausgangsmaterial ggf. im Forum unter "SheetMetalExtents" suchen.

M.f.G.  H.T.

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