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

cqy · 发表于 2005-2-25 13:57:00

直线端点编号如何避免重复？
对于直线端点相同的会重复编号
   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 · 发表于 2005-2-26 22:42:00

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

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

发表回复

精选推荐