help）））

园子829

For i = 0 To acadDoc.SelectionSets.Count - 1
If acadDoc.SelectionSets(i).Name = "textSel" Then
acadDoc.SelectionSets(i).Delete
End If
Next i
Set SSet = acadDoc.SelectionSets.Add("textSel")
If UBound(BJlwply.Coordinates) <= 3 Then
GoTo breakNoID 'nresk when the polyline nodes r less than 2
End If

ReDim arrayTemp((UBound(BJlwply.Coordinates) + 1) / 2 + (UBound(BJlwply.Coordinates) + 1) - 1) As Double
tt = 0
For ii = 0 To UBound(BJlwply.Coordinates) Step 2
arrayTemp(tt) = BJlwply.Coordinates(ii)
arrayTemp(tt + 1) = BJlwply.Coordinates(ii + 1)
arrayTemp(tt + 2) = 0
tt = tt + 3
Next ii
SSet.SelectByPolygon acSelectionSetWindowPolygon, arrayTemp 这样用SelectByPolygon有什么问题吗?为什么有些polyline可以,有些则不可以?

园子829

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

mccad

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

雪山飞狐_lzh

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

园子829

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

园子829

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

园子829

我已经转成3D的坐标了,不是这个问题