社区 › VB › 直线端点编号如何避免重复？

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

查看完整版本: 直线端点编号如何避免重复？