输出多段线坐标，拆入已写好的表格块，分页和写入数值遇到问题，请大神指教。
下面的分页代码，已经可以运行,到写入数值的时候没有头绪了，第一页好办，后面的页数没想到办法。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
页:
[1]