求助，用VBA怎样标注多段线的点号和距离！！

路边

C:\Documents and Settings\lyl\My Documents\My Pictures\1.bmp

例如：Dim Selects As AcadSelectionSet
On Error Resume Next
ThisDrawing.SelectionSets("Objs").Delete

Dim FType(2) As Integer          ' ※ 选择过滤器的类型代码
Dim FData(2) As Variant          ' ※ 选择过滤器的值
' ※ 给定选择过滤器类型代码
FType(0) = -4                    ' ※ 条件组合码
FType(1) = 0
FType(2) = -4                    ' ※ 条件组合码
' ※ 给定选择过滤器值为可以生成面域的图元类型
FData(0) = "<Or"                    ' ※ 类型集合起点
FData(1) = "LWPolyLine"                    ' ※多端线
FData(2) = "Or>"                      ' ※ 类型集合终点
' ※ 选择图元
Set Selects = ThisDrawing.SelectionSets.Add("Objs")
Selects.SelectOnScreen FType, FData '选择图1

'获得图1坐标

Dim gpnt As Variant
  For Each element In Selects '在选择集中进行循环
      gpnt = element.Coordinates

next

接下来：怎样把图1自动标注上点号和距离，成为图2 样式！！

请高手指点！！！

 

counseling

这个贴我刚看见，我也有相同的疑问。望高手解答！

mccad

图？你没有上传