请教各位高手：怎样使用 FilterType FilterData 把CAD图形中的Polyline线放入选择集

mycad

请教各位高手：怎样使用 FilterType FilterData 把CAD图形中的Polyline线放入选择集中[br]

怎样使用 FilterType FilterData 把CAD图形中的Polyline线放入选择集中？

’下面的代码运行有问题，sset。count是 0，什么原因？

If Not IsNull(ThisDrawing.SelectionSets.Item("this")) Then
      Set sset = ThisDrawing.SelectionSets.Item("this")
      sset.Delete
   End If
   Set sset = ThisDrawing.SelectionSets.Add("this")
   FilterType(0) = 0
   FilterData(0) = "Polyline"
     'sstext.SelectOnScreen FilterType, FilterData
    sset.SelectOnScreen FilterType, FilterData
    MsgBox Str(sset.Count)

雪山飞狐_lzh

FilterData(0) = "*POLYLINE"

mycad

可以的，谢谢雪山飞狐，真的很崇拜您！！！谢谢！！！！！！！！！！！！

gmaxoip

真是高手，太感谢了