[VBA]请斑竹看看，有何问题？

WWWDONG

Public Sub test2()
Dim mypline As AcadLWPolyline
Dim ss1 As AcadSelectionSet
Dim pt As Variant
Dim points As Variant
Call ThisDrawing.Utility.GetEntity(mypline, pt, "22=")
Call bulidselction(ss1, 1) '创建选择集
points = mypline.Coordinates
ss1.SelectByPolygon acSelectionSetCrossingPolygon, points
Debug.Print ss1.count
End Sub



Public Sub bulidselction(mysle As AcadSelectionSet, pp As String)
              '定义名为PP的选择集，赋值于mysle,若存在则引用,不存在则创建
    Dim k As Integer
    Dim num As Integer
    Dim aaa As Boolean
    aaa = False
            For k = 0 To ThisDrawing.SelectionSets.count - 1
                If ThisDrawing.SelectionSets.Item(k).Name = pp Then
                aaa = True
                num = k
                Exit For
                End If
            Next k
            If aaa = True Then
                Set mysle = ThisDrawing.SelectionSets.Item(pp)
                mysle.Delete
                Set mysle = ThisDrawing.SelectionSets.add(pp)
            Else
                Set mysle = ThisDrawing.SelectionSets.add(pp)
            End If
End Sub



该段程序为何无法执行

mccad

1.创建选择集的函数也太复杂了一点吧，其实几句就可以完成的，查查以前的贴子吧。
2.优化多段线的点集是二维的，而选择集的点指需要的是三维坐标的，所以出错。

2. Public Sub test2()
   
3. Dim mypline As AcadLWPolyline
   
4. Dim ss1 As AcadSelectionSet
   
5. Dim pt As Variant
   
6. Dim points As Variant
   
7. Call ThisDrawing.Utility.GetEntity(mypline, pt, "22=")
   
8. Call bulidselction(ss1, 1) '创建选择集
   
9. points = mypline.Coordinates
   
10. Dim pnts() As Double
    
11. Dim i As Integer
    
12. i = (UBound(points) + 1) / 2 * 3 - 1
    
13. ReDim pnts(i)
    
14. For i = 0 To (UBound(points) + 1) / 2 - 1
    
15.     pnts(i * 2 + i) = points(i * 2)
    
16.     pnts(i * 2 + i + 1) = points(i * 2 + 1)
    
17. Next
    
18. ss1.SelectByPolygon acSelectionSetCrossingPolygon, pnts
    
19. Debug.Print ss1.Count
    
20. End Sub
    

Public Sub test2()<br /> Dim mypline As AcadLWPolyline<br /> Dim ss1 As AcadSelectionSet<br /> Dim pt As Variant<br /> Dim points As Variant<br /> Call ThisDrawing.Utility.GetEntity(mypline, pt, "22=")<br /> Call bulidselction(ss1, 1) '创建选择集<br /> points = mypline.Coordinates<br /> Dim pnts() As Double<br /> Dim i As Integer<br /> i = (UBound(points) + 1) / 2 * 3 - 1<br /> ReDim pnts(i)<br /> For i = 0 To (UBound(points) + 1) / 2 - 1<br />     pnts(i * 2 + i) = points(i * 2)<br />     pnts(i * 2 + i + 1) = points(i * 2 + 1)<br /> Next<br /> ss1.SelectByPolygon acSelectionSetCrossingPolygon, pnts<br /> Debug.Print ss1.Count<br /> End Sub<br />

WWWDONG

问题解决