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

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

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


对于直线端点相同的会重复编号


       n = ObjSelectionSet.Count<BR>                       While n &gt; 0<BR>                                                       Set linea = ObjSelectionSet.Item(n - 1)<BR>                                       <BR>                                                       Set objText = ThisDrawing.ModelSpace.AddText((2 * n - 1), linea.StartPoint, 10)<BR>                                                       <BR>                                                       Set objText = ThisDrawing.ModelSpace.AddText(2 * n, linea.EndPoint, 10)<BR>                                                       <BR>                                                                       objText.Update<BR>        <BR>                                                       n = n - 1<BR>                       Wend


------------------------------------------------------


                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       CQY

雪山飞狐_lzh 发表于 2005-2-26 22:42:00

On Error Resume Next<BR>Dim pnts As New Collection<BR>For Each i In ObjSelectionSet<BR>                       pnts.Add i.StartPoint, i.StartPoint(0) &amp; "," &amp; i.StartPoint(1)<BR>                       pnts.Add i.EndPoint, i.EndPoint(0) &amp; "," &amp; i.EndPoint(1)<BR>Next i<BR>
页: [1]
查看完整版本: 直线端点编号如何避免重复？