---

Hallo,
ich habe folgendes Problem, wenn ich ein Blechbauteil mit unfold abwickle und es dann speichern will bekomme ich die Meldung das im Abwicklungs Bearbeitungsfenster nicht gespeichert werden kann.
ich finde aber in VBA den Befehl für das zurückkehren in den ich sage mal normalen Bearbeitungsmodus nicht.
Wäre nett wenn mir jemand helfen könnte.
Mein System ist IV 2009 64bit

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

---

Hallo Sebastian,

zwischen ungefaltet und gefaltet hin und herschalten bzw. wenn's keine Abwicklung gibt diese erzeugen:

Private Sub ToggleCreateFlatPattern()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument
 
  Dim oCD As SheetMetalComponentDefinition
  Set oCD = oDoc.ComponentDefinition
 
  Dim oFP As FlatPattern
  Set oFP = oDoc.ActivatedObject
 
  If Not oFP Is Nothing Then
    ' Abwicklung deaktivieren
    oFP.ExitEdit
   
  Else
 
    If oCD.HasFlatPattern = True Then
      ' Abwicklung aktivieren
      oCD.FlatPattern.Edit
    Else
      ' Abwicklung erzeugen
      Call oCD.Unfold
    End If

  End If

End Sub

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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

---

Hallo,
VIELEN DANK hat mir viel geholfen

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