直线端点编号如何避免重复？

cqy

直线端点编号如何避免重复？ 对于直线端点相同的会重复编号 n = ObjSelectionSet.Count
While n > 0
Set linea = ObjSelectionSet.Item(n - 1)

Set objText = ThisDrawing.ModelSpace.AddText((2 * n - 1), linea.StartPoint, 10)

Set objText = ThisDrawing.ModelSpace.AddText(2 * n, linea.EndPoint, 10)

objText.Update

n = n - 1
Wend ------------------------------------------------------ CQY

雪山飞狐_lzh

On Error Resume Next
Dim pnts As New Collection
For Each i In ObjSelectionSet
pnts.Add i.StartPoint, i.StartPoint(0) & "," & i.StartPoint(1)
pnts.Add i.EndPoint, i.EndPoint(0) & "," & i.EndPoint(1)
Next i