输出多段线坐标，拆入已写好的表格块，分页和写入数值遇到问题，请大神指教。

yswoyh

下面的分页代码，已经可以运行,到写入数值的时候没有头绪了，第一页好办，后面的页数没想到办法。

    Sub insert页(ByVal i As Integer, ByVal xy As Object)  '分页代码
        Dim 页数 As Double = Math.Ceiling(i / 20)
        Dim N As Integer
        Dim 表格 As String = AppDomain.CurrentDomain.BaseDirectory & "Wblock\坐标表.dwg"
        For N = 0 To i Step 20
            If N = 0 Then
                Acadapp.ActiveDocument.ModelSpace.InsertBlock(xy, 表格, 1, 1, 1, 0)
                'Acadapp.ActiveDocument.ModelSpace.AddText(N, xy, 10)
            ElseIf N <> 0 Then
                xy(0) = xy(0) + 130.1664
                Acadapp.ActiveDocument.ModelSpace.InsertBlock(xy, 表格, 1, 1, 1, 0)
                'Acadapp.ActiveDocument.ModelSpace.AddText(N, xy, 10)
            End If
        Next
        'MsgBox(页数)
    End Sub
下面的很乱，没有头绪，请大神指教

    Sub XYDtable(ByVal i As Integer, ByVal xypoint As Object, ByVal pt As Object, ByVal dist_ang As Object)
        Dim 点号插入点 As Object = pt : Dim 距离插入点 As Object = pt : Dim 方位角拆入点 As Object = pt
        Dim 横坐标插入点 As Object = pt : Dim 纵坐标插入点 As Object = pt
        For n = 0 To i
            If n = 0 Or n / 20 Mod 0 Then
                点号插入点(0) = 点号插入点(0) + 17.5903 : 点号插入点(1) = 点号插入点(1) - 22.4362 '给点号坐标赋值
                Dim 点号txt As Object = Acadapp.ActiveDocument.ModelSpace.AddText(n + 1, 点号插入点, 1.75) '写点号
                距离插入点(0) = 距离插入点(0) + 25.6211 : 距离插入点(1) = 距离插入点(1) - 25.5362 '给点号坐标赋值
                Dim 距离txt As Object = Acadapp.ActiveDocument.ModelSpace.AddText(dist_ang(n).d, 距离插入点, 1.75) '写距离
                方位角拆入点(0) = 方位角拆入点(0) + 44.3835 : 方位角拆入点(1) = 方位角拆入点(1) - 25.5362
                Dim 方位角txt As Object = Acadapp.ActiveDocument.ModelSpace.AddText(dist_ang(n).du, 方位角拆入点, 1.75) '写方位角
            Else
                点号插入点(0) = 点号插入点(0)
           End If
        Next
    End Sub