Кинематическая операция ошибка в коде

[Robinnn]

Извините за повторение, но вопрос очень важный 
Помогите разобраться где ошибка, операция не работает, хотя то что после неё выполняется   
Выдавливание должно происходить по спирали, если создавать в ручную, по тем же параметрам, то всё работает


Dim entityEvolution As Object ' ksEntity
          Set entityEvolution = Part.NewEntity(o3d_baseEvolution)
         
        If Not entityEvolution Is Nothing Then
           
            Dim EvolutionDef As Object ' ksbaseEvolutionDefinition
            Set EvolutionDef = entityEvolution.GetDefinition()
   
            If Not EvolutionDef Is Nothing Then

                EvolutionDef.SetSketch EntitySketch1             ' эскиз операции
                EvolutionDef.sketchShiftType = 0  ' способ выдавливания
        '  EvolutionDef.SetThinParam False, dtBoth, 10, 10   ' тонкая стенка в два направления
                     ' указатель на  колекцию обьектов - кривых
               'для кинематического выдавливания
           'Dim ksEntityCollection As Object
           'Set ksEntityCollection = Part.EntityCollection(o3d_unknown)
           Dim Collect As Object
           Set Collect = EvolutionDef.PathPartArray
           
            ' добавлянм 3д оъекты или эскизы содержащие кривую
           ' ksEntityCollection.Add entityCylindricSpiral
                   
                        Collect.Add entityCylindricSpiral 'добавляем спираль
                       entityEvolution.Create ' создать операцию
                 
            End If
         End If

[Robinnn]

Понял в чём проблема - PathPartArray не воспринимает спираль в качестве пути или может ёго нужно по другому задавать, потому что с 2Д эскизами пути работает нормально, может кто-то что-то посоветует

[333]

Кинематическую операцию нужно делать

[Robinnn]

ЧЁ то я не понял, я ж написал в чём проблема, если не можеш дать нормального ответа, то зачем писать вообще (это касательно 333)