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

help）））

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 发表于 2005-3-31 19:49:00

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

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

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

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

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

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

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

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

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

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

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