为什么mastercam9.1里面处理程序会自动分成两段 邮箱：chibiwen@163.com

出姿培现这个问题的最大可能是你的文件是从别的电脑上复制过来的，而且迹陵唯已经编了一部分，你是用了另外的电脑接着干活。

你可以检查编程的刀具页面中的Change Nci中的文件是否一致，把所有的小程序的Change Nci该成一致，处理程序不会自动汪槐分成两段。

用VBA来实现吧

就按照你的格式位置（如图）运行下面的宏就可以生成，注意简单团兄起见，序号一定是从1开始由小到大等差排序，如1,2,3,4.....，不然程序就会复杂点了塌辩袭

Sub zzhabc()

Worksheets("Sheet1").Select

max_row = Sheets("sheet1").[C65536].End(xlUp).Row

min_num = WorksheetFunction.Min(Range("C2:C" &max_row))

max_num = WorksheetFunction.Max(Range("C2:C" &max_row))

row1 = 1

For i = min_num To max_num

  j = 1

  ys = Cells(i + 1, 4)

  Do While ys >Cells(i + 1, 5)

      row1 = row1 + 1

      Cells(row1, 9) = i &"-" &j

      If j = 1 Then

          Cells(row1, 10) = Cells(i + 1, 4)

      Else

          Cells(row1, 10) = Cells(row1 - 1, 12)

      End If

      Cells(row1, 11) = Cells(i + 1, 5)

      ys = Cells(row1, 10) - Cells(row1, 11)

      Cells(row1, 12) = ys

      j = j + 1

  Loop

  If ys >0 Then

      row1 = row1 + 1

      Cells(row1, 9) = i &"-"灶姿 &j

      Cells(row1, 10) = ys

      Cells(row1, 11) = ys

      Cells(row1, 12) = 0

  End If

Next

End Sub

---