CADVBA，删除多段线重复节点，并生成新数组

写了，不完善，有时成功，有时失败，高手看看，是不是还有简单的办法？

For i = 0 To j - 3 Step 2
   
  Δx = pp(i) - pp(i + 2)
  Δy = pp(i + 1) - pp(i + 3)
   
  If i + 3 = j And Δx < 0.00000001 And Δy < 0.00000001 Then '''最后两个节点为重合点时，m加1并跳出循环
  pp(i) = pp(i): pp(i + 1) = pp(i + 1)
  m = m + 1
  Exit For
  End If
   
  If Δx < 0.00000001 And Δy < 0.00000001 Then
  pp(i + 2) = pp(i + 4): pp(i + 3) = pp(i + 5)
  m = m + 1
   
  If i + 5 = j Then ''''''''当最后一个节点被赋值给pp(i+2)和pp(i+3)时，循环停止
  Exit For
  End If
   
  End If
Next

  n = j - 2 * m ''''''''m记录重合点数，n为新数组的最大下标
  ReDim Preserve pp(0 To n)

超爽吃喝玩乐，白给，白送，白拿，免费好东东，总有一个适合你  
精品免费，礼品，奖品，赠品，折扣，优惠券，赚钱，一切免费好东东
尽在豆包网精品站，赶快行动吧!!