---

Hallo!

Ich versuche zwei Kanten zu "loften". Leider vergeblich. Ist das ein Bug, oder weiss einer die Lösung ?

Code:

---

Public Sub test_loft()
    Dim oObjColl As ObjectCollection
    Dim oPart As PartDocument
    Dim oLoft As LoftFeature
   
    Set oPart = ThisApplication.ActiveDocument
   
    Set oObjColl = ThisApplication.TransientObjects.CreateObjectCollection
   
    oObjColl.Add oPart.SelectSet.Item(1)
    oObjColl.Add oPart.SelectSet.Item(2)
     
    Set oLoft = oPart.ComponentDefinition.Features.LoftFeatures.Add(oObjColl, kSurfaceOperation)
End Sub

---

Danke...
MFG daywalk3er