园子829 发表于 2005-3-31 13:06:00

help）））

For i = 0 To acadDoc.SelectionSets.Count - 1<BR>                                                                                                                                                       If acadDoc.SelectionSets(i).Name = "textSel" Then<BR>                                                                                                                                                                                       acadDoc.SelectionSets(i).Delete<BR>                                                                                                                                                       End If<BR>                                                                                                                       Next i<BR>                                                                                                                       Set SSet = acadDoc.SelectionSets.Add("textSel")<BR>                                                                                                                       If UBound(BJlwply.Coordinates) &lt;= 3 Then<BR>                                                                                                                                                       GoTo breakNoID       'nresk when the polyline nodes r less than 2<BR>                                                                                                                       End If<BR><BR>                                                                                                                       ReDim arrayTemp((UBound(BJlwply.Coordinates) + 1) / 2 + (UBound(BJlwply.Coordinates) + 1) - 1) As Double<BR>                                                                                                                       tt = 0<BR>                                                                                                                       For ii = 0 To UBound(BJlwply.Coordinates) Step 2<BR>                                                                                                                                                       arrayTemp(tt) = BJlwply.Coordinates(ii)<BR>                                                                                                                                                       arrayTemp(tt + 1) = BJlwply.Coordinates(ii + 1)<BR>                                                                                                                                                       arrayTemp(tt + 2) = 0<BR>                                                                                                                                                       tt = tt + 3<BR>                                                                                                                       Next ii<BR>                                                                                                                       SSet.SelectByPolygon acSelectionSetWindowPolygon, arrayTemp



这样用SelectByPolygon有什么问题吗?为什么有些polyline可以,有些则不可以?

园子829 发表于 2005-3-31 19:49:00

顶一下,有人知道吗?selectbypolygon 要注意一些什么?

mccad 发表于 2005-3-31 21:27:00

多段线分为多种：<BR>优化多段线，坐标是二维的<BR>普通多段线，坐标是三维的<BR>

雪山飞狐_lzh 发表于 2005-3-31 21:30:00

以前有人碰到过这样的问题，如果多段线有端点重合是不行的

园子829 发表于 2005-3-31 22:02:00

那么有什么好的解决办法吗?怎么判断多段线是否有端点重合呢?

园子829 发表于 2005-3-31 22:04:00

回复：（lzh741206）以前有人碰到过这样的问题，如果多...

那么有什么好的解决办法吗?怎么判断多段线是否有端点重合呢?

园子829 发表于 2005-3-31 22:05:00

回复：（mccad）多段线分为多种：优化多段线，坐标...

我已经转成3D的坐标了,不是这个问题
页: [1]
查看完整版本: help）））