Equals curve CorelDraw VBA

Sub = 20 dim eff1 as effect dim S1 as shape, S2 as shape dim N1 as node, N2 as node set n1 = activelayer. shapes (1 ). curve. subpaths (1 ). startnode set n2 = activelayer. shapes (1 ). curve. subpaths (1 ). endnode set S1 = activelayer. createellipse2 (n1.positionx, n1.positiony, 1/25.4, 1/25.4) set S2 = activelayer. createellipse2 (n2.positionx, n2.positiony, 1/25.4, 1/25.4) set eff1 = s1.createblend (S2, and other scores, average, cdrblendsteps, 0.393701, 0 #, false, nothing, false, 0, 0, false) eff1.blend. linkacceleration = true eff1.blend. steps = equi-1 eff1.blend. path = activelayer. shapes (4) activepage. shapes. all. createselection activeselection. separate dim grp1 as shaperange set grp1 = activeselection. ungroupallex activedocument. createshaperangefromarray (grp1 (Equal score + 1), grp1 (Equal score + 2 )). converttocurves debug. print "1/" & Equal score & "coordinate", activelayer. shapes (Equal score ). centerx * 25.4, activelayer. shapes (Equal score ). centery * 25.4 'output coordinate K = activelayer. shapes. count-1 for I = 1 to k activelayer. shapes (1 ). delete nextend sub