---

Hallo! Ich habe das untenstehende Skript erstellt und erhalte bei Ausführung immer die Fehlermeldung, dass die Funktion AddSectionToLoft gescheitert ist.... Es hängt wohl irgendwie an den falschen Referenzen oder? Was habe ich falschgemacht

Sub CATMain()
Dim ref(50)
Dim pointref(50)

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set products1 = product1.Products
Set product2 = products1.AddNewComponent("Part", "strak")

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("strak.CATPart")

Set part1 = partDocument1.Part

' 3D-Werkzeugkasten deklarieren ----------------------------------

Set Bauteil = partDocument1.Part
Set Wzk3D = Bauteil.HybridShapeFactory

' Geöffneten Körper erzeugen -------------------------------------

Set sel1 = productDocument1.Selection
Set pointsel = productDocument1.Selection

sel1.Clear
sel1.Search ("CATPrtSearch.Curve.Name=spline.frame*,all")

For i = 1 To sel1.Count
Set ref(i) = sel1.Item(i).Value
Next

pointsel.Clear
pointsel.Search ("CATPrtSearch.Point.Name=Punkt.8,all")

For j = 1 To pointsel.Count
Set pointref(j) = pointsel.Item(j).Value
Next

Set LoftWzk = Bauteil.ShapeFactory
Set loffie1 = LoftWzk.AddNewLoft()

Set LoftH = loffie1.HybridShape
LoftH.SectionCoupling = 1
LoftH.Relimitation = 1
LoftH.PlaneDetection = 1

'For i = 1 To sel1.Count
LoftH.AddSectionToLoft ref(1), 1, pointref(1)
LoftH.AddSectionToLoft ref(2), 1, pointref(2)
'Next
LoftWzk.AppendHybridShape LoftH

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