|
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可以,有些则不可以? |
|