例如选择扩展属性为212100的多段线，可以不虑遍选择集吗？

yswoyh

例如选择扩展属性为212100的多段线，可以不循环虑遍选择集吗？
能不能在选择之前过滤掉不需要的编码线
选择两种扩展编码实体线型，如何做。
多谢各位老师

wylong

可以，使用选择集。
下例过滤包含由“MY_APP”应用程序添加的扩展数据的圆：

Sub Ch4_FilterXdata()
   Dim sstext As AcadSelectionSet
   Dim mode As Integer
   Dim pointsArray(0 To 11) As Double
   mode = acSelectionSetWindowPolygon
   pointsArray(0) = -12#: pointsArray(1) = -7#: pointsArray(2) = 0
   pointsArray(3) = -12#: pointsArray(4) = 10#: pointsArray(5) = 0
   pointsArray(6) = 10#: pointsArray(7) = 10#: pointsArray(8) = 0
   pointsArray(9) = 10#: pointsArray(10) = -7#: pointsArray(11) = 0
   Dim FilterType(1) As Integer
   Dim FilterData(1) As Variant
   Set sstext = ThisDrawing.SelectionSets.Add("SS9")
   
   FilterType(0) = 0
   FilterData(0) = "Circle"
   FilterType(1) = 1001
   FilterData(1) = "MY_APP"
   
   sstext.SelectByPolygon mode, pointsArray, FilterType, FilterData
   
End Sub

yswoyh

多谢！多谢！我实验一下，不懂得地方请多多指教。