选择集无法选中Mirror或ScaleEntity创建的封闭多段线
采用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选不中的图形
运行程序前先 zoom e 一下模型空间 wxd20130610 发表于 2015-12-18 08:12 static/image/common/back.gif
运行程序前先 zoom e 一下模型空间
谢谢兄台，确实是这个问题
页:
[1]