VBA选择集，总选不到任何对象的问题

luq1979

我初学CAD VBA，在选择集上遇到了问题，特向大家请教：
我用sSet.Select acSelectionSetCrossing, pt1, pt2，或者sset.Select acSelectionSetWindow , pt1, pt2，总是选不到任何东西，这是怎么回事呢？acSelectionSetAll才能选到东西。从网上复制的示例代码也一样，不知道问题出在哪？

这是一个简化的代码，画了3个圆，然后选择，查看选择集内实体数，显示为0：
Public Sub Test1()
    Dim pt1(0 To 2) As Double
    Dim pt2(0 To 2) As Double
    Dim pt3(0 To 2) As Double
    Dim pt4(0 To 2) As Double
    Dim pt5(0 To 2) As Double
    Dim obj As AcadObject
   
    pt1(0) = 20: pt1(1) = 20: pt1(2) = 0
    pt2(0) = 30: pt2(1) = 30: pt2(2) = 0
    pt3(0) = 40: pt3(1) = 40: pt3(2) = 0
    pt4(0) = 0: pt4(1) = 0: pt4(2) = 0
    pt5(0) = 100: pt5(1) = 100: pt5(2) = 0
   
    Call ThisDrawing.ModelSpace.AddCircle(pt1, 10)
    Call ThisDrawing.ModelSpace.AddCircle(pt2, 15)
    Call ThisDrawing.ModelSpace.AddCircle(pt3, 10)
   
    On Error Resume Next
    Dim sSet As AcadSelectionSet
    If Not IsNull(ThisDrawing.SelectionSets.Item("mySelect")) Then
        Set sSet = ThisDrawing.SelectionSets.Item("mySelect")
        sSet.Delete
    End If
   
    Set sSet = ThisDrawing.SelectionSets.Add("mySelect")

    sSet.Select acSelectionSetCrossing, pt4, pt5
      
    MsgBox "选择集内实体数：" & sSet.Count
         
    sSet.Delete
End Sub

这个问题已经困扰我几天了，哪位能指点一下？不胜感激！

aisong220

luq1979

会不会是引用，或者cad版本问题？我用的是 AutoCAD2020

luq1979

没有人知道吗？这个问题只有我遇到？

luq1979

这个论坛完全没人气啊