---

Hallo Leute,

ich versuche eine Abwicklung automatisiert zurecht zu drehen. Der manuelle Vorgang über die UI funktioniert, wenn ich allerdings über oben angeführte Methode versuche die Abwicklung zu drehen hatte ich mit SP1 wenig und seit SP2 gar keinen Erfolg.
Das Problem sieht folgendermassen aus:
Ich habe testhalber zwei Vertizes von Hand selektiert und diese an SetAlignment übergeben. Mit SP1 wurde die Abwicklung zumindest gedreht (nicht wie sie sollte, allerdings gedreht). Die gleiche Prozedur nach der Installation von SP2 liefert ebenfalls keinen Fehler, allerdings bewegt sich die Abwicklung garnicht.

Anbei der Codeschnipsel (nur ein Auszug, daher nicht aufgeräumt):

Code:

---

Dim oTG As Inventor.TransientGeometry
Dim oCompDef As Inventor.SheetMetalComponentDefinition
Dim oFlat As Inventor.FlatPattern
Dim oObjCol As Inventor.ObjectCollection

    Set oTG = ThisApplication.TransientGeometry
    Set oCompDef = oDoc.ComponentDefinition
    Set oFlat = oCompDef.FlatPattern
    Set oObjCol = ThisApplication.TransientObjects.CreateObjectCollection

    oObjCol.Add oDoc.SelectSet.Item(1)
    oObjCol.Add oDoc.SelectSet.Item(2)

    oFlat.SetAlignment kVerticalAlignment, oObjCol

End Sub

---

Habt ihr eine Idee?

tia

Sebastian

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