选择集无法选中Mirror或ScaleEntity创建的封闭多段线

baneit319

采用move, copy和mirror, ScaleEntity方法创建了一些封闭多段线图形（原封闭多段线图形是空间里手动画上去的）
很奇怪的是我采用.Select acSelectionSetCrossing, startpoint, endpoint, FilterType, FilterData方法可以把move, copy后来创建的封闭多段线添加到集合里去，但是无法把mirror, ScaleEntity方法创建的封闭多段线添加到集合里去。
但如果我先把dwg文件保存一下，再打开用.Select acSelectionSetCrossing, startpoint, endpoint, FilterType, FilterData，就可以选中原来mirror/ScaleEntity方法生成的图形。很困惑？？这是为什么？难道mirror/ScaleEntity当时生成的对象属性什么的变了？

选中的那段如下
Sub kk()

  Dim FilterType(0) As Integer
  Dim FilterData(0) As Variant
  Dim spoint1(0 To 2) As Double
  Dim spoint2(0 To 2) As Double
  Dim myset3 As AcadSelectionSet
  Dim flag3 As Boolean
  Dim Moveobj As AcadEntity

  flag3 = False
    For Each myset3 In ThisDrawing.SelectionSets
        If myset3.Name = "total" Then
          flag3 = True
          Exit For
        End If
    Next

   If flag3 = True Then
       myset3.Delete
    End If

      spoint1(0) = 4000
      spoint1(1) = 505
      spoint2(0) = 12000
      spoint2(1) = 990
      Set myset3 = ThisDrawing.SelectionSets.Add("total")
        FilterType(0) = 0
        FilterData(0) = "*POLYLINE"
     myset3.Select acSelectionSetCrossing, spoint1, spoint2, FilterType, FilterData

     For Each Moveobj In myset3
       Moveobj.Highlight True
     Next
End Sub

创建的图形（白色为原始的，其他颜色为后创建的）


Mirror和ScaleEntity选不中的图形

wxd20130610

运行程序前先 zoom e 一下模型空间

baneit319

wxd20130610 发表于 2015-12-18 08:12
运行程序前先 zoom e 一下模型空间

谢谢兄台，确实是这个问题